如何使用文字檔來存取 ListBox 內的資料? |
答題得分者是:Windyboy
|
kraen4468
初階會員 發表:66 回覆:112 積分:35 註冊:2003-12-04 發送簡訊給我 |
如何使用文字檔來存取 ListBox 內的資料?
下面的是vb的語法
Private Sub Form_Load() If Dir(App.Path & "\List_IO.txt") = "List_IO.txt" Then Dim wstr As String Open App.Path & "\List_IO.txt" For Input As #1 Do While Not EOF(1) Input #1, wstr List1.AddItem wstr Loop Close #1 End If End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Integer Open App.Path & "\List_IO.txt" For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close #1 End Sub~我還在學習狀態希望多多向您學習~ 發表人 - taishyang 於 2004/04/28 13:41:19 |
kraen4468
初階會員 發表:66 回覆:112 積分:35 註冊:2003-12-04 發送簡訊給我 |
|
Windyboy
版主 發表:7 回覆:119 積分:210 註冊:2002-11-07 發送簡訊給我 |
|
kraen4468
初階會員 發表:66 回覆:112 積分:35 註冊:2003-12-04 發送簡訊給我 |
|
Windyboy
版主 發表:7 回覆:119 積分:210 註冊:2002-11-07 發送簡訊給我 |
Hi: 假設你的Form上現在放有一個Button跟一個ListBox, 還有一個檔案 C:\text.txt 存在, 那在你Button的Click Event內就寫下面那樣, 就可以載入該檔, 而ListBox1->Items->SaveToFile("C:\\text.txt"); 就可以儲存該檔.^_^
void __fastcall TForm1::Button1Click(TObject *Sender) { ListBox1->Items->LoadFromFile("C:\\text.txt"); }-------------------------- ~天下本無事 庸人自擾之~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |