VB如果求”遠端電腦的數字??”~

Question

我是一個初學者 不過 作業裡面通常會有
open"C:\xxx.txt" for input as #1
可是是在遠端的電腦 並不會讓我們知道
所以 誰可以告訴我 要怎麼算那些數字出來 他會給提示 例如:

4 (有4筆資料)
123 32 12 456 (你是不知道的)
12 32　123 389 (你是不知道的)
123 456 789 135 (你是不知道的)
0 123 654 3 (你是不知道的)

誰可以告訴我這樣子的程式碼要怎麼打?
巢狀回圈內的 外面就是 for k = 1 to 4
但是裡面我總不能打1 to 4吧 因為我不知道
副程式可以打出來 沒關係 謝謝 (緊急喔)

呃...Phoenix大大
你說的也沒錯啦
不過我要問的是有幾個數字 迴圈要用的 能補充謝謝摟
盡量簡單明瞭

Answer 1

Private Sub Command1_Click()
Dim S As String, A() As String, I As Long, T As Long

Open "C:\xxx.txt" For Input As #1
'利用 DO 讀取直到檔尾
Do Until EOF(1)
'讀取每一行的值到變數S
Input #1, S
'利用Split函數將變數S的值代入A陣列
A = Split(S, " ")
'利用迴圈讀取A陣列
For I = 0 To UBound(A)
'只要陣列的值是數字 , T就加1
If IsNumeric(A(I)) Then T = T + 1
Next
Loop
Close #1
MsgBox "共有 " & T & " 個數字"

End Sub

Answer 2

謝謝各位了

Answer 3

你沒有發現嗎？
這四個數字都是長這樣的：數字(空白)數字(空白)數字(空白)數字(換行)
這樣的話你可以使用While迴圈來解
第一個While是找換行
第二個while是藉由空白來找數字