掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイト配列から変数切り出し (ID:100982)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
VB6を使用しています。バイト配列を試しています。 今まではバイナリファイルからGet＃で一文字づつ読んでデータの頭のタグ、ターミネーターのタグをを探し、そこからの相対位置から文字列、Long,Dblなどの変数を読み取っていました。（タグ間のバイト数は一定）正確に動くのですが遅いという欠点がありました。 Dim VInt as integer Dim VLong as Long Dim VDbl as Double Dim sName as String * 16 (1バイト文字） Dim i,i2 ・ ・ Get #1,i,sName Get #1,i + 12, VDbl Get #1,i + 16, VLng Get #1,i + 20, VInt のようにしていました。 これをバイト配列で一挙に読むように Dim buf() As Byte Dim LByte As Long Open ｓFILE For Binary As #1 LByte = LOF(1) If LOF(1) Then ReDim buf(1 To LOF(1)) Get #1, , buf End If Close #1 のようにしてみました。この中からｓNameを切り出すのに sName = "" For i2 = 1 to 16 sName = sName & Chr(buf(i + i2)) Next i2 のようにしてみましたが何かスマートな方法がありそうな気がして質問させていただきました。 よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.