求教各位高手：如何将一文本文件倒入到数据库中，不好意思没有分了。

Question

一行行读吧。
如果符合ADO的文本格式，可以用ADO连接文本文件。

Answer 1

用TStringList:var
  F:string; {TEXT文件路径}
begin
  with ARichEdit do
  begin
    Lines.LoadFromFile(F);
  end;
end;  

Answer 2

如果有规律的话，可以直接用SQL SERVER 的DTS导入到SQL库里去。
具体看SQL SERVER。用数据导入-选择文本文件-选择文本文件的分割符-目的表-OK。

Answer 3

谢谢各位的回复。如下是文本文件的一部分：
1 2002-01-11:23:38:03  10000952  MOB 

Answer 4

谢谢各位的回复。如下是文本文件的一部分：
1 2002-01-11:23:38:03  10000952  MOB 

Answer 5

function RTFToDB(ARichEdit: TRichEdit; { 文档容器 }
　　 DocName: string; { 文档标题 }
　　 ATable: TADOTable { 操作的表 }
　　 ): Boolean; { 返回类型 }
　　const
　　 TmpFileName = ‘c:x.rtf‘; { 临时文档 }
　　var
　　 DocID, SubID, L: Integer; { 局部变量 }
　　 S: string; { 串 }
　　 F: TFileOfChar; { 字符文件 }
　　 Buf: TBuffer; { 文本缓存 }
  begin
    ARichEdit.Lines.SaveToFile(TmpFileName);{ 先存入文件 }
  　AssignFile(F, TmpFileName); { 打开文件 }
  　Reset(F); 
  try
　   DocID := { 产生新的文档编号 }
　　 SelectSQL(‘SELECT NVL(MAX(DOCID) + 1, 101) FROM TEST‘);
　　 with ATable do
        if not Active then Active := True;{ 确认表打开 }
　　    SubID := 0; { 初始化子编号 }
　　    while not EOF(F) do
        begin
　     　 Inc(SubID);
　     　 BlockRead(F, Buf, BufSize, L); { 读取两千个字符 }
　　      S := Buf;
　　      SetLength(S, L); { 取实际读取到的字节数 }
　　      with ATable do
          begin { 增加一条子文档 }
　       　 Append;
　       　 FieldByName(‘DOCID‘).AsInteger := DocID;
　       　 FieldByName(‘DOCNAME‘).AsString := DocName;
　       　 FieldByName(‘SubID‘).AsInteger := SubID;
　       　 FieldByName(‘TEXT‘).AsString := S;
　　        Post;
　　      end;
　　    end;
　　    Result := True; { 存储成功 }
　　 except
　　    Result := False;{ 存储失败 }
　　 end;
　　 CloseFile(F); { 关闭文件 }
　　 DeleteFile(TmpFileName);{ 删除文件 }
　　end;你是女孩?