| 投稿日 | ： 2003/07/20(Sun) 14:31 |
| 投稿者 | ： Taka |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: ユーザー定義型のデータ読み込みについて |
ありがとうございます。No.1572を拝見しましたが、
配列に正しく読み込むことが出来ませんでした。
コードをのせるので何かアドバイスをいただけませんか？
お手数ですがお願いします。
Private Sub Command2_Click()
Dim strTextLine As String
Dim TmpTxt() As String
Dim dataN As Integer
Dim i As Long
Dim intFileNo As Integer
Dim DRM() As String
intFileNo = FreeFile
Open "test" For Input As #intFileNo
Do While Not EOF(intFileNo)
Line Input #intFileNo, strTextLine
TmpTxt = Split(strTextLine, " ")
dataN = UBound(TmpTxt)
For i = 0 To dataN
DRM() = TmpTxt()
Next i
Loop
Close #intFileNo
End Sub