如何在VFP中导入文本文件

来源：百度知道 编辑：UC知道 时间：2024/05/08 06:40:48
我有一个文本文件，内容为
小明=山东
小李=河南
....
等几百条记录
如何导入到VFP的数据表中呢
姓名 籍贯
小明 山东
小李 河南

贴个我的C/S系统中动态创建数据库及表后从TXT中导入数据的函数和使用方法供你参考
1、使用方法：=Txt2Dbf('SELECT Teams.* From Teams','Teams.TXT','INSERT INTO Teams(Team_ID,Team_Name,Begin_Time,End_Time)','班次代码')
2、函数：*!* 从文本文件获得数据
Function Txt2Dbf
Parameters lcSql,lcFile,lcStr,lchint
If LNConn>0
If SQLEXEC(LNConn,lcSql,'MyTxt')>0
Select MyTxt
If Reccount()<=0
Store Fopen(lcFile) To GNFileHandle && 打开文件
Store Fseek(GNFileHandle, 0, 2) To GNEnd && 移动指针到文件尾
Store Fseek(GNFileHandle, 0) To GNTOP && 移动指针到文件头
If GNEnd <= 0 && 文件是否为空?
Return
Endif
For I=0 To GNEnd
GCString = Fgets(GNFileHandle)
If !Empty(GCString)
GCString=lcStr+" VALUES('"+Strtran(Strtran(GCString,'"',""),',',&