读取文本文件中的数据!!

Question

在DELPHI中，如何读去文本中的数据，如何分辨文本文件的行列， 例子数据如下： 
 
1            会计部            章山            文员            
2            信息部            力四            职员          
3            资产部            小六子            职员          
5            会计部            ss            职员          
6            会计部            rr            课负责人    
7            会计部            kk            职员

Answer 1

如何分辨文本文件的行：readln
如何分辨文本文件的列：空格

Answer 2

判断列可以判断是第几个Tab键的

Answer 3

var
  filename:textfile;
  line:string;
begin
  assignfile(filename,'c:\a.txt');
  resetfile(filename);
  readline(filename,line);
  ...//接下来就是对字符串的操作了。
  closefile(filename);
end;

Answer 4

List:TStringList;
ItemList:TStringList;List:=TStringList.create
ItemList:=TStringList.create;
List.LoadformFile(filename);
for I=0 to List.Count-1 do
    begin
    分割（List.Strings[I],' ',ItemList); 
    ...处理
    end;
List.free;
ItemList.Free;

Answer 5

我的办法:
假定从一个文本文件FileName重读字符串，每行4列，然后将其写入StringGridvar
  I,J,K,Len,Num,NumK:Integer;
  M:array[1..4] of Integer;
  S:string;
  F:Textfile;
begin
  AssignFile(F,FileName);
  Reset(F);
  Num:=0;   //行数初值为0
  while not Eof(F) do 
  begin
    Readln(F,S);
    S:=Trim(S);
    Len:=Length(S);
    if Len=0 then break;
    M[1]:=1;  //每行中第一个字符串的位置
    NumK:=1;  //每行字符串数量初值
    for I:=2 to Len do 
    begin
      if (S[I-1]=' ') and (S[I]<>' ') then 
     begin
        Inc(NumK);            //此行内字符串数量加1
        if NumK>4 then Break; //此行内字符串数量>4,不符合要求
        M[NumK]:=I;           //此行内第NumK个字符串位置
      end;
    end;
    Inc(Num);    //字符串行数加1
    with StringGrid do 
    begin
      Cells[1,Num]:=Trim(Copy(S,M[1],M[2]-M[1]));
      Cells[2,Num]:=Trim(Copy(S,M[2],M[3]-M[2]));
      Cells[3,Num]:=Trim(Copy(S,M[3],M[4]-M[3]));
      Cells[4,Num]:=Trim(Copy(S,M[4],M[5]-M[4]));
    end;
  end;
  CloseFile(F);

Answer 6

使用TiniFile进行读写 
　　① 从.INI文件中读字符串
　　var MyIni: TIniFile;
　　begin
　　MyIni := TIniFile.Create('c:\windows\win.ini');
　　edit1.text:=MyIni.ReadString('Desktop', 'Wallpaper', '');
　　end;
　　② 向.INI文件中写入字符串
　　var MyIni: TIniFile;
　　begin
　　MyIni := TIniFile.Create('c:\windows\win.ini');
　　MyIni.WriteString('desktop', 'wallpaper', 'c:\a.bmp');
　　end;　　3、用Delphi实现将纯文本资料转入数据库 　　在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？例如，有一段人事档案资料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 7

interface
uses ..., StrUtils; //StrUtils包含了很多字符串处理的函数var
 FileList,LineList: TStrings;
begin
 FileList:=TStringList.Create;
 LineList:=TStringList.Create;
 try
  FileList.LoadFromFile('d:\test.txt');
  //文件的所有内容都保存在FileList中了
  //FileList.Strings[0]是第一行
  //FileList.Strings[1]是第二行...
  //FileList.Count是行数
  Memo1.Lines:=FileList; //显示FileList中的内容
  //将FileList的第一行根据空格拆分，保存在LineList中
  if ExtractStrings([' '],[],PChar(FileList.Strings[0]),LineList)>0 then
   Memo1.Lines.AddStrings(LineList); //添加到Memo1的后面
 finally
  FileList.Free;
  LineList.Free;
 end;
end;文本文件可以按行存取，有readln, writeln等方法，但不方便
用StringList最方便，文本文件不能分辨列
如果你的列是用别的字符分割的，比如是逗号，将ExtractStrings([' ']...
的[' ']换成[',']就可以了

Answer 8

对我的上文中做点更正：
1.如果空格是由tab形成的，将此语句变动一下：
    if (S[I-1]=' ') and (S[I]<>' ') then 
2.将此语句
    Cells[4,Num]:=Trim(Copy(S,M[4],M[5]-M[4]));
  该为：
    Cells[4,Num]:=Trim(Copy(S,M[4],Len-M[4]));