home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP12_1.PRG < prev    next >
Encoding:
Text File  |  1994-01-12  |  2.0 KB  |  64 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤ 
  2. *⌐ª      Program: EXP12_1.PRG                                          ⌐ª
  3. *⌐ª     Function: ╜½▒╕╫ó╫╓╢╬┐╜▒┤╡╜╬─▒╛╬─╝■╡─╙ª╙├╖╢└².                  ⌐ª
  4. *⌐ª   DBF & File: SONG.DBF    SONG.FPT                                 ⌐ª
  5. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  6. SET TALK OFF
  7. CLEAR ALL
  8. CLEAR
  9.  
  10. check=expmemo("SONG","CONTENT","MYFILE")
  11. IF check
  12.    WAIT " ╩Σ│÷│╔╣ª, ╟δ░┤╚╬╥╗╝ⁿ╗≥╩≤▒Ω╡─╫≤░┤┼ñ╝╠╨°" WINDOW
  13.    TYPE myfile.TXT
  14. ELSE
  15.    WAIT " ╩Σ│÷╩º░▄, ╟δ░┤╚╬╥╗╝ⁿ╗≥╩≤▒Ω╡─╫≤░┤┼ñ╝╠╨°" WINDOW
  16. ENDIF
  17.  
  18.  
  19. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  20. *⌐ª    Program: EXPMEMO.PRG
  21. *⌐ª   Function: Exporting Memo Field
  22. *⌐ª      Usage: EXPMEMO(<DbfName>,<MemoName>,<TxtFile>[,<Start>][,<End>])
  23. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ
  24. FUNCTION expmemo
  25. PARAMETER DbfName,MemoName,TxtFile,Start,End
  26. PRIVATE pre_saf
  27. DO CASE
  28.    CASE EMPTY(DbfName) .OR. EMPTY(MemoName) .OR. EMPTY(TxtFile)
  29.         WAIT "─π╓┴╔┘╨δ╓╕╢¿: ╩²╛▌┐Γ├√  ▒╕╫ó╫╓╢╬├√  ╩Σ│÷╬─╝■├√, "+;
  30.              "╟δ░┤╚╬╥╗╝ⁿ╗≥╩≤▒Ω╡─╫≤░┤┼ñ╝╠╨°.";
  31.              WINDOW
  32.         RETURN .F.  && ╚⌠▓╗│╔╣ª, ╘≥┤½╗╪ .F.
  33.  
  34.    CASE TYPE("DbfName") # "C" .OR. TYPE("MemoName") # "C" ;
  35.         .OR. TYPE("TxtFile") # "C"
  36.         WAIT "─π╩Σ╚δ╡─: <╩²╛▌┐Γ├√>╗≥<▒╕╫ó╫╓╢╬├√>╗≥<╩Σ│÷╬─╝■├√>"+;
  37.              "▓╗╩╟╫╓╖√┤«, ╟δ░┤╚╬╥╗╝ⁿ╗≥╩≤▒Ω╡─╫≤░┤┼ñ╝╠╨°.";
  38.              WINDOW
  39.         RETURN .F.  && ╚⌠▓╗│╔╣ª, ╘≥┤½╗╪ .F.
  40.  
  41.    CASE !EMPTY(Start) .AND. !EMPTY(End) .AND. Start>End
  42.         WAIT "┬▀╝¡┤φ╬≤, ╟δ░┤╚╬╥╗╗≥╩≤▒Ω╡─╫≤░┤┼ñ╝ⁿ╝╠╨°."  WINDOW
  43.         RETURN .F.
  44. ENDCASE
  45.  
  46. pre_saf=SET("SAFETY")="ON"
  47. SET SAFETY OFF
  48. USE (LOCFILE((DbfName),"DBF"))
  49. IF EMPTY(Start)
  50.    Start=1
  51. ENDIF
  52. IF EMPTY(End)
  53.    End=RECCOUNT()
  54. ENDIF
  55.  
  56. SCAN FOR RECNO()>=Start .AND. RECNO()<=End
  57.      COPY MEMO (MemoName) TO (TxtFile) ADDITIVE
  58. ENDSCAN
  59. USE
  60. IF pre_saf
  61.    SET SAFETY ON
  62. ENDIF
  63. RETURN .T.   && ╚⌠│╔╣ª, ╘≥┤½╗╪ .T.
  64.