Delphi : 分割字符串string，取出截取中间字符串

(2012-05-17 09:50:26)

Function FindStr(BegSprStr,EdSpStr:String;var Source:String):String;
var
BegStr1Len,EdSpStr2Len,BegStr1Index,EdSpStr2index:integer;
Temp:String;
begin
Temp:=Source;
BegStr1Index:=Pos(BegSprStr,Temp);
BegStr1Len:=Length(BegSprStr);
delete(Temp,BegStr1Index,BegStr1Index+BegStr1Len-1);
EdSpStr2index:=Pos(EdSpStr,Temp);
EdSpStr2Len:=Length(EdSpStr);
Result:=Copy(Temp,1,EdSpStr2index-1);
Delete(Temp,1,EdSpStr2index+EdSpStr2Len-1);
Source:=temp;
end

該函數的功能就是取兩個相隔符之間的字符.
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';
-----------------------------------------------------------------------------

因为喜欢用文本来记录数据，比如帐号密码等等，一个游戏帐户一行

帐号1,密码1,游戏区11

帐号2,密码2,游戏区11

需要用到分割字符串函数。

delphi的Classes有ExtractStrings函数，感觉用起来不好，后来网上找了个，如下

function SplitString(pString:Pchar;psubString:PChar):TStringList;
var
   nSize,SubStringSize:DWord;
   intI,intJ,intK:DWORD;
   ts:TStringList;
   curChar:Char;
   strString:string;
   strsearchSubStr:string;
begin
   nSize:=strLen(pString);
   SubStringSize:=strLen(PSubString);
   ts:=TStringList.Create;
   strstring:='';
   inti:=0;
   while intI<=(nSize-1) do
   begin
      if (nsize-inti)>= substringSize then
      begin
          if ((PString+intI)^=pSubString^) then
          begin
             intk:=inti;
            strSearchSubStr:='';
            curchar:=(pstring+intk)^;
            strsearchSubStr:=strSearchSubStr+Curchar;
            intk:=intk+1;
            for intj:= 1 to SubStringSize-1  do
            begin
               if ((pString+intk)^=(PSubString+intj)^) then
               begin
                  curchar:=(pstring+intk)^;
                  intk:=intk+1;
                  strsearchSubStr:=strSearchSubStr+Curchar;
            end
            else begin
              inti:=intk;
              strString:=strString+strSearchSubStr;
              break; //不匹配 退出FOR
            end;
        end;
         if (intJ=substringSize) or (SubStringSize=1) then
         begin
            inti:=intk;
            ts.add(strstring);
            strstring:='';
         end;
      end
      else begin
         curChar:=(pString+inti)^;
         strstring:=strstring+curchar;
         inti:=inti+1;
      end;
      if inti=nsize then
      begin
         ts.Add(strString);
         strString:='';
       end;
     end
     else begin //将剩下的字符给作为一个字符串复制给字符串集合
        strString:=strstring+string(pString+inti);
        ts.Add(strstring);
        inti:=nsize;
     end;
   end;
   Result:=ts;

end;

-----------------------------------------------------------------------------------------

确实很有用，但是这个怎么把空格也默认为分割符了呢，谁知道怎样把空格不认为是分割符的？？ TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来： 1

确实很有用，但是这个怎么把空格也默认为分割符了呢，谁知道怎样把空格不认为是分割符的？？ TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：
const
   constr :String = 'aaa,bbb,ccc,ddd';
var
   strs :TStrings;
   i :Integer;
begin
   strs := TStringList.Create;
   strs.CommaText := constr;
   for i := 0 to Strs.Count-1 do
     ShowMessage(Strs[i]);
end;
执行了这段代码后，可以看到ShowMessage显示出来的分别是：aaa bbb ccc ddd。
也就是说，strs.CommaText := constr这一句的作用，就是把一个字符串以','为分割符，分段添加到TStrings中。
那么如果不是以','来分割，又该怎么做呢？现在看第二个例子。使用Delimiter和DelimitedText。
const
   constr :String = 'aaa/bbb/ccc/ddd';
var
   strs :TStrings;
   i :Integer;
begin
   strs := TStringList.Create;
   strs.Delimiter := '/';
   strs.DelimitedText := constr;
   for i := 0 to Strs.Count-1 do
     ShowMessage(Strs[i]);
end;
可以看到， 显示的效果和第一个例子是一模一样的。解释一下：
Delimiter为分隔符，默认为：','。DelimitedText就是按Delimiter为分隔符的一个串，得到赋值后回把这个字符串按Delimiter的字符添加到TStrings中。
说到这里，有想起一个属性，QuoteChar。其默认值为：'"'（不包括单引号）
有何用呢？看例子：
const
   constr :String = '"aaa"/"bbb"/"ccc"/"ddd"';
var
   strs :TStrings;
   i :Integer;
begin
   strs := TStringList.Create;
   strs.Delimiter := '/';
   strs.DelimitedText := constr;
   for i := 0 to Strs.Count-1 do
     ShowMessage(Strs[i]);
end;
显示出来的仍然是aaa bbb ccc ddd。为什么不是："aaa" "bbb" "ccc" "ddd"呢？
再来看一个例子：
const
   constr :String = '|aaa|/|bbb|/|ccc|/|ddd|';
var
   strs :TStrings;
   i :Integer;
begin
   strs := TStringList.Create;
   strs.Delimiter := '/';
   strs.QuoteChar := '|';
   strs.DelimitedText := constr;
   for i := 0 to Strs.Count-1 do
     ShowMessage(Strs[i]);
end;
显示出来的又是aaa bbb ccc ddd。对比一下，应该不难明白吧？这个就不多说了，用得也不多。
但是还要多说一句，当Delimiter为：','而QuoteChar为：'"'时，DelimitedText和CommaText是同等的。
最后要说的三个是：Names & Values & ValueFromIndex。
看看下面的代码：
const
   constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';
var
   strs :TStrings;
   i :Integer;
begin
   strs := TStringList.Create;
   strs.CommaText := constr;
   for i := 0 to strs.Count-1 do
   begin
     ShowMessage(strs.Names[i]);
     ShowMessage(strs.Values[strs.Names[i]]);
     ShowMessage(strs.ValueFromIndex[i]);
   end;
end;
通过这个例子不难看出：
这个时候strs中的内容是：
0=aaa
1=bbb
2=ccc
3=ddd
而Names中则是：
0
1
2
3
在Values中则是：
aaa
bbb
ccc
ddd----------------------------------------------------------------------------------------------
Delphi分割字符串的函数--ExtractStrings

Unit
Classes
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Separators 参数指定一组分割符，所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略（参看下面的例子）。
WhiteSpace 参数指定每个子串开头被忽略的字符s。
Content 参数就是被分割的“源”串了。
Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。别忘了Create哦。
另外，EctractStrings不会把（忽略WhiteSpaces后的）空串加入到Strings中。

例子如下：

uses
   Classes;
var
   ASource: PChar;
   AStr: String;
   ACount: Integer;
   AStrings: TStringList;
begin
   ASource := 'ABC|...   DEF|#### GHI|"|# ;
   AStrings := TStringList.Create;
   try
     ACount := ExtractStrings(['|'], [' ','#','.'], ASource, AStrings);
     {do any further processing}
     //for AStr in AStrings do
     //   Writeln(AStr);
   finally
     AStrings.Free;
   end;

Readln;
end.
结果得到下面四个字符串：
     1、ABC
     2、DEF
     3、GHI
     4、|# www.sohu.com