F frankie_24 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-04 #1 在TEXT文本中,有多行数据,类似 123 12 1212 000 中间的空格数不定! 现在希望分别取出 123 12 1212 000 谢谢了!
Z zywcd Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-04 #2 tstr:='123 12 1212 000 '; tstr:=trim(tstr); K:=strtoint(copy(tstr,1,pos(' ',tstr)-1);//取第一个， tstr:=trim(tstr); K1:=strtoint(copy(tstr,1,pos(' ',tstr)-1);//取第二个， 你自己慢慢循环好了。
tstr:='123 12 1212 000 '; tstr:=trim(tstr); K:=strtoint(copy(tstr,1,pos(' ',tstr)-1);//取第一个， tstr:=trim(tstr); K1:=strtoint(copy(tstr,1,pos(' ',tstr)-1);//取第二个， 你自己慢慢循环好了。
S szhcracker Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-04 #3 你把字符串中的空格用#13#10替换（怎样替换不用写了吧？）后再处理就简单多了。
L lisongmagic Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-04 #4 写了段代码，测试ok procedure TForm1.Button1Click(Sender: TObject); var sl: tstrings; begin sl:= tstringlist.Create; try sl.LoadFromFile('d:/b.txt'); sl.Delimiter:= ' '; sl.DelimitedText:= sl.Text; memo1.Lines.Assign(sl); finally sl.Free; end; end;
写了段代码，测试ok procedure TForm1.Button1Click(Sender: TObject); var sl: tstrings; begin sl:= tstringlist.Create; try sl.LoadFromFile('d:/b.txt'); sl.Delimiter:= ' '; sl.DelimitedText:= sl.Text; memo1.Lines.Assign(sl); finally sl.Free; end; end;
F frankie_24 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-04 #5 zywcd,szhcracker谢谢二位,我就是用你们说的方法写的,但是感觉效率一般,因为我的数据量很大,所以发帖子问问有没有别的方法. lisongmagic.谢谢你了,又学习了.
