如何从txt将数据像从access中一样读出来

Question

想用DBGrid显示该TXT文件中的数据信息

Answer 1

用ADO,ADO可以支持Text文件，设置其后缀为.txt，而且只能指定目录，一般情况下以","号分割，有Code，要吗？

Answer 2

可以将txt先读到memo中，然后再处理，用一个标志分割即可。。
转一篇帖子，是将txt转成数据库的，稍微改改就可以用了。在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？例如，有一段人事档案资料document.txt，内容如下：  
　　张强,25,助理工程师,  
　　王宏,30,工程师,  
　　李远,45,高级工程师,  
　　要将它转入数据库中，document.db结构如下：  
　　姓名，年龄，职称  
　　怎么办呢？现在通过使用delphi编程，很好地解决了这个难题。Delphi提供了许多功能强大，丰富的字符处理函数和过程，常用的有：  
　　① function Length(S:String):Integer　　//返回串的长度  
　　② function Copy(S:String; Index,Count: Integer):String  
　　//给出一个字符串中串的拷贝  
　　③ function Pos(Substr:String; S:String); Integer　　  
　　//查找子串在字符串中的位置  
　　④ Procedure Delete(Var S:String; Index,Count: Integer);  
　　//从一个字符串中去除子串  
　　利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。  
　　Document.txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是逗号，也可以是、;#等符号。具体思想是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分成几个字段。  
　　Function GetSubStr(var aString:string; SepChar:String): String;  
　　//得到字符串中一个子串  
　　因要改变参数aString的值，所以将它用var定义。  
　　Function GetSubStrNum(aString, SepChar: String): Integer;  
　　//计算一个字符串要被分割成几个字段。  
　　参数：aString是所需分割的一个字符串，  
　　SepChar是分割符。 
　　Function 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; 
　　result:=Num; 
　　end; 
　　Function GetSubStr(var aString:String;SepChar:String):String; 
　　var 
　　Mystr:String; 
　　StrLen:Integer; 
　　SepCharPos:Integer; 
　　begin 
　　StrLen:=Length(aString); 
　　SepCharPos:=Pos(SepChar,aString); //计算分割符在子串中的位置 
　　MyStr:=Copy(aString,1,SepCharPos-1); //将分割符前所有字符放到mystr串中 
　　Delete(aString,1,SepCharPos); //除去分割符和分割符前的子串 
　　GetSubStr:=MyStr; //返回一个字段 
　　end;  
　　有了上面三个函数，现在介绍一下具体的应用：  
　　① 首先建立一个窗体Forml，加入一个RichEditl(或Menol)，一个按钮Buttonl和一个Tablel，设置Tablel的属性：  
　　Tablell.DataBaseName:= 'c:\test';  
　　Tablell.TableName:= 'document.db';  
　　② 分别加入以下程序：  
　　const 
　　SepChar=',' ; 
　　procedure TForm1.FormCreate(Sender: TObject); 
　　begin 
　　RichEdit1.Lines.LoadFromFile('c:\test\test.txt'); 
　　end; 
　　procedure TForm1.Button1Click(Sender: TObject); 
　　var 
　　i,j,num:Integer; 
　　MyLine:String; 
　　item:array[1..3] of string; 
　　begin 
　　For i:=0 to RichEdit1.Lines.Count-1 do 
　　begin 
　　MyLine:=Richedit1.Lines[i]; 
　　num:=GetSubStrNum(myline,SepChar); 
　　for j:=1 to num do 
　　item[j]:=GetSubStr(myline,SepChar); 
　　table1.open; 
　　with table1 do 
　　begin 
　　table1.insert; 
　　table1name.Asstring:=item[1]; 
　　table1age.Asinteger:=strtoint(item[2]); 
　　table1title.Asstring:=item[3]; 
　　table1.post; 
　　end; 
　　table1.close; 
　　end; 
　　end;  
　　然后就可以进行编译、运行了。

Answer 3

要！
[email protected]
[email protected]
谢谢！