Question

VB中split函数的用法

做一个简单的文本处理
例如1 222.58.227.137 80 HTTP 湖南省衡阳市 铁通 08-02 11:15 0.989 whois
取 ip和端口 并在中间加上冒号
222.58.227.137:80
Private Sub Form_Load()
Open "c:\1.txt" For Input As #1
Open "c:\2.txt" For Output As #2

While Not EOF(1)
Line Input #1, a
Print #2, Split(a, " ")(0) & " "
Wend

Close #1
Close #2
End Sub

改一下，怎么一次取2段，并且在中间加冒号

Answer 1

Print #2, Split(a, " ")(0) & ":" & Split(a, " ")(1)