偶又来了 还是关于delphi字符串的问题

Question

有一下字符串：
雷建军</a>
      
      先生
   (总经理)怎么样把它转换成 ：“雷建军 先生 总经理”的格式 谢谢了 加分

Answer 1

晕，pos还不会用啊，昨天好象也是你发的贴，是做作业吗？

Answer 2

pos加copy。不会用上网找，很多例子

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s,sResult:string;
begin
  s:='雷建军 </a>先生(总经理)';
  sResult:=copy(s,1,6)+' ';
  sResult:=sResult+copy(s,pos('先',s),4)+' ';
  sResult:=sResult+copy(s,pos('总',s),6);
  ShowMessage(sResult);
end;
汉字占两个字符...

Answer 4

意思是要把符号字符作分隔符？？
先把成对<>换成空格，然后使用分隔符切隔。具体看ExtractStrings

Answer 5

用Pos Copy就行了
这些都是很基本的东东啊

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
    s := '雷建军</a>先生(总经理)';
    s := StringReplace(s, '</a>', '', [rfReplaceAll]);
    s := StringReplace(s, '(', '', [rfReplaceAll]);
    s := StringReplace(s, ')', '', [rfReplaceAll]);
    ShowMessage(s);
end;

Answer 7

方法很多
1,可以用pos,copy等函数去字符串2,可以先把'<','>','(',')'替换成一个一样的字符,比如':',然后可以用TStringList,用下面的方法procedure GetStr(str:string);
var
  list :TstringList;
  i: integer;
begin
  list := TStringList.Create;
  list.Delimiter := ':';
  list.DelimitedText := str;
  for i := 0 to list.Count - 1 do
  begin
    if list.Strings[i] = '' then
    begin
      continue;
    end
    else
    begin
      //组合字符串
    end;
  end;
end;