UC知道这个VB怎么写啊？
来源：百度知道 编辑：UC知道 时间：2024/06/05 05:59:00
一个txt文件内容为：
1 2222222 3 222222
2 333 6sdsd iui1212
把它的第一个空格以及第一个空格前的所有字符和第三个空格以及第三个空格后的所有内容清除，并把第二个空格替换为冒号
txt文件内容变为
2222222:3
333:6sdsd
是txt文本文件打开读取啊，不是文本框
1 2222222 3 222222
2 333 6sdsd iui1212
把它的第一个空格以及第一个空格前的所有字符和第三个空格以及第三个空格后的所有内容清除，并把第二个空格替换为冒号
txt文件内容变为
2222222:3
333:6sdsd
是txt文本文件打开读取啊，不是文本框
文件路径自己改一下
Dim a() As String, aa() As String
Dim b As String, i As Integer
Open "D:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, b
a = Split(b, " ")
i = i + 1
ReDim Preserve aa(i)
aa(i) = a(1) & ":" & a(2)
Loop
Close #1
Open "D:\1.txt" For Output As #1
For i = 1 To UBound(aa)
Print #1, aa(i)
Next
Close #1