Question

一个string类型字符串 如何转换为一个数组？

StringText = "Text" + CStr(l - 1) + "(" + CStr(i - 1) + ")"
得到Stringtext ="text1(0)"
已经有数组text1(0)
如何让Stringtext表示数组text1(0)的值
VB6.0

Answer 1

Option Explicit
'请自行添加 Text1(0) 和 Text1(1) 等数组控件

Private Sub Form_Load()
    Dim StringText$, l&, i&
    l = 2:    i = 1
    StringText = "Text" + CStr(l - 1) + "(" + CStr(i - 1) + ")" '模拟 Text1(0)
    StringText = StringText & ".text=已经测试OK！"                  '模拟写入数据
    
    My_SetControl StringText
End Sub

Private Sub My_SetControl(tCMD As String)    '本函数没有做出错处理，请自行添加。
    Dim obj As Object
    Dim i&, s$, SetText$, tCTLName$, tCTL As String, tmp$
    If tCMD = "" Then Exit Sub
    i = InStrRev(tCMD, ".")         '得到控件名称
    tCTLName$ = Left(tCMD, i - 1)
    tmp = Mid(tCMD, i + 1)
    
    i = InStrRev(tmp, "=")
    tCTL = Trim(Left(tmp, i - 1))
    SetText$ = Mid(tmp, i + 1)
    For Each obj In Me.Controls
        s = obj.NAME & "(" & obj.index & ")"    '计算数组变量
        If s = tCTLName Then
            If UCase(tCTL) = "TEXT" Then
                obj.text = SetText
            End If
        End If
    Next
End Sub