掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
chr(&h81)〜のパック変換について (ID:100160)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 具体的にどのようにするのでしょうか？ は > 数値をパック１０進数に変換する処理 変換してどうするかによりますので・・・ 例えば、 --------------------------------------- Dim s As String Dim b() As Byte Dim i As Long s = "1234567890" ReDim b(0 To Len(s) / 2 - 1) For i = 1 To Len(s) Step 2 b((i - 1) / 2) = CByte("&H" & Mid(s, i, 2)) Next Dim fn fn = FreeFile() Open "C:\out.txt" For Binary As fn Put #fn, , b Close #fn ---------------------------------------- こうすれば、ファイルに、16インコードで 12 34 56 78 90 が出力されます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.