当前位置: 代码迷 >> VFP >> 怎么读取文本文件,并写入DBF中
  详细解决方案

怎么读取文本文件,并写入DBF中

热度:7495   发布时间:2013-02-26 00:00:00.0
如何读取文本文件,并写入DBF中
-----------------------------------------------------------------------
  名次 学号 成绩 学籍号 姓名 班级 备注
------------------------------------------------------------------------
  1 1 100 1301 张三 初三1班  
  2 2 86 1302 王张二 初三5班
  3 4 3 13010 李四 初三12班
文本文件中内容如上。请问如何将上内容读取,并写入数据库(以上述第二行为字段名),一、三行跳过

------解决方案--------------------------------------------------------
CREATE CURSOR cname (名次 c(4),学号 c(4),成绩 c(4),学籍号 c(4),姓名 c(8),班级 c(10), 备注 m)
APPEND FROM wb.txt DELIMITED WITH BLANK
BROWSE
------解决方案--------------------------------------------------------
1。
appe from ... type deli

2.
fopen()
fputs()
fread()
...

------解决方案--------------------------------------------------------
探讨
CREATE CURSOR cname (名次 c(4),学号 c(4),成绩 c(4),学籍号 c(4),姓名 c(8),班级 c(10), 备注 m)
APPEND FROM wb.txt DELIMITED WITH BLANK
BROWSE

------解决方案--------------------------------------------------------
上传到:http://www.access911.net/csdn/index.asp?old=2012-4-1
注明上传人
------解决方案--------------------------------------------------------
以下以上传的1.txt为测试文件

C/C++ code
Clear Set Safety Off CREATE CURSOR cname (名次 c(4),学号 c(4),成绩 c(4),学籍号 c(4),姓名 c(10),班级 c(10), 备注 m)lcFileString = Filetostr('1.txt')Do While At("  ",lcFileString) != 0    lcFileString = Strtran(lcFileString,'  ',' ')Enddo Set Memowidth To 1024lnLine = Memlines(lcFileString)If lnLine - 1 > 5    Strtofile("","k.txt")    For i = 6 To lnLine - 1        Strtofile(Mline(lcFileString,i) + Chr(13) + Chr(10),'k.txt',1)    Next    Append From k.txt Delimited With Blank     Delete File k.txtEndif Browse
------解决方案--------------------------------------------------------
建议把文本文件中的空格改成[,],然后,1, 1, 100, 1301, 张三, 初三1班
然后用2楼的方法,把blank 改成 逗号的那种。你可以参考帮助文件appe from 

------解决方案--------------------------------------------------------
探讨
建议把文本文件中的空格改成[,],然后,1, 1, 100, 1301, 张三, 初三1班
然后用2楼的方法,把blank 改成 逗号的那种。你可以参考帮助文件appe from

------解决方案--------------------------------------------------------
16楼代码更改如下:
MFILE=FILETOSTR("wb.txt")
FOR I=6 TO MEMLINES(MFILE)
?MLINE(MFILE,I)
ENDFOR
------解决方案--------------------------------------------------------
SET MEMOWIDTH设置情况