VB處理檔案讀取內的資料

Question

我在記事本(.txt)裡寫下1 2 3 4 5 6 7 8 9 0

要如何在VB裡讀取出來並將十個數字分布在不同的textbox內?

Answer 1

最佳解答

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'將x設定為 "C:\test.txt" 內所有內容 (1234567890)

Dim x = My.Computer.FileSystem.ReadAllText("C:\test.txt")

'將x設定為 "C:\test.txt" 內所有內容 (1234567890)

Dim t(10)

'新增10個Textbox

For a = 1 To 10

t(a) = New TextBox

t(a).text = Mid(x, a, 1) '第a個Textbox內的內容為 x 的第a個字

Controls.Add(t(a))

Next

'新增10個Textbox

'整理Textbox位置

For a = 2 To 10

t(a).location = New Point(t(a - 1).location.x, t(a - 1).location.y + 25)

Next

'整理Textbox位置

End Sub

End Class

有其他需要建議你寄訊息給我

參考資料： 我