VB中如何读写文本文件中的值

wisdom

请教：VB中如何读写文本文件中的值

sadggn

Private Sub Command1_Click()  '从根目录导入到text
    Open App.Path & "\123.txt" For Binary As #1
    Text1.Text = Input(LOF(1), 1)
    Close #1
End Sub

Private Sub Command2_Click()  '从根目录导入到list
    Dim a As String
    Open App.Path & "\123.txt" For Binary As #1
    a = Input(LOF(1), 1)
    Close #1
    '-------------------------------------------导入变量
    List1.Clear
    Dim b() As String
    Dim c As Integer
    b = Split(a, vbCrLf)
    For c = LBound(b) To UBound(b)
        List1.AddItem b(c)
    Next c
    '-------------------------------------------分行导入
End Sub

Private Sub Command3_Click() 'Text导入到list
    List1.Clear
    Dim b() As String
    Dim c As Integer
    b = Split(Text1.Text, vbCrLf)
    For c = LBound(b) To UBound(b)
        List1.AddItem b(c)
    Next c
End Sub

Private Sub Command4_Click() 'list导入到Text
    Dim a As Integer
    Dim b As String
    For a = 0 To List1.ListCount - 1
        b = b & List1.List(a) & vbCrLf
    Next a
    Text1.Text = b
End Sub

rockyoung

Dim n1, n2, n3'测试一下
Private Sub Form_Load()'读积分
If Dir("c:\a.txt") = "" Then Exit Sub
Open "c:\a.txt" For Input As 1
Input #1, n1, n2, n3
Close
Text1 = n1: Text2 = n2: Text3 = n3
End Sub

Private Sub Form_Unload(Cancel As Integer)'存积分
Open "c:\a.txt" For Output As 1
Write #1, Text1, Text2, Text3
Close
End Sub