[function]找出在一字串中第n次出現某個字串的位置(PosEx2)

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1300
註冊時間: 2008年 11月 26日, 00:49

[function]找出在一字串中第n次出現某個字串的位置(PosEx2)

文章 tim » 2008年 11月 28日, 13:59

[function] function PosEx2(const SubStr, S: string; OrdNum: integer): integer;
// SubStr 是要查找的子字串, S 是原始字串, OrdNum 是要找第幾個

代碼: 選擇全部

     
    function PosEx2(const SubStr, S: string; OrdNum: integer): integer; 
    var 
      i: integer; 
    begin 
      Result := 0; 
      For i:=1 to OrdNum do 
      begin 
        Result := PosEx(SubStr, S, Result+1); 
        if Result > 0 then 
          continue 
        else 
        begin 
          Result := 0; 
          break; 
        end; 
      end; 
    end; 
多多留言, 整理文章, 把經驗累積下來.....

回覆文章