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

ゞ浴缸里的玫瑰 2022-06-18 05:22 902阅读 0赞

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

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

<table style="margin:0px; padding:0px"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px 10px 0px 0px; font-family:宋体; vertical-align:top"> <span style="color:rgb(135,135,135)">标签：</span>&nbsp; <h3 style="margin:0px 5px 0px 0px; padding:0px; border:0px; list-style:none; display:inline; font-size:12px; font-weight:normal"> <a href="http://search.sina.com.cn/?c=blog&amp;q=it&amp;by=tag" style="text-decoration:none; color:rgb(55,133,80); white-space:nowrap" rel="nofollow">it</a></h3> </td> 
   <td style="margin:0px; padding:0px; font-family:宋体; vertical-align:top; width:220px; white-space:nowrap"> <span style="color:rgb(135,135,135)">分类：</span>&nbsp;<a href="http://blog.sina.com.cn/s/articlelist_1255162597_4_1.html" style="text-decoration:none; color:rgb(55,133,80)" rel="nofollow">软件_Software</a></td> 
  </tr> 
 </tbody> 
</table>

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][email]);  
result:=copy(email,0,n-1);//改了一下  
end;  
//---------------------------------------------  
下面就可以取出  
leftstr(emaddress,Pos(['@',emaddress][email]))  
//---------------------------------------------  
uses IdGlobal;  
User := Fetch(EmailAddress, ['@'][email]);  
//--------------------------------  
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'][email], ['@'][email]);  
则  
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][]

[email]: mailto:'%20rel=
[www.sohu.com]: http://www.sohu.com/