VFP 愛用者社區

[Kuma]

請教 : 如何讀取 txt 檔, 成為 Listbox 的內容, 開放 txt 檔給使用者自行修改新增.
listbox 選項來自 txt file, 請各先進指點.

[syntech]

核心:

http://vfp.sunyear.com.tw/viewtopic.php?t=6710&highlight=%C2%E0%B0%7D%A6C


其它自己想

[Kuma]

我的 TXT FILE 內容,如下

選項01
選項02
選項03
選項04

ListBox init 如何讀取這四個項目, (若使用者增加成5項, 也可讀取進來), 請指點, 謝謝.

[CPS0204]

先讀進vfox9 的 cursor 中

在count 及定義每個itemname
scan
....
endscan

[小賴]

1. FILETOSTR(cFileName) 將txt檔載入成字串變數
2. ALine(arrName, string, 分割符) 將字串分割成陣列
3. 以陣列 arrName 初始化listBox

example:
List1:init方法

Str = FILETOSTR("c:\temp\test.txt")
nCount = ALINES(MyArr, Str)
FOR i = 1 TO nCount
This.AddItem(MyArr[i])
NEXT

[CPS0204]

[Kuma]

我來試試, 謝謝各位先進.

[Kuma]

測試後,沒問題, 謝謝.