推 Changsunche:對於你所說的n1,n2是讀取以空隔為區分 10/30 17:10
推 Changsunche:也大概知道如何使用 10/30 17:29
※ 引述《Changsunche (長孫轍)》之銘言：
: 對於Text1.Multiline=True這邊，我已經能夠讓一個Text1.text能夠多行輸入，
: 但問題在於：讀取方面，我不知道要如何像TXT一般讀取，
: -----------------------------------------------------------
: 在TXT文件裡面，讀取方式為：
: 假設0.txt為文件，並且在D槽內。
: ----
: Open "D:\0.txt" for input as #1 '像這樣，之後使用
: Do while not Eof(1)
: open #1,n1,n2
借問一下 n1 n2 是什麼?
: Loop
: ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
: 像這樣的讀取方式，但是在Text中，
: 我不知道要如何讀取QAQ。
: 意思就是：我會讀取Txt內的數字，
: 但是不會讀取Text內的資料。
可以把text的資料存到陣列
Dim arr() as String '宣告陣列
arr=Split(Text1.Text,vbCrLf) '以分行符號來切割text1的內部至arr陣列
￣￣￣ ￣￣￣￣
這樣arr(0)就是text1的第一行
arr(1)就是text1的第二行
而Ubound(arr)就是總行數-1 (因為是從0開始計算)
接下來就是一行一行處理
可以再用另一個陣列做類似的處理(換用 " " 做切割)
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.47.199
※ 編輯: ClubT 來自: 220.136.47.199 (10/30 15:58)