close all use C:\info1 lcTxtName="c:\430000."+substr(data)+".FKD.txt" lcStr="copy fields name,id,nam,code,data to "+lcTxtName+" delimited WITH CHAR ','" &lcStr. =STRTOFILE(STRTRAN(FILETOSTR(lcTxtName),'"',''),lcTxtName)
copy to 生成的好像都是文本文件,我需要从数据库导出来的信息存储为430000.20080519.FKD格式的文件,应该怎么处理!谢谢答复!
close all use C:\info1 lcTxtName="c:\430000."+substr(data)+".FKD.txt" lcStr="copy fields name,id,nam,code,data to "+lcTxtName+" delimited WITH CHAR ','" &lcStr. =STRTOFILE(STRTRAN(FILETOSTR(lcTxtName),'"',''),lcTxtName
Close Databases All Use C:\info1 lcTxtName="c:\430000."+Alltrim(Data)+".FKD" lcStr="copy fields name,id,nam,code,data to "+lcTxtName+" delimited WITH CHAR ','" &lcStr. =Strtofile(Strtran(Filetostr(lcTxtName),'"',''),lcTxtName)
Close Databases All Use C:\info1 lcTxtName="c:\430000."+Dtos(Data)+".FKD" lcStr="copy fields name,id,nam,code,data to "+lcTxtName+" delimited WITH CHAR ','" &lcStr. =Strtofile(Strtran(Filetostr(lcTxtName),'"',''),lcTxtName)