高手请进！

Question

小弟遇到个问题
如下：
刘稍 530181197408024922
斯蒂芬 520127196303135647
电饭锅 560127196401095624
以上是个文本文件
我想分别提取出其中的姓名和身份证号码，然后分别赋值给两个数组
请问这样的代码该怎么写啊！
谢谢！

Answer 1

var
  mylist:TstringList;
  s,s1,s2:string;
  i,j:integer;
begin
  mylist:=TStringList.create();
  mylist.loadfrom('file.txt');
  for i:=0 to mylist.count-1 do
  begin
    s:=mylist[i];
    j:=pos(' ',s);
    if j>1 then
    begin
      s1:=copy(s,1,j-1);
      s2:=copy(s,j+1,18);
      ...
    end;
  end;
  mylist.free;
end;

Answer 2

首先谢谢楼上的解答，但用了才发现，原来那空白不是空格键，我是直接从EXCEL粒米复制过来的
不知道是什么符号！