Re: [VB6 ] 讀取txt
※ 引述《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
→
06/28 18:53, , 1F
06/28 18:53, 1F
討論串 (同標題文章)