怎么将文本文件的内容按空行分隔符一条条导入到DBF的备注字段中

如何将文本文件的内容按空行分隔符一条条导入到DBF的备注字段中
比如 abc.dbf文件里有一个“内容”的备注型的字段
   

 一个abc.txt内容的文本文件，内容为以下内容

1。这是第一题，植树
这是第一题的内容

2。这是第二题的内容。。。。
。。。

3。这是第三题的内容。。

80。这是第80题的内容。。。。


要求将这个文本文件的80条记录自动导入到ABC.DBF文件中，请高手想想办法，谢谢！

[解决办法]

SQL code

*-- vfp9.0Close Databases AlllcMemowidth=Set("Memowidth")Set Memowidth To 8192Create Cursor t1 (fl1 i Autoinc,fl2 m)lcStr=Filetostr('C:\文本样式\abc.txt')lnStrLine=Memlines(lcStr)lcPartStr=''For lnI=1 To lnStrLine    lcRowStr=Mline(lcStr,lnI)    If Empty(lcRowStr)        If !Empty(lcPartStr)            Insert Into t1 (fl2) Values (lcPartStr)        Endif        lcPartStr=''    Else        lcPartStr=lcPartStr+lcRowStr+Chr(13)+Chr(10)    EndifEndforSet Memowidth To (lcMemowidth)Browse
[解决办法]
SQL code
*-----生成TXT文件(为了演示需要，正式代码中这段代码可以不要)TEXT TO CINFO NOSHOW1.AAAAAAAAAAAAAA2.BBBBBBBBBBBBBB3.CCCCCCCCCCCCCC4.DDDDDDDDDDDDDD5.EEEEEEEEEEEEEEENDTEXTSTRTOFILE(CINFO,"D:\SL\CINFO.TXT")CINFO=FILETOSTR("D:\SL\CINFO.TXT") &&TXT文件转换为字符串CREATE CURSOR TABNAME (内容 M) &&创建临时表*-----将字符串加入备注字段中FOR I=1 TO MEMLINES(CINFO)    INSERT INTO TABNAME VALUES (MLINE(CINFO,I)+CHR(10))ENDFORBROWSE