Re: [VB6 ] 讀取txt

[CuckooBoy (書仔)]

※ 引述《a9 (a9)》之銘言：
: ※ 引述《CuckooBoy (書仔)》之銘言：
: : 照書demo打,執行說.....a$  找不到方法或成員??
: : 哪邊有錯呢?
: : 高手可以推一把嗎?>"<
: : Private Sub Form_Load()
: :     Open App.Path & "\Backup.ini" For Output As #1
: :     Line Input #1, a$
: :     Title.txt = a$
: :     Close #1
: : End Sub
: Dim f as Integer,sLine As String
: f=FreeFile                                        '取得一個可用的檔案代碼
: Open App.Path & \"Backup.ini" For Input As #f     '用Input方式開檔
:         While Not EOF(f)                          '如果還沒到檔尾
:                 Line Input #f,sLine               '讀取一行
:                 '做你要做的事
:         Wend
: Close#f                                           '關檔
: 如果只要讀一行
: If Not EOF(f) Then Line Input #f,sLine
Private Sub Form_Load()
    Dim f, cnt As Integer, titledata, autherdata As String
    f = FreeFile
    Open App.Path & "\Backup.ini" For Input As #f
            While Not EOF(f)
                    Line Input #f, Data
                    cnt = cnt + 1
                    Select Case cnt
                    Case 1
                        Title.Text = Data
                    Case 2
                        Auther.Text = Data
                    Case 3
                        Time.Text = Data '時間來源
                    Case 4
                        Item1.Text = Data '項目1來源
                    Case 5
                        Item2.Text = Data '項目2來源
                    Case 6
                        Item3.Text = Data '項目3來源
                    Case 7
                        Item4.Text = Data '項目4來源
                    End Select
            Wend

    Close #f
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.195.194.110
→ MrOrz:其實行數(這裡即為資料數)固定，可以不用硬用迴圈。