如何在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,'"',""),',',"','")+"')"
SQLEXEC(LNConn,GCString,'MyTxt')
Endif
Endfor
= Fclose(GNFileHandle) && 关闭打开的文件
Endif
Else
Messagebox(lchint+' 查询失败！',16,gcMyCorp,3000)
Endif
Else
Messagebox('建 '+lchint+' 时数据库连接失败！',16,gcMyCorp,3000)
EndifEndfunc

打开 vfp-文件-导入 然后按照步骤来就可以了 ：）