すみません、ファイルからデータを読み込んでいるのですが、変なコードが入っているらしく、EOFはきちんと認識できず、困っています。
文字コードも何かわからなず、半角空白でもないようです。読み込みファイルの2行目の"ー"と"&"の間にある見えない文字コードです。(さくらエディタでは半角空白に見えてます。)
何なのかも私にはわかりませんが解決方法をご教授願います。このコードを削除するば良いですが、大量にあり手動では削除困難です。
(出来れば以下のサンプルプログラムを修正する形で教えてもらえると助かります。)
簡単なVBAコードと読み込みファイルをお付けしますので、解決策をご教授方よろしくお願いします。
(以下のコードでも問題は発生します。)
添付ファイルが付けれないし、コードは変換されて表示されそうです。。。
その場合はどうやって調べれば良いかご教授頂ければと思います。
----------VBAプログラム(Excel2007で作成)----------
Option Explicit
Sub testLoadFile()
Dim intFF As Integer ' FreeFile値
Dim lngREC As Long ' レコード件数カウンタ
Dim strREC As String ' レコード領域
Dim opnFileName As String
' FreeFile値の取得(以降この値で入出力する)
intFF = FreeFile
' 指定ファイルをOPEN(入力モード)
opnFileName = ActiveWorkbook.Path & "\loadtest.txt"
Open opnFileName For Input As #intFF
lngREC = 0
' ファイルのEOF(End of File)まで繰り返す
Do Until EOF(intFF)
' レコード件数カウンタの加算
lngREC = lngREC + 1
' 行単位にレコードを読み込む
Line Input #intFF, strREC
Cells(lngREC, 1).Value = strREC
Loop
' 指定ファイルをCLOSE
Close #intFF
End Sub
--------読み込みファイルテキスト(3行のファイルです。)------------
"aaa","3"
"cccー&","4"
"bbb","5"
No.3ベストアンサー
- 回答日時:
815Bは<ー>を示しています。
その次の文字は<&>。これは8195となります。
当方の環境ではこれが表示されます。
実行時エラーの表示、申し訳ありません。
エラー内容から察するに、strRECには5文字しか格納されていないようです。
つまり・・・
1文字目:"
2文字目:c
3文字目:c
4文字目:c
5文字目:ー
6文字目は存在していないのでエラーとなります。
Line Inputは一行単位で(厳密にはCr、あるいはCrLfまで)読み取ります。
5文字で読み取りが終了していることを考えると、
見えない何かは”Cr”や”CrLf”の可能性があります。
今回の場合、直感ですがCrの可能性があります。
この文字コードが邪魔しているため、正しく読み取れないものと考えます。
この場合、意図と違った結果が得られてしまいます。
検証方法として、以下のソースコードを試してみてください。
Dim fn As Integer
fn = FreeFile()
Dim testFile As String
testFile = ActiveWorkbook.Path & "\loadtest.txt"
Open testFile For Binary As #fn
Dim sizeOfFile As Long
sizeOfFile = LOF(fn)
Dim stringBuffer As String
stringBuffer = String(sizeOfFile, vbNullChar)
Get #fn, , stringBuffer
Close #fn
Dim lineOfFile() As String
lineOfFile() = Split(stringBuffer, vbCr)
このとき、LineOfFileの配列数がどうなるか。
期待されるのは
0:"aaa","3"
1:"cccー&","4"
2:"bbb","5"
ですが、症状から察すると
0:"aaa","3"
1:"cccー
2:
3:&","4"
4:"bbb","5"
3以降は必ずしもこうなるとは限りませんが・・・。
これに近いもの、と思います。
対応方法
対応1.このファイルを出力しているソフトの担当者に連絡する。
対応2.上記検証用コードを少し書き換える
前)
lineOfFile() = Split(stringBuffer, vbCr)
後)
lineOfFile() = Split(stringBuffer, vbCrLf)
Dim i As Integer
For i = 0 To UBound(lineOfFile)
lineOfFile(i) = Replace(lineOfFile(i), vbCr, "")
Cells(i, 1).Value = lineOfFile(i)
Next i
これで、希望に近い結果になるのではないでしょうか。
ありがとうございます!さすがです。頂いたプログラムで一行づつきちんと動きました。
EOFになることはなかったです。
一度読み込んで、改行で分割するんですね。なるほど勉強になりました。
ありがとうございました。
少し書き換えましたので一応、掲載しておきます。
------------------------------
Option Explicit
Sub testLoadFile()
Dim fn As Integer
fn = FreeFile()
Dim testFile As String
testFile = ActiveWorkbook.Path & "\loadtest.txt"
Open testFile For Binary As #fn
Dim sizeOfFile As Long
sizeOfFile = LOF(fn)
Dim stringBuffer As String
stringBuffer = String(sizeOfFile, vbNullChar)
Get #fn, , stringBuffer
Close #fn
Dim lineOfFile() As String
lineOfFile() = Split(stringBuffer, vbCr)
Dim i As Integer
Dim curWS As Worksheet
Set curWS = Worksheets("Sheet1")
For i = 0 To UBound(lineOfFile)
lineOfFile(i) = Replace(lineOfFile(i), vbCr, "")
curWS.Cells((i + 1), 1).Value = lineOfFile(i)
Next i
End Sub
No.2
- 回答日時:
コマンドプロンプト開いて、DEBUGでDUMPしてみるとか。
>debug 「そのファイルテキスト」[Enter]
-d [Enter]で16進ダンプを表示できます。
#OSは何だろう?XPだとDEBUGは動きます。
この回答への補足
連絡ありがとうございます。
OSはWindows8.1なので、DOSコマンドプロンプトでdebugはダメでした。
VectorでHexダンプが見れるツールをダウンロードしてみたら、問題のコードは"1A"になっていました。
ネットで調べると、
SUB substitute 置き換え
ファイルを一行づつ読み込む前にどのように変換するべきか、VBAでどのように記載すべきか
ご教授頂けると幸いです。
よろしくお願いします。
No.1
- 回答日時:
ソースコードの変更の前に現状を確認します。
質問者様とバージョンが異なるかもしれませんが、
Ver2.1.1.1のさくらエディタをダウンロード、セットアップしてみました。
ウィンドウの右下に文字コードが表示されています。
ここで文字コードそのものの判別は可能です。
VBAでは、SJISで読み込もうとします。
例えば、テキストファイルがUTF-8などSJIS以外の場合、
テキストファイルに日本語など2バイト文字が含まれていると
エンコードに失敗してしまい、情報の欠落が発生します。
SJISの場合であれば、何かしかの制御コードが含まれている可能性があります。
2行目の内容を読み込んだ時
msgbox Hex(Asc(Mid(strREC, 5, 1))) (ダブルクォーテーションが含まれている場合は5→6)
とするとアスキーコードが判明します。
cの場合は、63と表示されます。
Cの場合は、43と表示されます。
この回答への補足
早々の提案ありがとうございます。
教えて頂いた方法で実施すると"815B"と表示されました。
5→6にするとエラー(プロシージャの呼び出し又は引数が不正)になりました。
ということは815BがEOFをなっているコードになりますでしょうか?
プログラム内の
Line Input #intFF, strREC
で一行づつ読み込む前に何か手だてはありますでしょうか?
すみませんが、ご教授方よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
このQ&Aを見た人はこんなQ&Aも見ています
-
餃子を食べるとき、何をつけますか?
みんな大好き餃子。 ふと素朴な疑問ですが、餃子には何をつけて食べますか? 王道は醤油とお酢でしょうか。
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
プリン+醤油=ウニみたいな組み合わせメニューを教えて!
プリンと醤油を一緒に食べると「ウニ」の味がする! というような意外な組み合わせから、新しい味になる食べ物って色々ありますよね。 あなたがこれまでに試した「組み合わせメニュー」を教えてください。
-
お風呂の温度、何℃にしてますか?
みなさん、家のお風呂って何℃で入ってますか? ぬるめのお湯にゆったり…という方もいれば、熱いのが好き!という方もいるかと思います。 我が家は平均的(?)な42℃設定なのですが、みなさんのご家庭では何℃に設定していますか?
-
EOF
C言語・C++・C#
-
VBAでテキストファイルを最後まで読み込みたい
Visual Basic(VBA)
-
続・EOF判定されない
C言語・C++・C#
-
-
4
csvファイルの最後にeof(0x1a)を付けたいのですが
Windows Vista・XP
-
5
VBAでCSVファイルを途中行まで読んだ後で最初の行から読み直す方法はありますか?
その他(プログラミング・Web制作)
-
6
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
7
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
8
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
9
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
10
VBの「As String * 128」とは?
Visual Basic(VBA)
-
11
Excelマクロ 空白セルを無視してCSV出力
Excel(エクセル)
-
12
配列でデータが入っている要素を求める方法
Visual Basic(VBA)
-
13
バッチでテキストファイルから任意の行のみ取得したい
その他(プログラミング・Web制作)
-
14
貼り付けで複数セルに貼り付けたい
Excel(エクセル)
-
15
VBAの配列サイズとメモリに関して
Visual Basic(VBA)
-
16
VBA:Openステートメントで開いたCSVファイルの特定行を削除する方法
その他(プログラミング・Web制作)
-
17
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/22】このサンタクロースは偽物だと気付いた理由とは?
- ・お風呂の温度、何℃にしてますか?
- ・とっておきの「まかない飯」を教えて下さい!
- ・2024年のうちにやっておきたいこと、ここで宣言しませんか?
- ・いけず言葉しりとり
- ・土曜の昼、学校帰りの昼メシの思い出
- ・忘れられない激○○料理
- ・あなたにとってのゴールデンタイムはいつですか?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
Excelにて、フォルダ内のTextフ...
-
VBAでテキストファイルを最後ま...
-
VBScript(vbs)での行の取得につ...
-
Java バブルソート
-
uwscでExcelに自動記入
-
VBAでテキストファイルの件...
-
アスキー、バイナリーの違い、...
-
複数のテキストファイル内の複...
-
スペース区切りのテキストファ...
-
EXCELのVBAでEOFを誤認識
-
同一フォルダにある複数のテキ...
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
エクセルで複数のコメントのサ...
-
Excel 相対パス
-
xcopyコマンドの進行状況を表示...
-
エクセルvbaでdocuworksprinter...
-
カンマ区切りのCSVファイルから...
-
frxファイルの役目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
EXCELのVBAでEOFを誤認識
-
同一フォルダにある複数のテキ...
-
アスキー、バイナリーの違い、...
-
テキストファイルの最終行を消...
-
uwscでExcelに自動記入
-
VBAでテキストファイルを最後ま...
-
VBSを使用し、指定フォルダ内の...
-
複数のテキストファイル内の複...
-
unixのシェルスクリプトで特定...
-
Excelにて、フォルダ内のTextフ...
-
VBScript(vbs)での行の取得につ...
-
VBでファイルの判定
-
スペース区切りのテキストファ...
-
vbaでテキストファイル(*.txt...
-
VBで複数のテキストを結合する...
-
ダイアログのタイトルを変更する
-
VBでのテキストファイルへ参照...
-
【VBA】テキストファイルの内容...
-
テキストファイルの改行コード...
おすすめ情報