→ MrOrz:對了，那行Dim定義出來的變數，除了cnt和item4data之外，都 06/28 21:34
→ MrOrz:是Variant型態。如果你的原意就是這樣，那請當作沒看到我的 06/28 21:34
→ MrOrz:推文XD" 06/28 21:34
※ 引述《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)