NMACode

Converts all Ƽ found in a string into their actual chars

CodeFunctionName
What is this?

Public

Tested

Original Work
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

SomeStr

Views 4,434

Downloads 1,382

CodeID
DB ID

ANmarAmdeen
602
Revisions

v1.0

Wednesday
June
27
2018
Needs