当前位置: 首页>后端>正文

DB2中字符串函数 db2 取字符串中间几位

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

 

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;
    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;
     Readln;
 end.


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

 


https://www.xamrdz.com/backend/3g21934833.html

相关文章: