解决在反编译中出现中文字符都表示成16进制Unicode的形式



在vs.net 2003中打开[Tools]-[macros]-[macros explorer]
然后将下面的代码copy-paste 进去
代开你要转换的cs文件,在mymacros form中单击dubug就可以了

 1 解决在反编译中出现中文字符都表示成16进制Unicode的形式 Imports  EnvDTE
 2 解决在反编译中出现中文字符都表示成16进制Unicode的形式 Imports  System.Globalization
 3 解决在反编译中出现中文字符都表示成16进制Unicode的形式 Imports  System.Text.RegularExpressions
 4 解决在反编译中出现中文字符都表示成16进制Unicode的形式 Imports  System.Diagnostics
 5 解决在反编译中出现中文字符都表示成16进制Unicode的形式 Public   Module Birdshome
 6解决在反编译中出现中文字符都表示成16进制Unicode的形式    Sub Unicode2Character()
 7解决在反编译中出现中文字符都表示成16进制Unicode的形式        Dim doc As Document = DTE.ActiveDocument
 8解决在反编译中出现中文字符都表示成16进制Unicode的形式        Dim docText As TextDocument = doc.Object
 9解决在反编译中出现中文字符都表示成16进制Unicode的形式        Dim selText As TextSelection = docText.Selection()
10解决在反编译中出现中文字符都表示成16进制Unicode的形式        selText.SelectAll()
11解决在反编译中出现中文字符都表示成16进制Unicode的形式        Dim text As String = selText.Text
12解决在反编译中出现中文字符都表示成16进制Unicode的形式        Dim iLength As Integer
13解决在反编译中出现中文字符都表示成16进制Unicode的形式        Do
14解决在反编译中出现中文字符都表示成16进制Unicode的形式            iLength = text.Length
15解决在反编译中出现中文字符都表示成16进制Unicode的形式            Dim m As Match
16解决在反编译中出现中文字符都表示成16进制Unicode的形式            Dim strPattern As String = "(?<code>\\u[A-F0-9]{4})"
17解决在反编译中出现中文字符都表示成16进制Unicode的形式            m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
18解决在反编译中出现中文字符都表示成16进制Unicode的形式            If m.Success Then
19解决在反编译中出现中文字符都表示成16进制Unicode的形式                Dim strValue As String
20解决在反编译中出现中文字符都表示成16进制Unicode的形式                strValue = m.Groups("code").Value
21解决在反编译中出现中文字符都表示成16进制Unicode的形式                text = text.Replace(strValue, "")
22解决在反编译中出现中文字符都表示成16进制Unicode的形式                Dim int As Integer
23解决在反编译中出现中文字符都表示成16进制Unicode的形式                int = System.Int32.Parse(strValue.Substring(24), NumberStyles.HexNumber)
24解决在反编译中出现中文字符都表示成16进制Unicode的形式                Dim ch As Char = ChrW(int)
25解决在反编译中出现中文字符都表示成16进制Unicode的形式                docText.ReplacePattern(strValue, ch)
26解决在反编译中出现中文字符都表示成16进制Unicode的形式            Else
27解决在反编译中出现中文字符都表示成16进制Unicode的形式                Exit Do
28解决在反编译中出现中文字符都表示成16进制Unicode的形式            End If
29解决在反编译中出现中文字符都表示成16进制Unicode的形式            If Not text.Length < iLength Then
30解决在反编译中出现中文字符都表示成16进制Unicode的形式                Exit Do
31解决在反编译中出现中文字符都表示成16进制Unicode的形式            End If
32解决在反编译中出现中文字符都表示成16进制Unicode的形式        Loop
33解决在反编译中出现中文字符都表示成16进制Unicode的形式        selText.StartOfDocument()
34解决在反编译中出现中文字符都表示成16进制Unicode的形式    End Sub

35解决在反编译中出现中文字符都表示成16进制Unicode的形式End Module

36 解决在反编译中出现中文字符都表示成16进制Unicode的形式


一切就都搞定了

希望能给大家提供一些帮助

你可能感兴趣的:(unicode)