掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
漢字コードの取得について (ID:102672)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> コードを文字列で取得したいです。 つまり、 Text1.Text = "C5ECB5FE" のようなデータでしょうか? > またこの変換はファイル経由でないと無理なのでしょうか？ Stream を直接読み取れば OK です。 Option Explicit Private Sub Form_Load() Text2.Locked = True End Sub Private Sub Text1_Change() Text2.Text = "" If Text1.Text = "" Then Exit Sub End If Dim byteArray() As Byte With CreateObject("ADODB.Stream") .Charset = "euc-jp" .Open .WriteText Text1.Text .Position = 0 .Type = 1 byteArray = .Read() .Close End With Dim v As Variant For Each v In byteArray Text2.SelText = Right("00" & Hex(v), 2) Text2.SelStart = Len(Text2.Text) Next End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.