谁能把下面字符串中的文件名用程序剥离出来放到数组中，俺立即给100分，在线等候

Question

俺现在有点晕，拜托大家了
1.txtchar(32)char(10)2.txtchar(32)char(10)3.txtchar(32)char(10)

Answer 1

dim a() as string
a = Split("1.txtchar(32)char(10)2.txtchar(32)char(10)3.txtchar(32)char(10)", "char(32)char(10)")

Answer 2

Dim a() As Stringa = Split("1.txtchar(32)char(10)2.txtchar(32)char(10)3.txtchar(32)char(10)", "char(32)char(10)")

Answer 3

Private Sub Form_Load()
Dim aa As String
Dim i, j, k As Integer
Dim finm() As String
j = 1
k = 0
aa = "1.txtchar(32)char(10)2.txtchar(32)char(10)3.txtchar(32)char(10)"
'统计文件个数
For i = 1 To Len(aa)
   If Mid(aa, i, 16) = "char(32)char(10)" Then
   k = k + 1
   End If
   
NextReDim finm(k) '重定义数组
k = 0
'赋给数组
For i = 1 To Len(aa)
   If Mid(aa, i, 16) = "char(32)char(10)" Then
   finm(k) = Mid(aa, j, i - j)
   Debug.Print finm(k)
   j = i + Len("char(32)char(10)")
   k = k + 1
   End If
   
NextEnd Sub