文字化けに対応したい (ID:102737)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MSComm.Output に「String 型」を渡す事も避けてください。 基本的には、「Byte の一次元配列」を渡すようにします。 http://support.microsoft.com/kb/411403/ja バイト配列の作り方としては、 Dim bin() As Byte ReDim bin(3) bin(0) = &H2A bin(1) = &H2B bin(2) = &H2F bin(3) = &H3A のようにして作る方法や、XDR にて16進数文字列から バイナリ変換する方法などがあります。 Private Sub Command1_Click() Dim bin() As Byte bin = GetBinary("2a2b2f3a") ' End Sub Public Function GetBinary(ByVal hexString As String) As Byte() With CreateObject("Microsoft.XMLDOM").createElement("h") .DataType = "bin.hex" .Text = hexString GetBinary = .NodeTypedValue End With End Function