-
Notifications
You must be signed in to change notification settings - Fork 23
/
PMSV_ASCII.vba
31 lines (27 loc) · 859 Bytes
/
PMSV_ASCII.vba
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Attribute VB_Name = "Ä£¿é1"
Function ConvertUnicodeArrary(str As String, digit As Integer) As String
Dim arr() As Byte
Dim i
Dim char() As String
If str = "" Or digit > Len(str) Then
ConvertUnicodeArrary = "0"
Exit Function
End If
ReDim char(Len(str))
For x = 1 To Len(str)
char(x - 1) = Mid(str, x, 1)
Next x
For i = 0 To UBound(char)
ReDim arr(0 To UBound(char) * 2)
arr = char(i)
char(i) = ""
For j = 0 To UBound(arr)
If IsNumeric(VBA.Hex(arr(j))) And Len(VBA.Hex(arr(j))) = 1 Then
char(i) = "0" & VBA.Hex(arr(j)) & char(i)
Else
char(i) = VBA.Hex(arr(j)) & char(i)
End If
Next j
Next i
ConvertUnicodeArrary = char(digit - 1)
End Function