求一个折分字符串的算法，请帮帮忙！ ( 积分: 100 )

hlei · 2005-12-17

hlei · 2005-12-17

雾锁长河 · 2005-12-17

//由于使用了LeftStr函数，所以要引用StrUtils //s:源串, s1 标志字符串 function TForm1.GetSubstr(s,s1:string):Tstringlist; var  sTemp:String;  n:Integer; begin  Result:=TStringList.Create;  if s=''then exit;  sTemp:=s;  n:=pos(s1,s);  while n >0 do  begin     Result.add(LeftStr(sTemp,n-1));     Delete(sTemp,1,n);     n:=pos(s1,sTemp);    //重新赋值给n，继续循环  end;  Result.add(sTemp);  //最末端的那个子字符串 end;

雾锁长河 · 2005-12-17

你也可以使用copy函数代替leftstr，copy在system单元中，不必引用。 Result.add(LeftStr(sTemp,n-1));

pascal · 2005-12-17

1. LeftBStr函数 var   s,a,b,c : string ;   i : integer ; begin   s := '123|456|789' ;   i := Pos('|',s) ;   a := Copy(s,1,i-1);   delete(s,1,i);   i := Pos('|',s) ;   b := Copy(s,1,i-1);   c := Copy(s,i+1,Length(s)) ; end;

菜鸟黄 · 2005-12-17

edit1.text:=123|456|789; A:=copy(edit1.text,1,3); B:=copy(edit1.text,5,7); c:=copy(edit1.text,9,Length(edit1.text));

nicai_wgl · 2005-12-17

简单，如下 var  i, flag, StrPos: Integer;  Str: string; begin  Str := '123|456|789';  flag := 0;  for i := 1 to Length(Str) do  begin    if Str = '|' then    begin      Inc(flag);      case flag of        1: A := Copy(Str, 1, i - 1);        2: B := Copy(Str, StrPos , i - StrPos);        3: C := Copy(Str, StrPos , i - StrPos);      end;      StrPos := i + 1;    end;  end; end;

菜鸟黄 · 2005-12-17

procedure TForm1.Button1Click(Sender: TObject); var  s,A,B,C:string;  i:integer; begin  s:='123|456|789';  i:=pos('|',s);  A:=copy(s,1,i-1);  delete(s,1,i);  i:=pos('|',s);  B:=copy(s,1,i-1);  delete(s,1,i);  C:=copy(s,1,length(s)) ; end;

bbscom · 2005-12-17

{=================================================================  功  能:  長字符串，分隔為數組  參  數:  StrArray：字符串  StrNo：字符串中的標示符  返回值:  TStringList  調用方法： GetArrayData('12*23*34*45','*') =================================================================} Function TForm1.GetArrayData(StrArray:String;StrNo:String):TStringList; var  StrTmp,CopyStr:string;  PosI:Integer;  ResultList:TStringList; begin  StrTmp:=StrArray + StrNo;  CopyStr:=StrArray + StrNo;  ResultList:=TStringList.Create;  while Length(StrTmp) > 0 do  begin    PosI:=Pos(StrNo,StrTmp);    CopyStr:=Copy(StrTmp,1,PosI-1);    ResultList.Add(CopyStr);    Delete(StrTmp,1,PosI);  end;  Result:=ResultList; end; procedure TForm1.Button1Click(Sender: TObject); begin  ListBox1.Items.Text:=GetArrayData('12|23|34|45','|').Text; end;

菜鸟黄 · 2005-12-17

procedure TForm1.Button1Click(Sender: TObject); var  s:string;  i,n:integer; begin  s:=trim(edit1.Text)+'|' ;  n:=0;  i:=pos('|',s);  while i>0 do  begin      inc

;      case n of        1:edit2.Text :=copy(s,1,i-1);        2:edit3.Text :=copy(s,1,i-1);        3:edit4.Text :=copy(s,1,i-1);      end;      delete(s,1,i);      i:=pos('|',s);  end; end;

菜鸟黄 · 2005-12-17

结贴给分啦~~~

wuyongzhen · 2005-12-17

var  s,A,B,C: string;  i:integer; begin s:=edit1.Text; i:=pos('|',s); A:=copy(s,1,i-1); S:=copy(s,i+1,length(s)-i); i:=pos('|',s); B:=copy(s,1,i-1); S:=copy(s,i+1,length(s)-i); i:=pos('|',s); C:=copy(s,1,i-1); S:=copy(s,i+1,length(s)-i); end;

Avalon · 2005-12-17

procedure TForm1.Button1Click(Sender: TObject); var  v_Str: TStrings;  v_Count: Integer; begin  v_Str := TStringList.Create;  v_Str.Delimiter := '|';  v_Str.DelimitedText := '123|456|789';  for v_Count  := 0 to v_Str.Count -1 do    Memo1.Lines.Add(v_Str.Strings[v_Count]);  //Memo1.Lines := TStrings(v_Str);  v_Str.Free; end;

left168 · 2005-12-17

我用了两年，没有问题的 之所以用WideString是因为处理汉字占两个字符的长度问题 分给我，我这里还有处理此类字符串的整套函数 function GetPartStr(S:WideString; iPosition:Integer;  sSeparator:WideString='|'):String; var  i,iLength,iIndex,iCurrentPosition:Integer; begin  Result:='';  if (RightStr(S,1)<>sSeparator) then S:=S+sSeparator;  iIndex:=1; iCurrentPosition:=1; iLength:=Length(S);  for i:=1 to iLength do    if (S=sSeparator) then      if (iCurrentPosition=iPosition) then begin        Result:=Trim(System.Copy(S,iIndex,i-iIndex));        Break;      end    else begin      Inc(iCurrentPosition);      iIndex:=i+1;    end; end;

sailsoft · 2005-12-17

分给Avalon，我这还有一种： procedure TForm1.Button1Click(Sender: TObject); var  v_Str: TStrings; begin  v_Str := TStringList.Create;  v_Str.Text := StringReplace('123|456|789','|',#13#10,[rfReplaceAll]);  Memo1.Lines := v_Str;  v_Str.Free; end;

xianguo · 2005-12-17

ExtractStrings(['|'], [], '123|456|789', Memo1.Lines);

plenilune168 · 2005-12-17

楼上几位借助 TStrings 的方法如果字符串中包含回车换行就不能用了，要么先把回车换行替换处理，要么用另外的方法。我这里有一组专门处理这些字符串的函数供参考，其中字符串转成数组的有两个不同的，一个借助TStrings处理（对于包含回车换行的有问题），另一个直接处理字符串（效率低一点） function StrExistsCount(S,Sub:string;CanRepeat:boolean;IsCaseSensitive:boolean):integer; var i,j:integer;    s1:string;    len:integer; begin  //一个字符串在另一个字符串中出现的次数  Result:=0;  if length(s)<length(sub) then exit;  j:=0;  len:=length(sub);  if IsCaseSensitive then    s1:=sub  else    s1:=LowerCase(sub);  if CanRepeat then    begin      for i:=1 to length(s)-len+1 do      begin        if IsCaseSensitive then          begin            if copy(s,i,len)=s1 then inc(j)          end        else          begin            if LowerCase(copy(s,i,len))=s1 then inc(j)          end;      end;    end  else    begin      i:=1;      while i<=length(s)-len+1 do      begin        if IsCaseSensitive then          begin            if copy(s,i,len)=s1 then              begin                inc(j);                i:=i+len;                Continue;              end;          end        else          begin            if LowerCase(copy(s,i,len))=s1 then              begin                inc(j);                i:=i+len;                Continue;              end;          end;        inc(i);        end;    end;  Result:=j; end; function DimLBound(d:Variant):integer; begin  //数组下限  if VarIsArray(d) then    Result:=VarArrayLowBound(d,1)  else    Result:=-1; end; function DimHBound(d:Variant):integer; begin  //数祖上限  if VarIsArray(d) then    Result:=VarArrayHighBound(d,1)  else    Result:=-1;   end; function IsDim(d:Variant):boolean; begin  //判断是否为数据变量  Result:=VarIsArray(d); end; function DimCount(d:Variant):integer; begin  //数组长度  if VarIsArray(d) then    Result:=DimHBound(d)-DimLBound(d)+1 else    Result:=-1; end; function DimToStr(d:Variant;Separator:string):string; var i:integer;    s:string; begin  //数组合成字符串  s:='';  if VarIsArray(d) then    for i:=DimLBound(d) to DimHBound(d) do      s:=s+String(d)+Separator;  if s<>'' then delete(s,length(s)-length(Separator)+1,length(Separator));  Result:=s; end; function StrToDim(S,Separator:string):Variant; var d:Variant;    i,l:integer;    StrList:TStrings; begin  //字符串转换为数（组若内容包含#13，则数据不正确）  Result:=Null;  if s='' then exit;  s:=StringReplace(s,Separator,#13#10,[rfReplaceAll,rfIgnoreCase]);  StrList:=TStringList.Create;  try    StrList.Text:=s;    l:=StrList.Count-1;    d:=VarArrayCreate([0,l],varVariant);    i:=0;    while i<=l do    begin      d:=StrList.Strings;      inc(i);    end;  finally    FreeAndNil(StrList);  end;  Result:=d; end; function StrToDim(S,Separator:string):Variant; var d:Variant;    i,j,k,len,len1,l:integer; begin  //字符串转换为数组(效率不高，代码可读性差)  Result:=Null;  if s='' then exit;  s:=s+separator;  l:=StrExistsCount(s,separator,false,false);  separator:=LowerCase(separator);  len:=length(s);  len1:=length(Separator);  k:=0;  d:=VarArrayCreate([0,l-1],varVariant);  i:=1;  while i<=len-len1 do  begin    for j:=i to len do    if LowerCase(Copy(s,j,len1))=separator then    begin      if k<=l-1 then d[k]:=copy(s,i,j-i);      inc(k);      break;    end;    i:=j+len1;  end;  Result:=d; end; -------------------------------------- var v:Variant;    s:string; begin  s:='12,23,12,234,12234,231'  v:=StrToDim(s,',');  v[0]:=……  v[1]:=…… end;

hlei · 2005-12-19

多人接受答案了。

求一个折分字符串的算法，请帮帮忙！ ( 积分: 100 )

hlei

Unregistered / Unconfirmed

hlei

Unregistered / Unconfirmed

雾锁长河

Unregistered / Unconfirmed

雾锁长河

Unregistered / Unconfirmed

pascal

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

菜鸟黄

Unregistered / Unconfirmed

wuyongzhen

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

left168

Unregistered / Unconfirmed

sailsoft

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

hlei

Unregistered / Unconfirmed

Similar threads