vb多个text保存和读取

Question

我建立了一个数组控件从text1（0）到text1（40）如何保存到txt或ini文件中，下次打开的时候读取。 

Answer 1

'读取过程
Public Function PSubReadConf()
Dim rcStr As String
    Dim fso As New Scripting.FileSystemObject
    Dim myTxt, i
    
    Set myTxt = fso.OpenTextFile(Filename:=App.Path + "\dads.conf", IOMode:=ForReading)
    With myTxt
        i = 1
        Do Until i > 3 '.AtEndOfStream
        'Me.Controls("Text" & i).Text = .ReadLine
        rcStr = .ReadLine
        PstrConfArr(i) = StringEnDeCodecn(rcStr, 75)
        'Debug.Print strConfArr(i)
        i = i + 1
        Loop
        .Close
    End With    
End Function'保存过程
Private Sub SubSaveConf()
    Dim fso As New Scripting.FileSystemObject
    Dim myTxt
    
    Set myTxt = fso.CreateTextFile(Filename:=strPath + "\dads.conf", OverWrite:=True)
    With myTxt
    .WriteLine StringEnDeCodecn(Trim(userName1.Text), 75) 'Me.userName1.Text
    .WriteLine StringEnDeCodecn(Trim(userPassword.Text), 75) 'Me.userPassword.Text
    .WriteLine StringEnDeCodecn(Trim(cmb_DBNAME.Text), 75) 'Me.cmb_DBNAME.Text
    .WriteLine "1"
    .Close
    End With    
End Sub

Answer 2

给你一个思路，写写试试
1，读写文件的基本算法先收集一点
2，控件下标要与文件数据对应，这个你可以自己定义协议：
比如：0|控件text1（0）的数据|[ETX]
      1|控件text1（1）的数据|[ETX]
     2|控件text1（2）的数据|[ETX]
……
然后就OK了~

Answer 3

Public Sub 读文件(strPath As String)
    Dim StrTmp   As String
    Dim I        As Long
    Dim TextLine As String
    Dim strAry() As String
    I = 1
    Open strPath For Input As #1  ' 打开文件。    Do While Not EOF(11)          ' 循环至文件尾。
        Line Input #11, TextLine   ' 读入一行数据并将其赋予某变量。
        StrTmp = StrTmp & TextLine & vbCrLf
    Loop
    Close #1
    strAry = Split(StrTmp, Chr(3))'chr(3)就是[ETX]
End Sub