Converts all Ƽ found in a string into their actual chars
Function NMACode(SomeStr)
' Converts any Dec; found in the string into its actual char
NewStr = SomeStr
NewStr = Replace(NewStr, "&", "&")
NewStr = Replace(NewStr, " >", " >")
NewStr = Replace(NewStr, " <", " <")
NextCode:
Part1 = CutString(NewStr, , "")
Part2 = CutString(NewStr, "", ";")
If InStr(1, NewStr, "") > 0 Then
Part3 = CutString(NewStr, ";", , InStr(1, NewStr, ""))
If Part3 = NewStr Then GoTo Byebye
Else
GoTo Byebye
End If
NewCode = ChrW(CLng(Part2))
NewStr = Part1 & NewCode & Part3
GoTo NextCode
Byebye:
NMACode = NewStr
End Function
' Converts any Dec; found in the string into its actual char
NewStr = SomeStr
NewStr = Replace(NewStr, "&", "&")
NewStr = Replace(NewStr, " >", " >")
NewStr = Replace(NewStr, " <", " <")
NextCode:
Part1 = CutString(NewStr, , "")
Part2 = CutString(NewStr, "", ";")
If InStr(1, NewStr, "") > 0 Then
Part3 = CutString(NewStr, ";", , InStr(1, NewStr, ""))
If Part3 = NewStr Then GoTo Byebye
Else
GoTo Byebye
End If
NewCode = ChrW(CLng(Part2))
NewStr = Part1 & NewCode & Part3
GoTo NextCode
Byebye:
NMACode = NewStr
End Function
SomeStr
Views 4,434
Downloads 1,382
CodeID
DB ID