【字符】不區分大小寫替換,Replace 是要區分大小寫的

  勇芳 2017-4-5 4533

Function ReplaceCaseIns( Str As String ,mStr As String ,NewStr As String) As String  '不區分大小寫替換
    Local uStr,tStr,umStr As String
    Local f1,f2,ti,si,L1,L2 As Long      
    uStr=UCase$(Str)
    umStr=UCase$(mStr)
    tStr= String$(Max&(1000, 2 * Len(Str)), 0) '創建足夠大的輸出緩沖區
    f2=1
    ti=StrPtr(tStr)
    si=StrPtr(Str)
    L1=Len(mStr)
    L2=Len(NewStr)
    Do    
        f1=Instr(f2,uStr,umStr)
        If f1=0 Then
            Memory Copy si+f2-1, ti , Len(str)-f2+1
            ti=ti+ (Len(str)-f2+1)
            Exit Do
        End If
        Memory Copy si+f2-1, ti , f1-f2
        ti=ti+(f1-f2)
        Poke$ ti,NewStr :ti = ti + L2
        f2=f1+L1   
   Loop  
   Function = Mid$(tStr,1,ti) '提取結果(并刪除附加空間)
      
End Function


因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网