第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
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
