亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

ReplaceTrim 函數(shù)之a(chǎn)sp實(shí)現(xiàn)過濾掉字符中所有的tab和回車和換行的代碼

 更新時(shí)間:2007年09月01日 22:09:45   作者:  
'================================================
'函數(shù)名:ReplaceTrim
'作  用:過濾掉字符中所有的tab和回車和換行
'================================================
    Public Function ReplaceTrim(ByVal strContent)
        On Error Resume Next
        Dim re
        Set re = New RegExp
        re.IgnoreCase = True
        re.Global = True
        re.Pattern = "(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"
        strContent = re.Replace(strContent, vbNullString)
        Set re = Nothing
        ReplaceTrim = strContent
        Exit Function
    End Function

相關(guān)文章

最新評(píng)論