新人关于字符串循环截取的的问题，望赐教谢谢。

Question

 比如  Dim strSp() As String = Split("001\002\0003\004\005\006\007\008\009", "\") 
 我想把截取的字符转自动转成函数如       
                          hs1 = strSp(0)
                       hs2 = strSp(1)
                       hs3= strSp(2)...........然后再把生成的函数作为文件名，分别新建N个文本存入对应的函数值，请问怎么做呢？在这里小弟先谢谢了，请帮帮忙吧谢谢。

Answer 1

Private Sub Command1_Click()
    Dim strSp() As String
    Dim FileNumber
    FileNumber = FreeFile
    strSp = Split("001\002\003\004\005\006\007\008\009", "\")
    Dim i As Integer
    For i = 0 To UBound(strSp)
        Open "D:\Hs" & CStr(i) & ".TXT" For Output As #FileNumber
        Print #FileNumber, strSp(i)
        Close FileNumber
    Next
End Sub