请问下面这段字符串如何处理

Question

|1#24#8615924179783#拉#08-11-19 15:13:018
我要提取 15924179783
#拉#   这##之间字数不定  （短信的内容）还有最后的时间这三个部分请问如何读取

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  SS: TStringList;
  I: integer;
begin
  S := '|1#24#8615924179783#拉#08-11-19 15:13:018';
  SS := TStringList.Create;
  SS.Text := StringReplace(StrPas(@S[2]), '#', #10, [rfReplaceAll]);
  for I := 0 to SS.Count-1 do
    Showmessage(SS[I]);  Showmessage(StrPas(@SS[2][3]));  SS.Free;
end;

Answer 2

1）找到#86的位置：n := Pos('#86',s), 然后 Copy(s,n,11)，就是手机号码
2）找到空格位置：n := Pos(' ',s)，然后 Copy(s,n,9），时间