home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / oplexamp / EXPORT.OPL < prev    next >
Text File  |  1992-11-18  |  2KB  |  97 lines
  1. PROC export:
  2.  
  3.     LOCAL dbfname$(128)
  4.     LOCAL expname$(128)
  5.     LOCAL dvar%,delim$(2)
  6.     LOCAL done%
  7.     LOCAL newline$(2)
  8.  
  9.     dbfname$ = "m:\dat\*.dbf"
  10.     
  11.     dINIT "Save as..."
  12.     dFILE dbfname$,"From",16
  13.     dFILE expname$,"To",1
  14.     dCHOICE dvar%,"Delimiter","Newline,Tab,Comma,Semicolon"
  15.  
  16.     IF DIALOG = 0
  17.         STOP
  18.     ENDIF
  19.  
  20.     IF dvar% = 1
  21.         delim$ = CHR$(13) + CHR$(10)
  22.     ELSEIF dvar% = 2
  23.         delim$ = CHR$(9)
  24.     ELSEIF dvar% = 3
  25.         delim$ = ","
  26.     ELSE
  27.         delim$ = ";"
  28.     ENDIF
  29.  
  30.     LOPEN expname$
  31.     OPEN dbfname$,A,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$,k$,l$,m$,n$,o$,p$,q$,r$,s$,t$,u$,v$,w$,x$,y$,z$,aa$,ab$,ac$,ad$,ae$,af$
  32.  
  33.     FIRST
  34.  
  35.     WHILE NOT EOF
  36.  
  37.         AT 1,1
  38.         PRINT "Records exported:"
  39.         
  40.         AT 1,2
  41.         PRINT "Total to export :",COUNT
  42.  
  43.         AT 1,5
  44.         PRINT "Now exporting:                           "
  45.         AT 16,5
  46.         PRINT A.a$
  47.  
  48.         LPRINT A.a$ + delim$;
  49.         LPRINT A.b$ + delim$;
  50.         LPRINT A.c$ + delim$;
  51.         LPRINT A.d$ + delim$;
  52.         LPRINT A.e$ + delim$;
  53.         LPRINT A.f$ + delim$;
  54.         LPRINT A.g$ + delim$;
  55.         LPRINT A.h$ + delim$;
  56.         LPRINT A.i$ + delim$;
  57.         LPRINT A.j$ + delim$;
  58.         LPRINT A.k$ + delim$;
  59.         LPRINT A.l$ + delim$;
  60.         LPRINT A.m$ + delim$;
  61.         LPRINT A.n$ + delim$;
  62.         LPRINT A.o$ + delim$;
  63.         LPRINT A.p$ + delim$;
  64.         LPRINT A.q$ + delim$;
  65.         LPRINT A.r$ + delim$;
  66.         LPRINT A.s$ + delim$;
  67.         LPRINT A.t$ + delim$;
  68.         LPRINT A.u$ + delim$;
  69.         LPRINT A.v$ + delim$;
  70.         LPRINT A.w$ + delim$;
  71.         LPRINT A.x$ + delim$;
  72.         LPRINT A.y$ + delim$;
  73.         LPRINT A.z$ + delim$;
  74.         LPRINT A.aa$ + delim$;
  75.         LPRINT A.ab$ + delim$;
  76.         LPRINT A.ac$ + delim$;
  77.         LPRINT A.ad$ + delim$;
  78.         LPRINT A.ae$ + delim$;
  79.         LPRINT A.af$
  80.  
  81.         done% = done% + 1
  82.         AT 19,1
  83.         PRINT done%
  84.         
  85.         NEXT
  86.  
  87.     ENDWH
  88.  
  89.     AT 1,4
  90.     PRINT "'Export' completed"
  91.     GET
  92.  
  93. ENDP
  94.  
  95.         
  96.  
  97.