文字列中の異文字を16進表示する関数(VB.NET)
VB.NETに焼き直して、
Public Class Class1
Public Shared Sub Main()
Dim s = "あアabc" & Chr(10) & ChrW(128)
MsgBox(xString(s))
End Sub
Private Shared Function xString(ByVal s As String) As String
Dim x As String = ""
For k As Integer = 1 To Len(s)
Dim c = Mid(s, k, 1)
If 31 < AscW(c) AndAlso AscW(c) < 128 Then
ElseIf &Hff60 < AscW(c) And AscW(c) < &Hffa0 Then
ElseIf Chr(Asc(c)) = c And Asc(c) < 0 Then
Else
c = Hex(AscW(c))
c = "{" & New String("0"c, Len(c) Mod 2) & c & "}"
End If
x = x & c
Next
Return x
End Function
End Class
« 文字列中の異文字を16進表示する関数(VBA) | トップページ | MidA(文字列, 開始バイト位置, バイト長)関数を作る(VBScript) »