DELPHI 字符串分割处理

DELPHI 字符串分割处理

Code
 1Function FindStr(BegSprStr,EdSpStr:String;var Source:String):String; 
 2var 
 3BegStr1Len,EdSpStr2Len,BegStr1Index,EdSpStr2index:integer; 
 4Temp:String; 
 5begin 
 6Temp:=Source; 
 7BegStr1Index:=Pos(BegSprStr,Temp); 
 8BegStr1Len:=Length(BegSprStr); 
 9delete(Temp,BegStr1Index,BegStr1Index+BegStr1Len-1); 
10EdSpStr2index:=Pos(EdSpStr,Temp); 
11EdSpStr2Len:=Length(EdSpStr); 
12Result:=Copy(Temp,1,EdSpStr2index-1); 
13Delete(Temp,1,EdSpStr2index+EdSpStr2Len-1); 
14Source:=temp; 
15end 

該函數的功能就是取兩個相隔符之間的字符.
var Source:string
Source:=<1111>string1<1122><2233>string2<3344><4455>string3<5566>;
string1:=FindStr('<1111>','<1122>',Source);
String2:=FindStr('<2233>','<3344>',Source);
String3:=FindStr('<4455>','<5566>',Source);





//---------------------------------------------我想取得一个email地址的用户名

function myuser(email:string):string;
var
i,n:integer;
begin
n:=pos('@',email);
result:=copy(email,0,n-1);//改了一下
end;

//---------------------------------------------
下面就可以取出
leftstr(emaddress,Pos('@',emaddress))

//---------------------------------------------
uses IdGlobal;
User := Fetch(EmailAddress, '@');

//--------------------------------
ExtractStrings（要分隔的字符串，分隔字符串用的字符集合，分隔后排在第一位的消去的字符集合，字符串列表对象）





另一个函数SplitString
//这个我最喜欢用了
function SplitString(const source, ch: string): TStringList;
var
  temp, t2: string;
  i: integer;
begin
  result := TStringList.Create;
  temp := source;
  i := pos(ch, source);
  while i <> 0 do
  begin
    t2 := copy(temp, 0, i - 1);
    if (t2 <> '') then
      result.Add(t2);
    delete(temp, 1, i - 1 + Length(ch));
    i := pos(ch, temp);
  end;
  result.Add(temp);
end;

例子：

st := SplitString('xxx@hoho.com', '@');
则
st[0] = 'xxx';
st[1] = 'hoho.com';

转载于:https://www.cnblogs.com/lobtao/archive/2009/06/11/1501716.html