Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13080 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7134】16進 あらた 03/8/23(土) 20:52 質問
【7136】Re:16進 INA 03/8/23(土) 21:17 回答
【7138】Re:16進 あらた 03/8/23(土) 21:32 質問
【7143】Re:16進 よろずや 03/8/23(土) 23:48 発言
【7148】Re:16進 あらた 03/8/24(日) 10:18 質問
【7151】Re:16進 通りすがり 03/8/24(日) 10:47 回答
【7153】Re:16進 あらた 03/8/24(日) 11:02 発言
【7134】16進
質問  あらた  - 03/8/23(土) 20:52 -
引用なし
パスワード
   はじめまして。こんにちは。

バイナリファイルを16進表示させたいのですが、なかなか上手くいきません。
ファイルOPEN方法、16進ダンプをテキストとして表示させる方法
なにか、ヒントがあれば教えてください
【7136】Re:16進
回答  INA  - 03/8/23(土) 21:17 -
引用なし
パスワード
   >バイナリファイルを16進表示させたいのですが、なかなか上手くいきません。
どのように、上手くいかないのでしょうか？
上手くいかないコードを掲載して、説明して頂けないでしょうか？

>ファイルOPEN方法、16進ダンプをテキストとして表示させる方法
何ファイルをどのように開きたいのでしょうか？
・ExcelでExcelファイルを開く。
・Excelで.xls以外のファイルを開く。
・拡張子で関連付けされているファイルを開く。
（Excelで開いてxls以外のファイル形式で保存？）
【7138】Re:16進
質問  あらた  - 03/8/23(土) 21:32 -
引用なし
パスワード
   INAさんこんにちは。

>何ファイルをどのように開きたいのでしょうか？
>・ExcelでExcelファイルを開く。
>・Excelで.xls以外のファイルを開く。
>・拡張子で関連付けされているファイルを開く。
>（Excelで開いてxls以外のファイル形式で保存？）


特定のフォルダの中の膨大なファイル（.xls以外のファイル）の内容を
１ファイルずつ検証します。
特定の文字が含まれているファイルを別フォルダに移動させるのですが
その検証が16進のまま（こんな書き方でわかりますか？）実行したいのです。
セルに表示させるのではなく変数に１６進ダンプのような形で格納を考えています。

ファイルをバイナリで開いて１バイトごと取り出すところで止まってしまって･･･
【7143】Re:16進
発言  よろずや  - 03/8/23(土) 23:48 -
引用なし
パスワード
   >ファイルをバイナリで開いて１バイトごと取り出すところで止まってしまって･･･
見せてくれなければ間違い探しは出来ません。
【7148】Re:16進
質問  あらた  - 03/8/24(日) 10:18 -
引用なし
パスワード
   ▼よろずや さん：
>>ファイルをバイナリで開いて１バイトごと取り出すところで止まってしまって･･･
>見せてくれなければ間違い探しは出来ません。

コードは下記のように書いています。
ファイルには文字も含まれています。
下のコードは"A"の文字を41と取得したいのですが、"A"のままです。

Sub Test_B_File()
　 Dim Fnum As Integer, i As Integer
　 Dim Buf As String
　 Const MyF As String = "C:\test.dat"
　　
　 Fnum = FreeFile()
　 Open MyF For Binary Access Read As #Fnum
　 For i = 1 To 5
　　　Buf = String(1, " ")
　　　Get #Fnum, i, Buf
　 Next i
　 Close #Fnum
End Sub
【7151】Re:16進
回答  通りすがり  - 03/8/24(日) 10:47 -
引用なし
パスワード
   こちらは？

http://www.ae.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200308/03080251.txt
【7153】Re:16進
発言  あらた  - 03/8/24(日) 11:02 -
引用なし
パスワード
   通りすがり さん、ありがとうございます
何とかなりそうです。ちょっと、この先にも難関があるかもしれないので
また、よろしくお願いします
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13080 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free