如何对字符串分为子串

Question

i:=Pos(a,'|');
SubString1:=Copy(a,1,i-1);//SubString1='123';

Answer 1

//查找分割符
function FirstDelimiter(const Delimiters, S: string): Integer;
var
  i: integer;
begin
  if (Delimiters = '') or (S = '') then
  begin
    Result := 0;
    exit;
  end;
  for i := 1 to Length(S) do
    if IsDelimiter(Delimiters, S, i) then break;
  Result := i;
end;//化分子串到一个 TStrings 中, ASEPARATOR可以不止一个,例如:'|, '
procedure SplitString(AString: string; ASEPARATOR: string; AList: TStrings);
var
  p: integer;
  s: string;
begin
  AList.Clear;
  while true do
  begin
    p := FirstDelimiter(ASEPARATOR, AString);
    if p <= 0 then p := Length(AString) + 1;
    s := Trim(Copy(AString, 1, p - 1));
    if s <> '' then AList.Add(s);
    AString := Trim(Copy(AString, p + 1, Length(AString)));
    if AString = '' then break;
  end;
end;

Answer 2

//刚才的查找分割符函数存在潜在的错误,
//如果 Delimiters 和 S 都不为空,并且在 S 中找不到 Delimiters，
//那么将一直返回 1//现更改如下
//查找分割符
function FirstDelimiter(const Delimiters, S: string): Integer;
var
  i: integer;
begin  
  Result := 0;
  if (Delimiters = '') or (S = '') then exit;
  for i := 1 to Length(S) do
  begin
    if IsDelimiter(Delimiters, S, i) then 
    begin
      Result := i;
      break;
    end;
  end;
end;

Answer 3

告诉你两个我自编的函数
function  GetSubStrForward(SubStr,SourceStr:String;IncludeSubstr:Boolean):String ;
Var
Index:word ;
begin
     Index:= pos(SubStr,SourceStr) ;
     if IncludeSubstr = true then
        SourceStr:= copy(SourceStr,1,Index+length(SubStr)-1)
     else
        SourceStr:= copy(SourceStr,1,Index - 1) ;
     result:=SourceStr ;
end ;function  GetSubStrBack(SubStr,SourceStr:String;IncludeSubstr:Boolean):String ;
Var
Index:word ;
begin
     Index:= pos(SubStr,SourceStr) ;
     if IncludeSubstr = true then
        SourceStr:= copy(SourceStr,Index,Length(SourceStr))
     else
        SourceStr:= copy(SourceStr,Index+length(SubStr),Length(SourceStr)) ;
     result:=SourceStr ;
end ;
例子
GetSubStrForward('|','abc|bcd',false):='abc' ;
GetSubStrForward('|','abc|bcd',true):='abc|' ;GetSubStrBack('|','abc|bcd',false):='bcd' ;
GetSubStrBack('|','abc|bcd',true):='|bcd' ;
使用他们，就可以分析你的A了！

Answer 4

我的办法:
先对字符串进行预处理,也就是把字符串中的 " 换为 ""
把字符串里的 | 换成 ","
在字符串前后加一 "
将处理后的字符串赋给 Strings.CommaText, 这样Strings里就是所要的子串注意: 源字符串中不能含有空格,否则此法无效!

Answer 5

试试LastDelimiter。DELPHI自带的函数。

Answer 6

试试LastDelimiter。DELPHI自带的函数。

Answer 7

试试LastDelimiter。DELPHI自带的函数。

Answer 8

function ZsIif(mBool: Boolean; mDataA: Variant; 
  mDataB: Variant): Variant; { 如果Bool为True则返回DataA, 否则返回DataB }
begin
  if mBool then
    Result := mDataA
  else
    Result := mDataB;
end; { ZsIif }function ZsGoto(mStr: string; mSetChar: TSetChar; mCount: Integer = 1;
  mLeft: Boolean = True): string; { 取字串直到mSetChar在mStr中出现mCount次结束 }
var
  I, J, K, L: Integer;
begin
  Result := '';
  K := 0;
  L := Length(mStr);
  for I := 1 to L do
  begin
    J := ZsIif(mLeft, I, Succ(L - I));
    if mStr[J] in mSetChar then Inc(K);
    if K >= mCount then Break;
    Result :=
      ZsIif(mLeft, '', mStr[J]) + Result + ZsIif(mLeft, mStr[J], '');
  end;
end; { ZsGoto }function ZsTogo(mStr: string; mSetChar: TSetChar; mCount: Integer = 1;
  mLeft: Boolean = True): string; { 取字串直到mSetChar在mStr中出现mCount次开始 }
var
  I, J, K, L: Integer;
begin
  Result := '';
  K := 0;
  L := Length(mStr);
  for I := 1 to L do begin
    J := ZsIif(mLeft, I, Succ(L - I));
    if K >= mCount then Result :=
      ZsIif(mLeft, '', mStr[J]) + Result + ZsIif(mLeft, mStr[J], '');
    if mStr[J] in mSetChar then Inc(K);
  end;
end; { ZsTogo }//ZsGoto('123|wersdf|5tyy66||4k90j|', ['|'], 1, True); //'123'
//ZsTogo('123|wersdf|5tyy66||4k90j|', ['|'], 1, True); //'wersdf|5tyy66||4k90j|'
//ZsGoto('123|wersdf|5tyy66||4k90j|', ['|'], 1, False); //''
//ZsTogo('123|wersdf|5tyy66||4k90j|', ['|'], 1, False); //'123|wersdf|5tyy66||4k90j'
//ZsGoto('123|wersdf|5tyy66||4k90j|', ['|'], 2, True); //'123|wersdf'
//ZsTogo('123|wersdf|5tyy66||4k90j|', ['|'], 2, True); //'5tyy66||4k90j|'

Answer 9

这是本人用 PB 写的函数，希望对你有用！String f_GetSubString(String ps_String, Integer pi_Index, String ps_Sep)/*********************************************************************功能说明： 获取字符串子串

参数说明： ps_String 字符串
pi_Index 子串序号
ps_Sep 分隔符

返 回 值： 字符串子串，若失败则返回空串

*********************************************************************/String ls_SubString
Integer p, ips_String = Trim(ps_String)p = Pos(ps_String, ps_Sep)
If p <= 0 Then p = Len(ps_String) + 1ls_SubString = Left(ps_String,  p - 1)For i = 2 To pi_Index
    ps_String = Trim(Right(ps_String, Len(ps_String) - Len(ls_SubString) - 1))    p = Pos(ps_String, ps_Sep)
    If p <= 0 Then p = Len(ps_String) + 1

    ls_SubString = Left(ps_String,  p - 1)
NextReturn ls_SubString

Answer 10

作一个For循环,或While循环,用Pos与Copy函数即可