Question

【delphi】请教各位老师，这样的字符串应该如何截取。？

原字符串：
[中国]<color=255,206,102>北京：丰台/角门 [<shortcut=L,194>]<color>
<color=205,247,255>角门西里<pos=望京小区,43,778,306>10号楼：5/502<color>

注：↑以上是两行

我想得到的字符串：
[中国]北京：丰台/角门
角门西里 望京小区 43 778 306 10号楼 5 502

太复杂了 实在搞不懂 希望各位老师能帮助一下，先谢谢了

Answer 1

解决方法如下：

1. 先下载TPerlRegEx，再安装下，这个是正则表达式的一个类，文件不大。

2. 在单元文件里先 uses PerlRegEx; 编写示例代码如下：

procedure TForm2.Button1Click(Sender: TObject);
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create();
reg.Subject := '[中国]<color=255,206,102>北京：丰台/角门 [<shortcut=L,194>]<color>'+#10#13+
'<color=205,247,255>角门西里<pos=望京小区,43,778,306>10号楼：5/502<color>';
reg.RegEx := '<color.*?>|\[<shortcut=.*?\]|<pos=|[,>]';
reg.Replacement := ' ';
reg.ReplaceAll;
ShowMessage(reg.Subject); //
FreeAndNil(reg);
end;

Answer 2

如果格式是固定的，可以判断< > = 等字符，然后用CPOY函数取。如果格式不是固定的，建议使用XML类来做。

Answer 3

其实判断ASCIII码值也可以滴

Answer 4

没学过