Public Function chrConvert(strInput As String, Method As Integer) As String
' Method = 0 for Text to vbChr
' Method = 1 for Text to HTML
' Method = 2 for Text to Hex
' Method = 3 for vbChr to Text
' Method = 4 for HTML to Text
' Method = 5 for Hex to Text
If Method = 0 Or Method = 1 Or Method = 2 Then
chrConvert = ToChr(strInput, Method)
ElseIf Method = 3 Or Method = 4 Or Method = 5 Then
chrConvert = ToTxt(strInput, Method)
End If
End Function

Private Function
ToChr(strInput As String, Method As Integer) As String
strTmp = ""

For L = 1 To Len(strInput)
A = Asc(Mid(strInput, L,
1))
If Method = 0 Then
strTmp = strTmp & " & Chr(" & A & ")"
ElseIf Method = 1 Then
strTmp = strTmp & "&#" & A & ";"
ElseIf Method = 2 Then
strTmp = strTmp & "%" & Hex(A)
End If
Next
L
If Method = 0 Then strTmp = Right(strTmp, Len(strTmp) - 3)
ToChr = strTmp
End Function

Private Function
ToTxt(strInput As String, Method As Integer) As String
strTmp = ""
Dim inChr() As String
Dim
F As Integer, ForChr As Integer, tmpInput As String
If
Method = 3 Then
strInput = Replace(strInput, ")", "")
strInput = Replace(strInput,
" & ", "")
strInput = Replace(strInput,
"Chr(", "")
ElseIf Method = 4 Then
strInput = Replace(strInput, "&#", "")
strInput = Replace(strInput,
";", "")
ElseIf Method = 5 Then
strInput = Replace(strInput, "%", "")
End If
inChr = Split(strInput, "")

For F = 1 To ChrNum(strInput)
inChr(F) = AddZeros(
3 - Len(inChr(F))) & inChr(F)
tmpInput = tmpInput & inChr(F)
Next F

For L = 1 To Len(tmpInput)
A = Mid(tmpInput, L,
3)
If Method = 5 Then A = Val("&H" & A)
strTmp = strTmp & Chr(A)
L = L +
2
Next L
ToTxt = strTmp
End Function

Private Function
ChrNum(strInput As String) As Integer
Dim
lngLen As Long, lngFound As Long, lngEnd As Long
ChrNum = 0
lngLen& = Len(strInput$)
lngFound& = InStr(strInput$,
"")

Do While lngFound& <> 0
ChrNum = ChrNum + 1
lngFound& = InStr(lngFound& + 1, strInput$, "")
Loop
End Function

Private Function
AddZeros(Number As Integer) or="#0000FF">As String
Dim
Z As Integer, tmpZeros As String

For
Z = 1 To Number
tmpZeros = tmpZeros &
"0"
Next Z
AddZeros = tmpZeros
End Function


 
目前有0条回应
Comment
Trackback
你目前的身份是游客,请输入昵称和电邮!