动词替换字符与处理问题。

用正则啊,专门处理这类问题的,不用自己闭门造车,在工程里选引用,然后添加Microsoft VBscript正则表达式5.5 .拉2个文本在窗体上，文本1填文本一的路径,就是这个文件:

192 . 168 . 58 . 6:135

192 . 168 . 58 . 5:135

192 . 168 . 58 . 4:135

192 . 168 . 58 . 3:135

192 . 168 . 58 . 2:135

192 . 168 . 58 . 1:135

文本2填文本2的路径,就是你下面说的那个txt，再拉一个按钮,加入以下代码:

Private Sub command 1 _ Click()

On Error GoTo Error _ Handler

Dim iso pen 1，isOpen2 As Boolean

Open Text1。输入文本为# 1 iso pen 1 = True

Dim all ＄

all = Input(LOF(1)，1)

MsgBox all '读入Dim oRegExp作为新的RegExp。Pattern = _

"((？:[1]?\d\d？|2[-4]\d|25[-5])\(?:[1]?\d\d？|2[-4]\d|25[-5])。& amp_

“(？:[1]?\d\d？|2[-4]\d|25[-5])\(?:[1]?\d\d？| 2[-4]\ d | 25[-5]): \ d+"

oRegExp。Global = True

all = oRegExp。替换(全部，" $1 ")'替换

MsgBox all '结果

打开文本2。'输入文本为# 2 iso pen 2 = True

all = Input(LOF(2)，2)

MsgBox all '读入Dim x As MatchCollection。Pattern = _

"((？:[1]?\d\d？|2[-4]\d|25[-5])\(?:[1]?\d\d？|2[-4]\d|25[-5])。& amp_

“(？:[1]?\d\d？|2[-4]\d|25[-5])\(?:[1]?\d\d？|2[-4]\d|25[-5]) \d+)(？=Open)"

设置x = oRegExp。'执行(全部) '匹配all = ""

对于x中的每个项目。物品与广告。vbCrLf

下一个

MsgBox all '结果

Error_Handler:

如果isOpen1，则关闭# 1；如果isOpen2，则关闭# 2；如果Err，则Err。引发错误。编号，，错误。描述

结束Sub