Question

vb 2个字符串问题，解答一个给20分，急要，在线等。

问题一：现在有文本文档1.txt,内容如下：
aaa

(1,2,3)
bbbbb(4,5,6)
123c(7,8,9)
.如何写代码，才可以使list1中的内容为
(1,2,3)
(4,5,6)
(7,8,9)
---------------------------------------------------------------------------------
问题二：在（一）的基础上，如何写代码，才可以使list2,list3,list4中的内容分别为
1,4,7 (左为List1内容，把第一个数写入)
2,5,8 (左为List2内容，把第二个数写入)
3,6,9 (左为List3内容，把第三个数写入)
----------------------------------------------------------------------------------
解答一个给20分，在线求解。

Answer 1

Dim s() As String, t() As String, r As String, i As Long
Open "1.txt" For Binary As #1
s = Split(Input(LOF(1), #1), "(")
Close #1
List1.Clear
List2.Clear
List3.Clear
List4.Clear
For i = 1 To UBound(s)
r = Split(s(i), ")")(0)
t = Split(r, ",")
If UBound(t) = 2 Then
List1.AddItem "(" & r & ")"
List2.AddItem t(0)
List3.AddItem t(1)
List4.AddItem t(2)
End If
Next