[VB6 ] 請問VB讀取.txt檔中資料輸出到label的寫法
[初學者的發問]
目前有大約15筆資料作測試(實際一共有1000多筆)
外部.txt檔案是用excel做好再貼到.txt上的
資料型態為
a.txt aaa
bbb
ccc...
b.txt ppp
qqq
rrr...
c.txt xxx
yyy
zzz...
全部都是文字檔
目前做好亂數產生部分
產出1~15的亂數
希望可以輸出的結果是ex:亂數=8
在不同label.caption上秀出資料a中的第八筆
資料b中的第八筆
資料c中的第八筆
[程式碼]
Dim R As Integer
'R為亂數
Dim x(15) As Byte
Dim y(15) As Byte
Dim z(15) As Byte
'宣告x,y,z皆為字串
Private Sub Command1_Click()
Randomize
Label1.Caption = Int(Rnd * 15) + 1
'產生1~15之間的亂數
R = Label1.Caption - 1
'抓出產生出的亂數,指定給r,作為後續陣列指向位置使用
Open "C:\a.txt" For Binary As #1
這邊就不知道該如何繼續下去了...
Close #1
End Sub
有點非常的遜
剛開始學習VB
還請大家不吝指導
THANK YOU ALL
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.45.217.33
推
05/31 04:33, , 1F
05/31 04:33, 1F