各位大狭，怎样从文本文件用写程序的方法导入到数据库呀？？？？？？？？？？

Question

当然可以，只要你的文本文件定义好了数据格式就可以。
读的时候就使用memo控件做一个缓存，把文本文件的内容用
memo.lines.loadfromfile（filename.txt）的方法读入memo中，
然后用循环for I ;= 0 to memo.lines.count -1 do逐条读取。
至于一条记录在文本中是有标识符，到时用pos和copy函数就可以读取数据了。照这个思路做即可，如果还不明白，给出数据格式，可以给你做各例子

Answer 1

这是之前答的一个问题，也和你的一样，他的数据类型在程序中有：
读入数据的程序如下：
var
  srcstr,tmpstr,fieldvalue : STring;
  i,j,k : integer;
  l,m : integer;
begin
  srcstr := '姓名：张学辉 工资号：0001 单位：省局 房租：0.000 水费：54.25 电费：73.44 煤气：0.00 热水：0.000 其他：8.00 合计：135.69 房址：经三路54#北楼303# 收费单位：山东邮电 日期：09/12/2001';
  for I := 0 to  11 do
  begin
    J := length(srcstr);
    K := pos(' ',srcstr);
    tmpstr := copy(srcstr,1,K);
    l := length(tmpstr);
    m := pos('：',tmpstr);
    fieldvalue := copy(tmpstr,m + 2 ,l - m + 1);
    Memo1.Lines.Add(fieldvalue);
    srcstr := copy(srcstr,K + 1,J - K + 1);
  end;    l := length(srcstr);
    m := pos('：',srcstr);
    fieldvalue := copy(srcstr,m + 2,l - m + 1);
    Memo1.Lines.Add(fieldvalue);
end;其中需要注意的是：
1.循环要做12次，但是有13个字段，因为最后一个值时已经没有‘  ’了，所以要单独在循环外处理；
2.你的分隔符‘：’，我不知道你在txt中是中文的冒号还是英文的冒号，前者按程序中所做，后者，则fieldvalue := copy(tmpstr,m + 2 ,l - m + 1);改为
fieldvalue := copy(tmpstr,m + 1 ,l - m + 1);这是因为中文冒号占两个长度，英文的占一个。
至于你的文件有多少行，可以在读取文件时读出。如果是text文件，可以使用memo.lines.loadfromfile 取得整个文件内容，而当内部一行为一条记录时，memo.lines.count + 1就是记录的条数。用这中读取方法比较好用 后来有位仁兄做了一个通用函数，也看一下吧：
function SeperateString(var AList:TStringList;
        AString:AnsiString; ASeprator:string):integer ;
var
  iLenOfSeprator,iPos:integer;
  strItem:AnsiString;
begin
  iLenOfSeprator:=Length(ASeprator);
  iPos:=Pos(ASeprator,AString);
  while iPos>0 do
  begin
    strItem:=Copy(AString,1,iPos-1);
    Delete(AString,1,iPos+iLenOfSeprator-1);
    AList.Add(strItem);
    iPos:=Pos(ASeprator,AString);
  end;
  AList.Add(AString);
  Result:=AList.Count ;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  f:textfile;
  i:integer;
  s:string;
  vList,vSubList:TStringList;
begin
  if not dlgopen.Execute then Exit;
  vList:=TStringList.Create;
  vSubList:=TStringList.Create;
  AssignFile(f,dlgopen.FileName);
  Reset(f);
  while not eof(f) do
  begin
    Readln(s);
    vList.Clear;
    SeperateString(vList,s,' ');
    Table1.Edit;
    for i:=0 to vList.Count -1 do
    begin
      vSubList.Clear;
      SeperateString(vSubList,vList.Strings[i],'：');
      vList.Strings[i]:=vSubList.Strings[1];
    end;
    Table1.FieldByName('姓名').AsString :=vList.Strings[0];
    Table1.FieldByName('工资号').AsString :=vList.Strings[1];
    Table1.FieldByName('单位').AsString :=vList.Strings[2];
    Table1.FieldByName('房租').AsFloat :=StrToFloat(vList.Strings[3]);
    //.......
    //添加所有需要的字段
    Table1.Post;
  end;
  CloseFile(f);
end;

Answer 2

同意楼上的。很多数据库都可以load文本信息的，只要你定好格式。

Answer 3

如果是纯文本我这里到有一些例子一共参考：
用DELPHI实现将纯文本资料转入数据库--------------------------------------------------------------------------------在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？
　　例如，有一段人事档案资料archive．txt，内容如下：
　　小许男21工程师
　　小吴女23助理工程师
　　小蔡男22助理工程师
　　小牟女22工程师
　　要将它转入数据库archive．dbf中，archive．dbf结构如下：
　　姓名，性别，年龄，职称
　　怎么办呢？现在通过使用delphi编程，很好地解决了这个难题。Delphi提供了许多功能强大，丰富的字符处理函数和过程，常用的有：
　　（1）functionLength（S：String）：Integer
　　／／返回串的长度
　　（2）functionCopy（S：String；Index，Count：Integer）：String
　　／／给出一个字符串中串的拷贝
　　（3）functionPos（Substr：String；S：String）；Integer
　　／／查找子串在字符串中的位置
　　（4）ProcedureDelete（VarS：String；Index，Count：Integer）；
　　／／从一个字符串中去除子串
　　利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。
　　archive．txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是空格，也可以是，、；、＃等符号。具体思想
是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分
成几个字段。
　　FunctionRegulate（aString，Sepchar：string）：string
　　／／去掉多余的分割符，规范字符串
　　FunctionGetSubStr（varsString：string；SepChar：String）：String；
　　／／得到字符串中一个子串
　　／／因要改变参数aString的值，所以将它用var定义。
　　FunctionGetSubStrNum（aString，SepChar：String）：Integer；
　　／／计算一个字符串要被分割成几个字段。
　　参数：aString是所需分割的一个字符串，SepChar是分割符。
　　FunctionRegulateStr（aString：String；Sepchar：String）：String；
　　var
　　i，Num：Integer；
　　Flag：Boolean；
　　MyStr，TempStr：String；
　　begin
　　Flag：=False；／／进行标志，去除多余的分割符
　　Num：=Length（aString）；／／计算aString串的长度
　　fori：=1toNumdo
　　begin
　　TempStr：=Copy（aString，i，1）；／／取aString串中的一字符
　　if TempSt>=SepChar then
　　begin
　　MyStr：=MyStr＋TempDtr；
　　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；
　　FunctionGetSubStr（varaString：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）=SepChar then
　　Num：=Num＋1；
　　GetSubSrtNum：=Num；
　　end：
　　有了上面三个函数，现在介绍一下具体的应用：
　　1．首先建立一个窗体Forml，加入一个RichEditl（或Menol），一个按钮Buttonl和一个Tablel，设置Tablel的属性：
　　Tablell．DataBase=′c：\Archivs′
　　Tablell．TableName=′Archive．dbf′
　　2．分别加入以下程序：
　　ConstSpace:=′′
　　ProcedureTForml．FormCreate（Sender：Tobject）；
　　begin
　　RichRditl．Lines．LoadFromFile（′Archive．txt′）；
　　end；
　　ProcedureTForml．Button1Click（Sender：T object）；
　　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［i］，Space）；
　　for  j：=1 to Num To ken（MyLIne，Space） do
　　begin
　　Append；
　　fileds［j－1］．aString：=GetSubSrt（MyLine，Space））；
　　post；
　　end；
　　end；
　　end；
　　end；
　　然后就可以进行编译，运行了。