home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBB2.PRG < prev    next >
Encoding:
Text File  |  1990-09-07  |  1.1 KB  |  58 lines
  1. ****** ╦∙╙╨╕ⁿ╨┬╬─╝■▒╕╖▌ C:ALL==>A:  DBB2.PRG ******
  2. ****** DO DBB2                               ******
  3. CLEAR
  4. @ 4,20 SAY '╦∙╙╨╕ⁿ╨┬╬─╝■▒╕╖▌ C:ALL==>A:'
  5. @ 5,20 SAY '╧╡═│╒²╘┌╘╦╨╨úí╟δ╔╘║≥ú«ú«ú«'
  6. @ 6,20 SAY '╟δ░┤╗╪│╡╝ⁿ [ ENTER ]......'
  7. SET CONS OFF
  8. SET SAFE OFF
  9. SET ALTE TO DBF
  10. SET ALTE ON
  11. DIR
  12. SET ALTE TO
  13. SELE 2
  14. USE DBF ALIAS DB
  15. APPE FROM DBF SDF
  16. GO TOP
  17. REPL ALL F_NAME WITH SUBS(F_NAME,1,AT('.',F_NAME)-1)
  18. INDE ON F_NAME TO DBF
  19. ERAS DBF.TXT
  20. FFILE=SYS(3)
  21. IF AT('.',FFILE)=0
  22. FFILE=FFILE+'.DBF'
  23. ENDIF
  24. ! COPY FILE.DBF &FFILE >NUL
  25. SELE 1
  26. USE &FFILE INDE FILE
  27. SET RELA TO F_NAME INTO DB
  28. DO WHILE .NOT. EOF()
  29. SET DATE AMER
  30. IF F_DATE<CTOD(DB->DATE)
  31. SET DATE ANSI
  32. FN=TRIM(F_NAME)
  33. SET CONS ON
  34. ? C_FNAME+'&FN..DBF'
  35. SET CONS OFF
  36. ! COPY &FN..DBF A:&FN..DBF >NUL
  37. SET CONS ON
  38. ?? ' has been copied !'
  39. SET DATE AMER
  40. REPL F_DATE WITH CTOD(DB->DATE)
  41. SET DATE ANSI
  42. SET CONS OFF
  43. ENDIF
  44. SKIP
  45. ENDDO
  46. SELE 2
  47. ZAP
  48. CLOS DATA
  49. ERAS DBF.IDX
  50. ERAS FILE.DBF
  51. RENA &FFILE TO FILE.DBF
  52. ! COPY FILE.DBF A:FILE.DBF >NUL
  53. SET CONS ON
  54. ? CHR(7)+CHR(7)
  55. A=INKEY(2)
  56. RETU
  57. ** END OF DBB2.PRG **
  58.