配列を使用せずに 1 行の入力を 3 つの異なる変数に分割するにはどうすればよいですか? (x,y,z) 各セクションはスペースで区切られています
元。184 41890 42891
これまでのコードは、ループで一度に 1 文字ずつ行を読み取るだけです。
c = Chr(reader.Read)
s = ""
Do While (ch <> vbCr) And (ch <> Chr(32)) And (reader.Peek <> -1)
Select Case c
Case "0" To "9"
s = s & c
Case Else
MsgBox("Error")
End Select
c = Chr(reader.Read)
Loop