27 lines
670 B
VB.net
27 lines
670 B
VB.net
|
Function StripCtrlCodes(s)
|
|||
|
|
tmp = ""
|
|||
|
|
For i = 1 To Len(s)
|
|||
|
|
n = Asc(Mid(s,i,1))
|
|||
|
|
If (n >= 32 And n <= 126) Or n >=128 Then
|
|||
|
|
tmp = tmp & Mid(s,i,1)
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
StripCtrlCodes = tmp
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Function StripCtrlCodesExtChrs(s)
|
|||
|
|
tmp = ""
|
|||
|
|
For i = 1 To Len(s)
|
|||
|
|
n = Asc(Mid(s,i,1))
|
|||
|
|
If n >= 32 And n <= 126 Then
|
|||
|
|
tmp = tmp & Mid(s,i,1)
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
StripCtrlCodesExtChrs = tmp
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
WScript.StdOut.Write "ab<EFBFBD>cd<EFBFBD>ef<EFBFBD>gh€" & " = " & StripCtrlCodes("ab<EFBFBD>cd<EFBFBD>ef<EFBFBD>gh€")
|
|||
|
|
WScript.StdOut.WriteLine
|
|||
|
|
WScript.StdOut.Write "ab<EFBFBD>cd<EFBFBD>ef<EFBFBD>ghij†klð€" & " = " & StripCtrlCodesExtChrs("ab<EFBFBD>cd<EFBFBD>ef<EFBFBD>ghij†klð€")
|
|||
|
|
WScript.StdOut.WriteLine
|