Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
strOut = Replace(strOut, Chr(226) & Chr(128) & Chr(156), "", , , vbBinaryCompare) 'Chr(147)
strOut = Replace(strOut, Chr(226) & Chr(128) & Chr(157), "", , , vbBinaryCompare) 'Chr(148)
UTF-8 will support characters up to 6 bytes wide, although anything wider than 4 would probably be represented in UTF-16 or UTF-32.stevexff said:anything special or unusual is 2 bytes wide
Dim l As Long
Dim s As String
For l = LBound(b) To UBound(b)
Select Case b(l)
Case Is < 128
'Grab only the ASCII characters
'and append to s
s = s & Chr(b(l))
Case Is < 192
l = l + 1
Case Is < 224
l = l + 2
Case Is < 240
l = l + 3
Case Is < 248
l = l + 4
Case Is < 252
l = l + 5
End Select
Next l
'Output s
Debug.Print s