Attribute VB_Name = "HTML_TXT"
Sub test()
Debug.Print HtmlTxt("ÖöÜüŸÿÃãĨĩÕõÇç
")
End Sub
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "&$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf
Htm = "&$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë"
Htm = Htm & "$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Ĩ$ĩ$Õ$õ$Ç$ç$ $
"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare)
Next
End Function
Function HtmlTxt(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
HtmlTxt = T
Txt = "&$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf
Htm = "&$Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì"
Htm = Htm & "$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë"
Htm = Htm & "$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Ĩ$ĩ$Õ$õ$Ç$ç$ $
"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
HtmlTxt = Replace(HtmlTxt, Htm(I), Txt(I), 1, compare:=vbBinaryCompare)
Next
End Function