Delphi · 2025年6月10日

Delphi使用正则表达式去除字符串前的0

在工作中,经常需要使用到去除字符串的空格啊0啊等等的需求;之前经常使用的就是for循环,遇到个把数据效率低点也没啥问题;最近遇到一个动不动就要对几十万个数据进行处理的,而且字符串也特别的长,导致效率有点低,于是决定改一下~ 代码很简单,每啥技术,自己做个标记直接贴代码了

uses
  System.RegularExpressions;
  
var
  str: string;
  regex: TRegEx;
begin
  str := '90001020300';
  regex := TRegEx.Create('^0+'); // 创建一个正则表达式对象,匹配开头的0+
  str := regex.Replace(str, ''); // 替换匹配的部分为空字符串,即去除开头的0
end;

//待处理字符串     处理后  
//90001020300    90001020300
//01000203048    1000203048
//00103343456    103343456
//00108675643    108675643
//79000003342    79000003342
//10000000000    10000000000 
Pascal