âË ÊØ´ÂÍ´¤
เลยเขียนมาเพื่อแก้ไขให้อ่านได้
Sub TextDecode()
s1 = ActiveSheet.Range("A1")
pos1 = InStr(1, s1, "#")
pos2 = InStr(pos1, s1, ";")
num = Mid(s1, pos1 + 1, pos2 - pos1 - 1)
Debug.Print Chr(num);
For i = 1 To 100
pos1 = InStr(pos2, s1, "#")
pos2 = InStr(pos1, s1, ";")
num = Mid(s1, pos1 + 1, pos2 - pos1 - 1)
Debug.Print Chr(num);
Next
End Sub
1 ความคิดเห็น:
แล้วถ้าเป็นแบบนี้หละ
?????????????????????????????????
โดยเราลองใช้
Dim ascii As Encoding = Encoding.ASCII
Dim [unicode] As Encoding = Encoding.UTF8
Dim unicodeBytes As Byte() = [unicode].GetBytes("String")
Dim asciiBytes As Byte() = Encoding.Convert([unicode], ascii, unicodeBytes)
Dim asciiChars(ascii.GetCharCount(asciiBytes, 0, asciiBytes.Length)) As Char
ascii.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
Dim asciiString As New String(asciiChars)
TextBox1.Text = asciiString
แสดงความคิดเห็น