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

如何读取文本文件，并写入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设置情况
 

 

查看更多 下一篇