Question

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

比如之前是这样的

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

去掉冒号后的内容，变成

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

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

Answer 1

回答6 分钟前 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