掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
chr(&h81)〜のパック変換について (ID:100162)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
テキストファイルとして出力する場合、一旦文字列に変換されます。 そうすると、元の木阿弥です。 思いつく方法は・・・ （方法１） OutputモードでOpenして、通常の文字を出力する。 パック変換部分になったら一旦Closeし、BinaryでOpenしなおす。 ファイル末尾にSeekで移動して、パック変換部分を出力。 また、CloseしてOutputモードでOpenしなおして、通常の文字列を出力 ・・・を繰り返す （方法２） BinaryでOpenし、通常の文字列も一旦Byte配列に変換してからバイナリーで出力 方法２の場合、例えば、 ------------------------------------ Dim fn fn = FreeFile() Dim b2() As Byte Open "C:\out.txt" For Binary As fn b2 = StrConv(",あいうえお", vbFromUnicode) Put #fn, , b2 Close #fn ------------------------------------ の様にすれば、Binaryモードで文字列が出力されます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.