VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/05/18(Wed) 16:50 |
| 投稿者 | ： YK |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 文字コードを漢字変換するには？ |
> 例えば”漢字”（シフトJISコードですと 8ABF8E9Aになります）を通信で受信すると BF8A9A8E とな
こんにちは。
２バイトセットならば下記の方法で
１バイトが入っていたら駄目です。
Private Sub Command1_Click()
Dim bytS(3) As Byte
Dim bytD() As Byte
Dim i As Long
bytS(0) = &HBF
bytS(1) = &H8A
bytS(2) = &H9A
bytS(3) = &H8E
ReDim bytD(UBound(bytS))
For i = 0 To UBound(bytS) Step 2
bytD(i) = bytS(i + 1)
bytD(i + 1) = bytS(i)
Next
Debug.Print StrConv(bytD, vbUnicode)
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）