[リストへもどる]
一括表示
投稿時間：2003/04/17(Thu) 17:18
投稿者名：るぅい
Ｅメール：
ＵＲＬ　：
タイトル：VBで文字コード
初めまして、初心者なのですがよろしくお願いします。

質問ですが。VBでバイナリコード 1A をファイルに書き出したいのですが
どのようなコードを書けばいいのでしょうか

よろしくお願いします。

投稿時間：2003/04/17(Thu) 20:26
投稿者名：nobu
Ｅメール：
ＵＲＬ　：
タイトル：Re: VBで文字コード
> 質問ですが。VBでバイナリコード 1A をファイルに書き出したいのですが
> どのようなコードを書けばいいのでしょうか

どの形式ファイルに書き出すのか不明ですが、バイナリファイルへなら

Dim a As Byte
Dim  bFile = FreeFile
a = &H1A
Open "a.bin" For Binary As #bFile
Put #bFile, , a
Close #bFile

'----
テキストファイルへ　「　１Ａ　」と書き出したいなら
Dim a As Byte
Dim  bFile = FreeFile
a = &H1A
Open "a.txt" For OutPut As #bFile
Print #bFile, Hex(a)
Close #bFile

投稿時間：2003/04/18(Fri) 09:14
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: VBで文字コード
> Dim  bFile = FreeFile
この部分は、
  Dim bFile As Integer
  bFile = FreeFile()
ですね。

投稿時間：2003/04/18(Fri) 10:46
投稿者名：るぅい
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: VBで文字コード
さっそくのご回答ありがとうございました(^o^)

投稿時間：2003/04/18(Fri) 11:50
投稿者名：nobu
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: VBで文字コード
魔界の仮面弁士さん、何時も教えて頂いています。ありがとうございます。

> > Dim  bFile = FreeFile 　<----　これは単純な記載ミスでしたね。
> この部分は、
>   Dim bFile As Integer　
>   bFile = FreeFile()　　　<----　　こう言う使い方をした事がありませんでした。
　　　　　　　　　　　　　     　　　今後の参考にさせて頂きます。