VFP导出与导入
我用VFP做了个命令按键,导出,单击后出现用户自定义导出路径对话框,要怎么做我用setdefaulttoD:\做了,只能在d:\下面的,不能由用户自己选择,随便问下,导入...
我用VFP做了个 命令按键,导出,单击后出现用户自定义导出路径对话框,要怎么做 我用set default to D:\ 做了,只能在d:\下面的,不能由用户自己选择,随便问下,导入是怎么做的,我要把TXT的文件导入到 一个表里去
展开
2个回答
展开全部
当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(文件名)
几种导出数据的方法:
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(文件名)
展开全部
*文件导入示例:
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('导出成功!')
***导出示例结束
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('导出成功!')
***导出示例结束
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询