Re: [VB6 ] 讀取txt

看板Visual_Basic作者CuckooBoy (書仔)時間17年前 (2008/06/28 20:36)推噓0(0推 0噓 3→)

留言3則, 1人參與討論串5/5 (看更多)

※ 引述《CuckooBoy (書仔)》之銘言： : ※ 引述《a9 (a9)》之銘言： : : 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 感謝提醒 Private Sub Form_Load() Dim f, cnt As Integer, titledata, autherdata, timedata, item1data, item2data, item3data, item4data As String f = FreeFile Open App.Path & "\Backup.ini" For Input As #f Input #f, titledata, autherdata, timedata, item1data, item2data, item3data, item4data Title.Text = titledata '標題來源 Auther.Text = autherdata '作者來源 Time.Text = timedata '時間來源 Item1.Text = item1data '項目1來源 Item2.Text = item2data '項目2來源 Item3.Text = item3data '項目3來源 Item4.Text = item4data '項目4來源 Close #f End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.195.194.110 ※ 編輯: CuckooBoy 來自: 123.195.194.110 (06/28 20:36)

→

MrOrz

06/28 21:34, , 1^F

06/28 21:34, 1^F

→

MrOrz

06/28 21:34, , 2^F

06/28 21:34, 2^F

→

MrOrz

06/28 21:34, , 3^F

06/28 21:34, 3^F