您的位置:首页 > 编程语言 > Delphi

delphi 解析规律字符串方法

2020-03-02 01:57 609 查看

//vstr:需要解析字符串,count:位置编号,sign:分隔符

//如果需要解析的字符串不包含中文unicode编码,将字符类型全部替换为string;

解析 xx|xxxx|xxxxx|xxxxx| 此种类型的字符串

function getpart(vstr: WideString; count: Integer; sign: WideString): WideString;

var i,j:Integer ;
  s:WideString;
begin
  Result:='' ;
  if count=0 then Result :=''
  else
  begin
    for i:=0 to count-1 do
    begin
      j:=Pos(sign,vstr);
      if j=0 then
      begin
        s:='';
        break;
      end
      else
      begin
        s:=LeftStr(vstr,j-1);
        vstr:=rightstr(vstr,Length(vstr)-length(s)-length(sign));
      end;
    end;
    result:=s;
  end;
end;
  • 点赞
  • 收藏
  • 分享
  • 文章举报
wizard_zq 发布了2 篇原创文章 · 获赞 0 · 访问量 5920 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: