text 怎麼把裡面資料放入陣列

Question

請問 text1的資料
如:
1
2
3
4
請問要如何放到A()陣列
拜託大大趕快教我~很急用!!!!!

Answer 1

我猜你text1的資料應該是存放在一個檔案中test.txt內容為
1
2
3
4
--------------------------------------
Dim path As String = "c:\test.txt"
Dim bufarr(100) As String

Dim sr As StreamReader = New StreamReader(Path)

Dim i As Integer
i = 0
Do While sr.Peek() >= 0
bufarr(i) = sr.ReadLine()
i = i + 1
Loop
sr.Close()
'此時bufarr()已經存放你要存放的資料
MsgBox(bufarr(0))
---------------------------------------------------------------------
關於檔案存取技巧,建議你可以參考[Visual Basic 2005 Express程式設計經典教本
]裡面有詳細的解說,最後還包括一個[加行程式的專題]應該可以滿足你的需求

Answer 2

程式我覺得不要太複雜就好!!
Split是個不錯用的內建函數!!
Split(A,B)A是要分割的資料!
B是要以什麼來分割!!不填B的話以1個空格來分割!!而且還會自動丟成陣列!!

Answer 3

兩個都有幫助到~我實在是不懂該給誰才好~><

Answer 4

要以換行字元做分割的話:Dim A() As StringA = Split ( Text1 , VbCrlf)