【字符】不區分大小寫查找字符(Instr 擴展)

  勇芳 2017-4-5 4451

Function InstrEx(ByVal StartPos As Long,SrcStr As String,sFind As String) As Long 
    Local n As Long,p As Asciiz Ptr 
    n=Len(SrcStr)
    If StartPos>=n Then Exit Function
    If StartPos>1 Then
        p=StrStrI(ByVal StrPtr(SrcStr)+StartPos-1,ByVal StrPtr(sFind))
    Else
        p=StrStrI(ByVal StrPtr(SrcStr),ByVal StrPtr(sFind))
    End If
    If p<>0 Then
        Function=p-StrPtr(SrcStr)+1
    End If
End Function


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