急！请问如何从把一个文本文件的内容作为一条纪录追加到dbf表中，送分(0分)

比如一个文本文件有两行内容：'1', 'help'
'2', 'thank you'
如何把这内容追加到一个表中，表结构table (num char(1),meno char(20))
多谢多谢

：急！请问如何从把一个文本文件的内容作为一条纪录追加到dbf表中，送分 ( 积分：0, 回复：0, 阅读：2 )
比如一个文本文件有两行内容：'1', 'help'
'2', 'thank you'
如何把这内容追加到一个表中，表结构table (num char(1),meno char(20))
多谢多谢
怎么没人回答？？？？？？热心的高手你快来吧

编一个小程序，每次读入两行到两个变量中，再insert不就行了

　　Function RegulateStr(aString：String;Sepchar：String)：String;
　　var
　　i,Num：Integer;
　　Flag：Boolean;
　　MyStr,TempStr：String;
　　begin
　　Flag:=False;／／进行标志,去除多余的分割符
　　Num:=Length(aString);／／计算aString串的长度
　　for i:=1 to Num do
　　begin
　　TempStr:=Copy(aString,i,1);／／取aString串中的一字符
　　if TempStr <> SepChar then
　　begin
　　MyStr:=MyStr+TempStr;
　　Flag:=True;
　　end
　　else
　　if(Flag = True)then
　　begin
　　Mystr:=Mystr+TempSrt;
　　Flag:=False;
　　end;
　　end;
　　if MyStr[Length(MyStr)] <> SepChar then
　　MyStr:=MyStr+SepChar;
　　RegulateSrt:=MyStr;
　　end;

　　Function GetSubStr(var aString：String,SepChar：Strign)：String;
　　var
　　Mysrt：String;
　　StrLen：Integer;
　　SepCharPso：Integer;
　　begin
　　StrLen:=Length(aString);
　　SepCharPos:=Pos(SepChar,aString);／／计算分割符在子串中的位置
　　MyStr:=Copy(aString,1,SepCharPos－1); ／／将分割符前所有字符放到mystr串中
　　Delete(aString,1,SepCharPos);／／除去分割符和分割符前的子串
　　GetSubStr:=MyStr;／／返回一个字段
　　end;

　　FunctionTforml.GetSubStrNum(aString：String;SepChar：String)：Integer;
　　var
　　i：Integer;
　　StrLen：Integer;
　Num：Integer;
　　begin
　　StrLen:=Length(aString);
　　Num:=0;
　　for i:=1 to StrLen do
　　if Copy(aString,i,1) = SepCharthen
　　Num:=Num+1;
　　GetSubSrtNum:=Num;
　　end;

　　有了上面三个函数,现在介绍一下具体的应用：
　　1.首先建立一个窗体Forml,加入一个RichEditl(或Menol),一个按钮Buttonl和一个Tablel,设置Tablel的属性：
　　Tablell.DataBase = 'c:/Archivs'
　　Tablell.TableName ='Archive.dbf'

　　2.分别加入以下程序：
　　Const Space= ''
　　ProcedureTForml.FormCreate(Sender：Tobject);
　　begin
　　RichRditl.Lines.LoadFromFile('Archive.txt');
　　end;

　　ProcedureTForml.Button1Click(Sender：Tobject);
　　var
　　i,j：Integer;
　MyLine：String;
　　begin
　　with Tablel do
　　begin
　 　Open;
　for i:=0 to RichEditl.Lines.Count－1 do
　begin
　　MyLine:=RegulateStr(Richeditl.Lines,Space);
　　for j:=1 to Num do
　　begin
　　Append;
　　fileds[j－1].aString:=GetSubSrt(MyLine,Space));
　　post;
　　end;
　　end;
　　end;
　　end;
自己整理整理吧，肯定行。