VB替换文本中指定的字符

如果都是：警察（专门来抓小偷的）这样的格式
即：词语后面的注释都是括号括起来的，那么你可以：
Private Sub Command1_Click()
On Error Resume Next
Open "c:\123.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
a = Mid(s, 1, InStr(s, "(") - 1)
b = b & a & vbCrLf
Loop
Close #1
Open "c:\123.txt" For Output As #1
Print #1, b
Close #1
End Sub

Dim 文件 As String, i%

Private Sub Command1_Click()
Open "d:\1.txt" For Binary As #1 ‘打开txt文件（目录可以更改），并将内容赋给变量“文件”，这种方式读入文件不会出现“超出文件末尾”的错误。
文件 = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Print 文件 '为了测试文件是否已经读入，可以省略
Dim 新内容 As String
Dim 括号内 As Boolean
括号内 = False
For i = 1 To Len(文件)
If Mid(文件, i, 1) = "（" Then
新内容 = 新内容 & "（"
括号内 = True
ElseIf Mid(文件, i, 1) = "）" Then