就是有的网吧不允许运行一些字眼的站点工具连QQ信息里的一些字眼出现也会关闭掉对话框
怎么解决呢?
我在网吧连DOS联盟都看不了作者: 313885174 时间: 2008-1-31 12:53 Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr)
Do While I > 0
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
Loop
End Function
VBA里是不是没有replace函数?作者: plp626 时间: 2008-1-31 21:27 好问题作者: sonicandy 时间: 2008-1-31 21:55 vba有replace的作者: slore 时间: 2008-1-31 23:07 汗~那为什么不直接用replace函数。。。作者: 313885174 时间: 2008-2-1 11:50 Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr)
Do While I > 0
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
Loop
End Function
Function FiltString(SourceStr As String, SearchStr As String, Optional ReplaceStr As String = "") As String
Dim I As Integer
FiltString = SourceStr
I = InStr(1, FiltString, SearchStr) '得到要替换的字符串在原字符串位置
Do While I > 0 '如果存在要替换的字符串
FiltString = Mid(FiltString, 1, I - 1) & ReplaceStr & Mid(FiltString, I + 1)
'取那个字符串左边的部分+要替换成的字符串+取那个字符串右边的部分
I = InStr(I + Len(ReplaceStr), FiltString, SearchStr)
'再次查找替换的字符串在字符串位置
Loop
End Function