如何处理如下的文件内容的读取？送分了！
一文本文件的内容：
XXXX(姓名） XXX@371.NET
XXXX XXXX@163.NET
.....
....
等如何首先把姓名读到一个变量里（NAME),再把邮件地址读到一个变量里（EMAIL)
我不太会操作文件的读取，谢谢各位了！
问题点数：50、回复次数：3Top
1 楼zyb（）回复于 2000-11-22 16:31:00 得分 15
var
F : TextFile;
s : string;
AssignFile(F,'文件名');
try
Reset(F);
ReadLn(s);
finally
CloseFile(F);
end;
然后对s进行处理，分解出“姓名”和“网络地址”Top
2 楼rabbit（Mail_Man）回复于 2000-11-22 18:14:00 得分 15
var
line,name,email :String;
begin
....
ReadLn(line);
Name := copy(line,1,Pos(' ',line));
Email:= copy(line,Pos(' ',line),length(line));
Name := Trim(Name);
Email:= Trim(Email);
// 循环读就是了.
// 有一点Name 中不能有空格.
end;Top
3 楼gameboy999（-'_'-）回复于 2000-11-22 18:26:00 得分 20
前面加入这些
var
name: string;
email:string;
i:integer;
然后在readln(s)后加上这些
i:=0;
while(s[i]<>' ')
i:=i+1
wend;
name:=left(s,i); //我也没试过delphi里的字串操作函数,可能不对
email:=right(s,i); //先假定是这样吧
Top
