テキストファイルを正常に取込するには？初心者です

Question

下記の様なテキストファイルを配列に取込したいのですが、ファイル読込み途中で「これ以上ファイルが有りません」エラーとなります。どうしたらよいでしょうか？
ちなみに配列は(14,100)としています。

【読込みしたいテキスト文】改行に↑が入ります
000002,0,0010,,,ＡＢＣＤＥＦＧ,,,00000010,,,,,060420
000004,0,0010,,0,ＨＩＪＫＬＭＮ,000,497009014866,00000550,020201,0000,000,000400,060420

【フォームロード時に取込む】
Private Sub Form_Load()

If Dir(POPFile) = "" Then       'ファイルの存在チェック
                                'ファイルが無い
        NewData                 '変数の初期設定と画面の表示
        TargetRec = 1
        MaxRec = 0
        lblRec.Caption = "1/新規"

Else
    
        MaxRec = 0              'ファイルが在るのでデータを読み込む
        Open POPFile For Input As #1
            Do Until EOF(1)
            MaxRec = MaxRec + 1
            Input #1, POP(1, MaxRec)
            Input #1, POP(2, MaxRec)
            Input #1, POP(3, MaxRec)
            Input #1, POP(4, MaxRec)
            Input #1, POP(5, MaxRec)
            Input #1, POP(6, MaxRec)
            Input #1, POP(7, MaxRec)
            Input #1, POP(8, MaxRec)
            Input #1, POP(9, MaxRec)
            Input #1, POP(10, MaxRec)
            Input #1, POP(11, MaxRec)
            Input #1, POP(12, MaxRec)
            Input #1, POP(13, MaxRec)
            Input #1, POP(14, MaxRec)
                    
        Loop
    Close #1

BLUEPIXY · Accepted Answer

>改行に↑が入ります
ということなので、改行コードがＬＦになっているのでしょう。
nkf とかのツールを使って変換してから処理すればどうですか

nkf -SsLwO original.txt convert.txt

imogasi · Answer

＃１のお礼に関して
（１）レコードの終わりはvbCRLFでないのかもしれない。
UNIX、MAC起源のデータではそういうことがあると聞いています
（２）Splitした後のループは０から初めて下さってますか
（３）フィールド数は全レコードで同じでしょうか
（４）全レコードを読みレコードセパレータ文字列でSplitして
レコードそのものを、ユーザー側で切り出さないかも知れないですね。＃４のご回答はそれ？

noname#22222 · Answer

次は、Text.txt を Datas()に読み込むコードサンプルです。

Dim Datas() As String

IF FikeExists("Test.txt") Then
　　Datas()=FileReadArray("Text.txt")
End If

Public Function FileExists(ByVal FileName As String) As Boolean
　　Dim fso As FileSystemObject
　　
　　Set fso = New FileSystemObject
　　FileExists = fso.FileExists(FileName)
End Function

Public Function FileReadArray(ByVal FileName As String) As String()
On Error GoTo Err_FileReadArray
　　 Dim fso　　　　As FileSystemObject
　　 Dim fil　　　　As File
　　 Dim txs　　　　As TextStream
　　 Dim strText　　As String
　　 Dim strTexts() As String
　　
　　 Set fso = New FileSystemObject
　　 Set fil = fso.GetFile(FileName)
　　 Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
　　 strText = txs.ReadAll
　　 strTexts = Split(strText, Chr$(13) & Chr$(10))
Exit_FileReadArray:
　　 FileReadArray = strTexts()
　　 Exit Function
Err_FileReadArray:
　　 MsgBox Err.Description & "(FileReadArray)", vbExclamation, " 関数エラーメッセージ"
　　 strTexts() = Split("")
　　 Resume Exit_FileReadArray
End Function

otto0001otto · Answer

あなたのプログラムでは、データー数が１４の倍数でない
かぎりエラーになりますね。
エラートラップしたらいかがですか？

Open POPFile For Input As #1
On Error GOTO Pass1
Do Until EOF(1)
MaxRec = MaxRec + 1
Input #1, POP(1, MaxRec)
Input #1, POP(2, MaxRec)
・
・
・
Input #1, POP(14, MaxRec)
Loop
Pass1:
Close #1

imogasi · Answer

Line　INPUT＃で読み込みむ。すると１回でvbCrLfまでのデータ（１レコード分）を読み込み、変数A（名前は何でも良い）に読み込まれます（vbCrLfは含まず）.
Split関数を使い、
ｓ＝split(A,",")で、s（0)、s(1),..に文字列のデータがセットされます。０からUbound(s)まで繰り回せば、それぞれのフィールドデータが捕まえられます。バリアント型です。

テキストファイルを正常に取込するには？初心者です

>改行に↑が入ります

＃１のお礼に関して

次は、Text.txt を Datas()に読み込むコードサンプルです。

あなたのプログラムでは、データー数が１４の倍数でない

Line INPUT＃で読み込みむ。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Line　INPUT＃で読み込みむ。