Question

怎么用VB批量处理一个文本，去掉每一行中冒号后面的内容

比如之前是这样的

___阃濆鈩:9295930
住手我是你爹:630154
呆呆带9:778413

去掉冒号后的内容，变成

___阃濆鈩
住手我是你爹
呆呆带9

该怎么设计程序，有木有好心人给写一下

Answer 1

建议使用替换的方式来做！但是要详细说说 你的文字 结构……
比如 你现在 所举例子是 冒号后边的内容直接到 段落的末尾……
如果都是这样的话 就用如下的替换方式：
ctrl+h 打开 替换窗口
1、查找里边填写 :*^13 ……注意这里的冒号 要与你文档的中的实际情况一样 必要时 复制粘贴
2、替换里面填写 ^p
3、勾选 使用通配符（点 更多 或者 选项 或者 高级）
4、全部替换

Answer 2

Private Sub Command1_Click()
Dim s(1 To 100) As String
Dim b(1 To 100)
Dim i As Integer
Open "d:\1.txt" For Input As #1
Do While Not EOF(1) '如果没读到最后一行则循环
For i = 1 To 4
Line Input #1, s(i)
a = Split(s(i), ":")
Print a(0)
Next i
Loop
Close #1
End Sub

追问

能不能输出 或直接修改保存

追答

Private Sub Command1_Click()
Dim s(1 To 100) As String
Dim b(1 To 100)
Dim i As Integer
Open "d:\1.txt" For Input As #1
Do While Not EOF(1) '如果没读到最后一行则循环
For i = 1 To 4
Line Input #1, s(i)
a = Split(s(i), ":")
b(i)=a(0)
Next i
Loop
Close #1
Open "d:\1.txt" For Output As #1
for i=Lbound(b) to Ubound(b)
print #1,b(i)
next i
Close #1
End Sub

Answer 3

提示一下你思路，按行读取，用split函数以“:”分割，然后保存

追问

不会 能帮忙写一下吗