中国DOS联盟论坛 - Powered by Discuz! Board

标题: 怎么样解除蒙蔽的字眼 [打印本页]

作者: 313885174 时间: 2008-1-31 12:38 标题: 怎么样解除蒙蔽的字眼

就是有的网吧不允许运行一些字眼的站点工具连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代码写的是什么意思
据说可以过滤指定字符

作者: abcd 时间: 2008-1-31 13:22
上面的函数是从传递的字符串中查找指定的要过滤的字符，再（默认）替换为空

作者: slore 时间: 2008-1-31 21:19
VBA没有用过……

这个代码的意思是用ReplaceStr替换SourceStr中的SearchStr。

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

有没有人看的懂的解释下语句的意思

作者: slore 时间: 2008-2-1 13:12
'晕～你要具体一句一句分析啊

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

'这个函数没有Replace好……如果SearchStr是ReplaceStr的子字符串将会是死循环！

作者: awera 时间: 2008-2-11 03:32
也许根本就很简单：
如果你所在的网吧使用的是“网维大师”这个管理系统，就会自动关闭窗口标题带有“冰点破解”“机器狗”之类词汇的程序。
你只需要在进程管理器关闭“ProcessSafe.exe”程序即可。

：）