輸入的問題～(VB)

[紅咖哩]

※ 引述《spal...@bbs.kimo.com.tw (簡單生活)》之銘言：
> 請問各位高手～
> 我現在想抓個.txt檔的資料進來做轉換～
> txt的檔案如下
> 00001
> 00010
> 00100
> 00101
> 請問一下我要如何一行一行抓進來咧～
> 接下來是不是用回圈寫ㄚ～
> 謝謝～
> ps:我是新手～所以一些問題都還不懂～～

b = Chr$(13) + Chr$(10) '製造enter,使游標向下一行
Open "XXX.txt" For Input As #1 '抓 XXX.txt 進來
Do Until EOF(1) '文字檔結尾時離開
Line Input #1, a '將此行的字抓入 a 裡
Text1.Text = Text1.Text & a & b '合併入 text1.text
Loop '迴圈
Close '關閉檔案

--
[31;45m刀鋒血影為冷心 [37;40m
[32;47m劍尾秋風不留人 [37;40m
[36;41m走遍江湖笑紅塵 [37;40m
[34;42m書冊秘笈滿江林 [37;40m

[35;46m江湖記者 [40m　 [41m紅 [7;30;47m咖 [32m哩 [;m [m
--
[1;32m┌───── [33m◆ [37mＫＫＣＩＴＹ [33m◆ [32m─────┐ [34m┐┌┐┐┌┐┌─┐┌┬┐┌┬┐┐ ┌ [m
[1;32m│ [31m bbs.kkcity.com.tw [32m│ [37m├┘┐├┘┐│ │ │ └┬┘ [m
[1;32m└── [34m《 [0;37mFrom:210.200.75.222 [1;34m》 [32m──┘ [36m┘ ┘┘ ┘└─┘└┴┘ ┴ ┴ [m