Neok HOME

用着用着，你就会习惯了！

原创 vb读取保存txt文件收藏

Option Explicit

Private Sub Write_Click()
    '读取
On Error GoTo ErrHandler
    
    Form1.CommonDialog1.ShowOpen
    Dim OpenFile, MyString As String
    OpenFile = CommonDialog1.FileName
    Open OpenFile For Input As #1
    Do While Not EOF(1)
        Line Input #1, MyString
        Text1.Text = Text1.Text & MyString & vbCrLf
    Loop
    Close #1
    
ErrHandler:
    Exit Sub
    
End Sub

Private Sub Save_Click()
    '保存
On Error GoTo ErrHandler

    Form1.CommonDialog1.ShowSave
    Dim SaveFile As String
    SaveFile = CommonDialog1.FileName
    Open SaveFile For Output As #1
    Print #1, Text1.Text
    Close #1

ErrHandler:
    Exit Sub
    
End Sub
 

发表于 @ 2008年01月22日 09:28:00|评论(loading...)|举报|收藏

新一篇: ASP留言的access数据库操作 | 旧一篇: 冒泡排序,随机数
Csdn Blog version 3.1a
Copyright © Neok