delphi 中 我如何在listbox 里面提取数字 比如： Reply from 123.125.114.174: bytes=32 time=77ms TTL=50
发布网友
发布时间：2022-04-24 02:59
共2个回答
热心网友
时间：2023-10-23 10:00
用正则表达式：time=(\d+)ms
Match(1)即是你要的结果
正则表达式参考：
Delphi 正则表达式应用
http://wenku.baidu.com/view/fc2dea5f804d2b160b4ec003.html
参考资料：http://wenku.baidu.com/view/fc2dea5f804d2b160b4ec003.html
热心网友
时间：2023-10-23 10:01
procere TForm1.Button1Click(Sender: TObject);
var
s: String;
i,j: Integer;
begin
s := ListBox1.Items[0];
i := Pos('time=',s);
if i <= 0 then Exit;
j := Pos('ms',s);
if j <= 0 then Exit;
ShowMessage(Copy(s,i + Length('time='),j - i - Length('time=')));
end;
