就是有的网吧不允许运行一些字眼的站点工具连QQ信息里的一些字眼出现也会关闭掉对话框
怎么解决呢？
我在网吧连DOS联盟都看不了
怎么解决呢？
我在网吧连DOS联盟都看不了
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 怎么样解除蒙蔽的字眼
查看 851 回复 9
楼 主
怎么样解除蒙蔽的字眼
发表于 2008-01-31 12:38 · 中国 北京 鹏博士
第 2 楼
发表于 2008-01-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代码写的是什么意思
据说可以过滤指定字符
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代码写的是什么意思
据说可以过滤指定字符
第 3 楼
发表于 2008-01-31 13:22 · 中国 浙江 杭州 电信
上面的函数是从传递的字符串中查找指定的要过滤的字符，再（默认）替换为空
第 4 楼
发表于 2008-01-31 21:19 · 中国 陕西 西安 电信
VBA没有用过……
这个代码的意思是用ReplaceStr替换SourceStr中的SearchStr。
VBA里是不是没有replace函数?
这个代码的意思是用ReplaceStr替换SourceStr中的SearchStr。
VBA里是不是没有replace函数?
第 5 楼
发表于 2008-01-31 21:27 · 中国 陕西 西安 电信
好问题
第 6 楼
发表于 2008-01-31 21:55 · 中国 上海 宝山区 电信
vba有replace的
第 7 楼
发表于 2008-01-31 23:07 · 中国 陕西 西安 电信
汗～那为什么不直接用replace函数。。。
第 8 楼
发表于 2008-02-01 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
有没有人看的懂的解释下语句的意思
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
有没有人看的懂的解释下语句的意思
第 9 楼
发表于 2008-02-01 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的子字符串将会是死循环！
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的子字符串将会是死循环！
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| 313885174 | +2 | 2008-02-02 12:05 |
第 10 楼
发表于 2008-02-11 03:32 · 中国 陕西 西安 电信
也许根本就很简单：
如果你所在的网吧使用的是“网维大师”这个管理系统，就会自动关闭窗口标题带有“冰点破解”“机器狗”之类词汇的程序。
你只需要在进程管理器关闭“ProcessSafe.exe”程序即可。
：）
如果你所在的网吧使用的是“网维大师”这个管理系统，就会自动关闭窗口标题带有“冰点破解”“机器狗”之类词汇的程序。
你只需要在进程管理器关闭“ProcessSafe.exe”程序即可。
：）
论坛跳转: