バイナリ形式でデータを読み込む際の値の配列化方法について

前へ 次へ
このQ&Aのポイント
  • バイナリ形式でデータを読み込む際に配列に入る値の形式や方法について教えてください。
  • filecsvに含まれているCSV形式のデータをバイナリ形式で読み込むソースコード(一部抜粋)でGet #1, , bytArrayとして配列bytArrayに全データを読み込んでいると思いますが、配列bytArrayの中に値がどのように入るのかを知りたいです。
  • バイナリ形式のデータを読み込む際に配列の要素に値を格納する方法について教えてください。
回答を見る
  • ベストアンサー

バイナリ形式で読み込み時の配列に入る値について

filecsvにCSV形式のデータが含まれているときに 以下のソース(一部抜粋)でGet #1,,bytArray で配列bytArrayにfilecsvの全データを読み込んでいると思うのですがその時にbytArray(0) bytArray(1)の配列を用意すればそれらはどういう形で配列の中に値が入るのでしょうか？ よろしくお願い致します。 Dim Fileno As Integer Dim bytArray() As Byte Open filecsv For Binary As Fileno ReDim bytArray(1) Get #1, , bytArray … … Close #Fileno

質問者が選んだベストアンサー

  • ベストアンサー
  • dsuekichi
  • ベストアンサー率64% (171/265)
回答No.1

> Get #1,,bytArray で配列bytArrayにfilecsvの全データを読み込んでいる 読み込んでいません。 読み込まれるのは、 > ReDim bytArray(1) の指定によって明示的に確保された、bytArray(0)とbytArray(1)の２バイト分だけです。 ですから、ファイルの先頭のバイトがbytArray(0)に２バイト目がbytArray(1)に読み込まれます。

eiki0520
質問者

お礼

ご解答ありがとうございます。 全データを読み込んでいるわけではないのですね おかげでスキッリしました。 ありがとうございます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【VB6.0】ファイルからサイズの大きいバイナリデータを読み込む際にエラー

    はじめまして。 初投稿の新米プログラマです。 VB6.0で多種類のファイルをバイナリデータとして読み込んで 返却する関数を作成しています。 '------------------------------------- ' ファイルからバイナリデータを読み込む '------------------------------------- private Function GetBinaryData(ByVal strFileName As String) As Byte() On Error GoTo Exception Dim fileNo As Integer Dim fileSize As Long Dim bytData() As Byte 'ファイルのサイズを取得する fileSize = FileLen(strFileName) ReDim bytData(fileSize - 1) 'バイナリデータ読み込み fileNo = FreeFile Open strFileName For Binary Access Read As fileNo Get #fileNo, , bytData Close #fileNo '戻り値の設定 GetBinaryData = bytData Exit Function 'エラー処理 Exception: MsgBox (CStr(Err.Number) & " " & Err.Description) End Function ですが、↑の関数にサイズの大きなファイル(100M程度)を指定したとき 　ReDim bytData(fileSize) で、「メモリが不足しています」というエラーが発生してしまいます。 発生の仕方としては、'エラー処理のMsgBoxで表示されることも ありますし、プログラムが停止することもありますし、 On Error GoToを記述しているのにも関わらず VBのメッセージボックスが表示されることもあります。 　＃[継続][終了][デバッグ][ヘルプ]のボタンが出ているやつです。 ちなみに、50M程度のファイルであれば読み込めています。 このエラーが発生する原因は何なのでしょうか？ また、解決方法(サイズの大きなファイルを確実に読み込む方法)は あるのでしょうか？ 解決方法がないのであれば、「○Ｍ以上のファイルはエラー」という 仕様にしようと思うのですが、 何Ｍまでなら確実に読み込むことが出来るのでしょうか？ …もしくは上のコーディング自体、検討違いでしょうか^^; 　＃バイト配列の要素数に上限があるとか…？ とても困っています… どうかよろしくお願い致します。

  • VBAでバイナリエディタを作ろうとしています

    テキストファイルを内部でバイナリとして開いて 16進数のダンプファイルとして新たなテキストに保存することはできたのですが 逆がどうしてもできません。 やり方としては、 03 E3 BD 71 80… のようなテキストデータをバイナリにして16進数にして保存したテキストファイルをダイアログから呼び出してもう一度元のテキスト文章に戻すという作業です。 とりあえず、まずは以下のコードでエクセル内で16進数を元の文章データに変換しようとしています。 Sub binaryToText() Dim fname As String Dim str() As Byte Dim row As Integer row = 1 fname = "Test.txt" '16進数ファイル Open fname For Binary As #1 Do Until EOF(1) ReDim Preserve str(row) Get #1, , str(row) row = row + 1 Loop Close #1 End Sub hex関数やchr関数を使う必要があるのでしょうか？ VBAは始めたばかりで根本的なところで間違っているかもしれませんがよろしくお願いします。

  • InetコントロールHTTPでバイナリファイルをサーバにPUTする。

    Inetコントロールを使用してHTTPでサーバ上にバイナリファイルを送信使用としています。 ExecuteメソッドのPUTを使用してみましたが、サーバ上のファイルサイズが0KBになってしまい、正常に送信されていません。 Dim bData() As Byte Dim intFile As Integer intFile = FreeFile() Open "D:\Temp\aaa.mdb" For Binary Access Read As #intFile ReDim bData(0 To LOF(intFile) - 1) 'ここでは、bDataに読み込めている。 Get #intFile, , bData Close #intFile Inet1.Execute "http://aaserver/files/aaa.mdb", "PUT", bData よろしくお願いします。

  • 配列の内容をファイルの書出す

    ２次元配列のデーターを書出す方法で困っています。 プログラムを以下のようにして書出したいデーターは x(1,0 To 5) の内容だけ書出したいのですがPut #1,, をどの用に書けばよろしいでしょうか。 Dim x(5,5) as Byte OPEN "C:\AAA" for Binary as #1 Put #1,,xx おねがいします。

  • ＶＢＡでバイナリデータが上手く読めない。

    ＶＢＡでバイナリデータが上手く読めない。 もともとC言語でバイナリデータを加工していた事をVBAでやる事になったのですが、上手く読めない。 ＜VBA＞ Open inputFileName For Binary As #mFileNo のようにオープンして、 ＜VBA＞ Dim a(800) As Byte Get #1, , a のように記述すればC言語のように取得出来ると思ったのですが、上手く取得出来ません。 なんとなく分かった事ですが、800バイトの中に改行文字があった場合、そこまでを変数aに入れるようにすると出来そうなので、Getで改行コードがあった場合はそこまでを読み込むみたいな手段はありますでしょうか。inputだとデータがまったく見れませんでしたのでGetにて対応したいと思っています。 宜しくお願い致します。

  • OpenOfficeBasicで漢字が表示できない

    OpenOfficeBasicで、ＣＳＶファイルを読み、ＣＥＬＬにセットしていくと漢字が文字化けしてしまいます。 何かの設定がおかしいと思いますが、わかりません。 よろしくご教授ください。 ＯＳはＣｅｎｔｏｓ５です。 ＯｐｅｎＯｆｆｉｃｅ．ｏｒｇ３　Linux用を使っています。 マクロの内容は以下の通りです。 sub csvinput dim document as object document = ThisComponent.CurrentController.Frame dim FileNo As Integer dim data As String dim File As String Filename = "/var/webapps/doc/test/nippou.csv" FileNo = Freefile Open Filename For Input As FileNo Do While not eof(FileNo) dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "StringName" Input #FileNo, data args2(0).Value = data Loop Close #FileNo endsub

  • バイナリデータの中からMidのように指定範囲を取得したい

    教えて下さい。 VB6です。 テキストファイルをバイナリモードで開き、Midのように特定の位置から、 必要な分を取得し、ファイルを分割させたいです。 調べてたら、 Open 読込ファイル For Binary As #1 Open 書込ファイル For Binary As #2 ReDim bytData(1 To LOF(1)) Get #1, , bytData() Put #2, , bytData() close #1 close #2 というのを見つけました。これだとそのままコピーします。 ここから、指定された、バイト数目から指定されたバイト数までの データを取得し別のファイルを作りたいのですが、 うまくできません。どうしたら、望むことができるでしょうか？ お助け下さい。

  • CSVから構造体へ代入

    お世話になります。 Private Type TestRecord Col1 As String * 255 Col2 As String * 255 Col3 As String * 255 End Type Sub ボタン1_Click() Dim FName As String Dim FileNo As Integer Dim LineData As String Dim TestRec() As TestRecord FileNo = FreeFile '選択したファイル名の取得 FName = Application.GetOpenFilename("CSV ファイル (*.CSV),*.CSV") If FName = "False" Then Exit Sub End If Open FName For Input As #FileNo Do Until EOF(FileNo) i = i + 1 Line Input #FileNo, LineData ReDim TestRec(i) TestRec() = Split(LineData, ",") Debug.Print buf Loop Close #FileNo End Sub ファイルの中身 "テストID１","テスト姓１","テスト名１" "テストID２","テスト姓２","テスト名２" 以上のコードを実行するとTestRec() =～の部分で型が一致しません とエラーが出てしまいます。 よき解決方法があれば教えてください。宜しくお願いします。

  • 教えてください。VBでのバイナリデータ。

    EUCコードで作成されたlndatファイルをオープンし、 コード変換するプログラムを作っています。 データの所得時にHexを使っているのですが、 所得データが 000000000000000000220801011200012000 となっています。 元データは 000000000000000000000000000000000000220080010001012000000120000000000000 なため、この様に所得したいのですが、上手く所得できません。 こういったデータの所得は可能なのでしょうか？ また、自分の作成したソース自体にバグがあるのでしょうか？ よろしかったら教えてください。 >>以下ソース Dim Data As Byte　　　　 '所得データ(１バイトごと) Dim Data_A As Variant 'ファイルから所得したデータ(ALL) Dim I As Long 'カウンター Dim File_Name As String 'ファイル名 Dim Filnm As Long 'ファイル番号 I = 1 Data_A = "" Filnm = FreeFile File_Name = "AA.lndat" Open App.Path & File_Name For Binary As #Filnm Do While EOF(Filnm) = False Get #Filnm, I, Data Data_A = Data_A & Hex(Data) I = I + 1 Loop Close #Filnm >>開発環境 VB5.0(SP3) Win2000 フリーのDLL等は使用不可能とお考え下さい。

  • エクセルVBAでボタンを割り当てて、そこに入力行数とCSV形式出力をおこなうように記述したい。

    エクセルのVBAでエクセルの入力データをCSVに出力するVBAを書こうとしておりますが、２点ほどわかりません。 まず、入力行数を調べたいのですが、Ａ列で入力があるところまでを個数としたいのですがどのように求めるかわかりません。 あと、データをCSV形式でファイルに落としたいのですがどうすればよいのでしょうか？ Dim fp As Integer Dim fname As String dim num as integer num = 入力数(たとえば、a列に入力がある行数など) 　msgbox("入力行数=" & cstr(num) & "です。") fname = "test.csv" fp = FreeFile Open fname For Output As #fp CSV形式で出力する Close #fp

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する