| 投稿日 | ： 2003/04/20(Sun) 15:03 |
| 投稿者 | ： 西一 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： バイナリ モード でリードしたデータについて。 |
こんにちは、皆さん。
バイナリーモードで読み込んだファイルの文字列部分を変換されずに文字列として取得する方法は
どの様にすればよいでしょうか…
ファイルとしては、
08 00 08 00 18 00 00 00 4F 52 49 47 47 4E 41 4C ……
~~~~~~~①~~~~~~~~~~~~~~ ~~~~~~~~~~~②~~~~~~~~~~
①の部分はキー部分なので、ＨＥＸで使用します。
②の部分はデータの値なので文字列で使用します。
-----------------------------------------------------------------------------
Const fileinfo As String = "T:\&&DownLoad\143210000.DCM"
Dim Mychar As String
Dim Mybyte As Byte
Dim MyHex
Open fileinfo For Binary As #1 ' ファイルを開きます。
Do While Not LOF(1) ' ファイルの終端までループを繰り返します。
Get #1, , Mybyte ' 1 文字のデータを読み込みます。
MyHex = HEX(Mybyte) 'Hexに変換
'-- ①のキー部分のマッチング処理
'-- ②の文字列の表示等の処理
Loop
Close
-----------------------------------------------------------------------------
ファイルを読み込んだ場合、MybyteはHEX→数値に変換されて格納されます。
18→24
数値にされた値をＨＥＸで数値→ＨＥＸに変換しています。
24→18
文字列の部分
4F 52 49 47 47 4E 41 4C をO R I G I N Aとして取得する方法はどうすれば
良いでしょうか？