Question

VFP导出与导入

我用VFP做了个 命令按键，导出，单击后出现用户自定义导出路径对话框，要怎么做 我用set default to D:\ 做了，只能在d:\下面的，不能由用户自己选择，随便问下，导入是怎么做的，我要把TXT的文件导入到 一个表里去

Answer 1

　　当VFP处理好数据后，可以用多种方法将这些数据导出，以便被其它应用程序(如Excel等)所用。
　　几种导出数据的方法：
　　1.用“导出数据”对话框。可以从VFP主菜单中选择“文件/导出…”打开“导出”对话框，在该对话框中的“来源”框中输入表名(c:vfpstudents.dbf)，在“类型”中指定要导出数据的类型(Microsoft Excel)，在“到”框中输入导出的路径和文件名(C:excelaa.xls)，然后按“确定”即可。这时你如果查看command窗口，可发现以下代码：
　　COPY TO C：excelaa.XLS TYPE XL5
　　2.用COPY TO命令。COPY TO命令的工作对象是VFP中的表，它要依据“TYPE”项才知道要产生哪一类导出文件。对于上面的导出过程，可用以下方法实现：
　　USE students
　　COPY TO C：excelaa.XLS TYPE XL5
3.用SET ALTERNATE TO写入ASCⅡ文件。用该命令可以把屏幕上的内容导出,导向一个文件，下面例子可以将系统状态输入到status.txt文件中：
　　SET ALTERNATE TO status.txt
　　SET ALTERNATE ON
　　SET CONSOLE OFF
　　?“系统状态”＋DTOC(DATE())＋“@”＋TIME()
　　LIST STATUS
　　SET ALTERNATE OFF
　　SET CONSOLE ON
　　4.用SET PRINTER TO命令。用该命令可把打印输出到文本文件中：
　　SET PRINTER TO hello.txt
　　SET PRINT ON
　　???CHR(27)＋“计算机爱好者”
　　??“你们好!”
　　?“祝新年快乐”
　　SET PRINT OFF
　　5.用REPORT FORM TO FILE命令。运行报表的REPORT命令有许多选项，把报表输出保存到文件中的方法为：
　　REPORT FORM(报表名)TO FILE(文件名)

Answer 2

*文件导入示例：
M_File=GETFILE('TXT','')
IF len(alltrim(M_File))=0
=MESSAGEBOX("请选择待导入的文件名！",0+48,"提示")
ELSE
IF JUSTEXT(M_FILE)#"TXT" &&获得文件扩展名
=MESSAGEBOX("您选择的不是TXT文档！",0+48,"提示")
else
use my&&你自己的表名
appe from &M_FILE type sdf
use
messagebox('接收成功！')
endi
ENDIF
***导入示例结束

*文件导出示例：
M_File=getdir()
wjm='abc.txt'&&将要保存的文件名保存到变量wjm
wjqc=alltrim(M_File)+'\'+wjm&&定义你要保存的文件路径及文件名，加了通过getdir()获得的路径。
use my&&你自己的表名
copy to &wjqc type sdf&&复制成TXT文件到指定路径下的文件名，你自己定义。
use
messagebox('导出成功！')
***导出示例结束