vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾

ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:

+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32",145,48
0042004C0053005A00300030003000410030003000300036003300410033...

µÚ2ÐоÍÊÇunicode±àÂëµÄÎı¾,ÈçºÎת»»³ÉÎı¾,лл!

---

text1.Text= StrConv(aBytes, vbUnicode)

---

VB code:
Private Sub Command1_Click()
Dim strSj As String
Dim bytSj() As Byte
Dim l As Long
Dim i As Long
strSj = "0042004C0053005A00300030003000410030003000300036003300410033"
l = Len(strSj)
ReDim bytSj(l \ 4 - 1)
For i = 1 To l Step 4
bytSj((i - 1) / 4) = Val("&H" & Mid(strSj, i + 2, 2))
Next
Me.Print StrConv(bytSj, vbUnicode)
End Sub

---

ÒýÓÃ

text1.Text= StrConv(aBytes, vbUnicode)

ÎÒÓõÄÊÇVB2008,ÄãµÄ»Ø´ðºÃÏñÊÇVB6.0
»¹ÊǸÐлÄã

---

Äã·¢ÔÚ¡°VB-»ù´¡Àࡱ°æ¿é£¬±ðÈ˲»¸øÄã VB6.0 µÄ´úÂ룬ÄǸøʲô£¡

---

VB.NET code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "0042004C0053