Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3252 / 9994

←次へ　｜　前へ→


	【10004】Re:テキストデータの読込について

VBWASURETA - 07/11/22(木) 10:58 -


	引用なし

	パスワード

こんにちは。始めまして

最近VBから遠ざかって忘れ欠けてますが、
多分で書き込みします。

桁ズレというより、読み込むレコード長の問題ですよね？
NEMOTOさんバイトとかわかりますでしょうか？
>Dim filedata As String * 31
この部分ですが、
filedataという変数は31バイト取りますよという宣言だったと思います。

全角文字とかは２バイトつまり、半角文字の１バイト、改行コード２バイト等を
混在の場合はそれらを考慮しないといけないと思います。
※型はもしかするとOS、アプリに依存する場合もあるかもです。

なので、どうしてもバイナリデータとして取得しないといけない
問題なのでしょうか？

１行単位で取得するだけで十分であれば以下のような感じでいいように
思います。（いや、VBAから離れてもまだまだ書けるもんですね）

　　Dim filenumber as Integer
　　Dim buf as String
　　filenumber = FreeFile
　　Open FName For Input Access Read As #filenumber
　　　　Do Until EOF(filenumber)
　　　　　　Line Input #filenumber, buf '１行単位に取得
　　　　　　Debug.Print("ここで取得したテキスト内容を処理")
　　　　Loop
　　Close #filenumber

1,256 hits

▼

【9873】テキストデータの読込について NEMOTO 07/9/27(木) 16:53