读取一个文本文件~555

[xcex]

里面是一些记录
格式是这样的
003,0,24,20020312,0000
888,0,23,20020312,0000

每行是一条记录，字段用逗号隔开
怎么把它读出来啊，比如说怎么去判断逗号和换行符号啊

能帖出代码吗？谢谢了

[cobi]

如果文本不是太大的话，用memo.lines.loadfromfile读入，然后用memo.lines[i]去一行一行的 处理。

至于如何读取字段记录，可以定义一个数组，
var
FieldValue : Array of String;

setlength(FieldValue,4);
for J := 0 to memo1.lines.count do
begin
tmpstr := memo1.lines[J];

for I := 0 to 3 do
begin
FieldValue[I] := copy(tmpstr,1,pos(',',tmpstr) - 1);
tmpstr := copy(tmpstr,pos(',',tmpstr),length(tmpstr) - pos(',',tmpstr));
end;
end;

[robinson]

var f:TxtFile;
s:string;
List:TStringList;//保存你所需的数据
begin
List:=TStringList.create;
AssignFile(f,'c:\test.txt');
if fileexists(f) then
begin
reset(f);
while eof(f) do
begin
readln(f,s);
if pos(',',s)>0 then
begin
List.add(Copy(s,1,pos(',',s)));
delete(s,1,pos(',',s));
end
else
List.add(s);
end;
end;
List.free;
end;

[40Star]

94
使用Tstringlist最简单！

[墨梅无痕]

//我给你定义一个文件格式：
TMyFileRecord = record
Field1: string[3];
Comma1: char;
Field2: Integer;
Comma2: char;
Field3: Integer;
Comma3: char;
Field4: string[8];
Comma4: char;
Field5: string[4];
end;
TMyFile = file of TMyFilerecord;

var
MyFileRecord: TMyFileRecord;
Myfile: TMyFile;
begin
AssignFile(MyFile, {FileName});
Reset(MyFile);
ReadLn(MyFile, MyFileRecord);
...
CloseFile(MyFile);
end;

[yan_hon]

定义一个函数，一行一行地读（readln)，对于每一行，一个一个字符地读，
最好事先知道有几个字段（逗号），然后用循环读取特定两个逗号之间的字符。

[INeedCa]

oldp := 1;
p := Pos(',',Str);
Copy(Str, oldp, p - oldp);
oldp := p + 1;

[ihihonline]

如果，你现在已经知道了里边的信息，就很好做了
逗号
换行符号啊用readln(....)就可以了；用reset打开：)
先获得每个字段的长度；就知道了字符串；去读就可以了