'若使用Reflector,而且程序中有中文字符,Reflector会用代码表示。若反成C#，网上有很多解决方案了，而VB.net却找不到.
'VB.net里可能更复杂些，毕竟C#还是一个完整的字符串，而VB中却被拆成一个一个单字，然后用&连接
'下面这段代码解决了这个问题，将其拷到宏编辑器里保存即可
'写的有点傻傻的，懒得优化了，好使就行
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
Imports System.Text.RegularExpressions
Public Module Unicode2Character
'必须手工选择到单字
Public Sub 单字转换()
Dim doc As Document = DTE.ActiveDocument
Dim docText As TextDocument = doc.Object
Dim selText As TextSelection = docText.Selection()
Dim text As String = selText.Text
Dim ch As Char = cc(text)
docText.ReplacePattern(text, ch)
End Sub
'全部替换当前文件的汉字
Public Sub 全部转换()
Dim doc As Document = DTE.ActiveDocument
Dim docText As TextDocument = doc.Object
Dim selText As TextSelection = docText.Selection()
selText.SelectAll()
Dim text As String = selText.Text
Dim iLength As Integer
Do
iLength = text.Length
Dim m As Text.RegularExpressions.Match
'先找“字符串”:ChrW(12345) & ChrW(23456) ... & ChrW(56789)
Dim strPattern As String = "(ChrW\([0-9]{5}\)\s&\s)+ChrW\([0-9]{5}\)"
m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
If m.Success Then
Dim strMatch As String = m.Value
Dim strValue As String = m.Value
text = text.Replace(strValue, "")
strValue = strValue.Replace("&", "")
strValue = strValue.Replace(" ", "")
strValue = strValue.Replace("ChrW(", "")
strValue = strValue.Replace(")", "")
Dim chars As Integer = strValue.Length()
chars = chars \ 5
Dim strNew As String = ""
For i As Integer = 0 To chars - 1
Dim x As String = strValue.Substring(i * 5, 5)
strNew = strNew & ic(x)
Next
docText.ReplacePattern(strMatch, """" & strNew & """")
Else
Exit Do
End If
If Not text.Length < iLength Then
Exit Do
End If
Loop
selText.SelectAll()
text = selText.Text
Do
iLength = text.Length
Dim m As Text.RegularExpressions.Match
'再找单字:" & ChrW(23456) & "
Dim strPattern As String = "\""\s&\sChrW\([0-9]{5}\)\s&\s\"""
m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
If m.Success Then
Dim strMatch As String = m.Value
Dim strValue As String = m.Value
text = text.Replace(strValue, "")
strValue = strValue.Replace("&", "")
strValue = strValue.Replace(" ", "")
strValue = strValue.Replace("ChrW(", "")
strValue = strValue.Replace(")", "")
strValue = strValue.Replace("""", "")
Dim strNew = ic(strValue)
docText.ReplacePattern(strMatch, strNew)
Else
Exit Do
End If
If Not text.Length < iLength Then
Exit Do
End If
Loop
selText.SelectAll()
text = selText.Text
Do
iLength = text.Length
Dim m As Text.RegularExpressions.Match
'再找单字:" & ChrW(23456)
Dim strPattern As String = "\""\s&\sChrW\([0-9]{5}\)"
m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
If m.Success Then
Dim strMatch As String = m.Value
Dim strValue As String = m.Value
text = text.Replace(strValue, "")
strValue = strValue.Replace("&", "")
strValue = strValue.Replace(" ", "")
strValue = strValue.Replace("ChrW(", "")
strValue = strValue.Replace(")", "")
strValue = strValue.Replace("""", "")
Dim strNew = ic(strValue)
docText.ReplacePattern(strMatch, strNew & """")
Else
Exit Do
End If
If Not text.Length < iLength Then
Exit Do
End If
Loop
selText.SelectAll()
text = selText.Text
Do
iLength = text.Length
Dim m As Text.RegularExpressions.Match
'再找单字:ChrW(23456) & "
Dim strPattern As String = "ChrW\([0-9]{5}\)\s&\s\"""
m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
If m.Success Then
Dim strMatch As String = m.Value
Dim strValue As String = m.Value
text = text.Replace(strValue, "")
strValue = strValue.Replace("&", "")
strValue = strValue.Replace(" ", "")
strValue = strValue.Replace("ChrW(", "")
strValue = strValue.Replace(")", "")
strValue = strValue.Replace("""", "")
Dim strNew = ic(strValue)
docText.ReplacePattern(strMatch, """" & strNew)
Else
Exit Do
End If
If Not text.Length < iLength Then
Exit Do
End If
Loop
selText.SelectAll()
text = selText.Text
Do
iLength = text.Length
Dim m As Text.RegularExpressions.Match
'最后单字:ChrW(23456)
Dim strPattern As String = "ChrW\([0-9]{5}\)"
m = Regex.Match(text, strPattern, RegexOptions.IgnoreCase)
If m.Success Then
Dim strMatch As String = m.Value
Dim strValue As String = m.Value
text = text.Replace(strValue, "")
strValue = strValue.Replace(" ", "")
strValue = strValue.Replace("ChrW(", "")
strValue = strValue.Replace(")", "")
Dim strNew = ic(strValue)
docText.ReplacePattern(strMatch, """" & strNew & """")
Else
Exit Do
End If
If Not text.Length < iLength Then
Exit Do
End If
Loop
End Sub
Private Function cc(ByVal str As String) As Char
Dim int As Integer = CInt(str.Substring(5, 5))
Dim ch As Char = ChrW(int)
Return ch
End Function
Private Function ic(ByVal int As Integer) As Char
Dim ch As Char = ChrW(int)
Return ch
End Function
End Module
附：
可以进行charcode值与字符之间互相转换
http://www.geocities.com/george_ruban/charset/CharCode.html
希望能对大家有些帮助 |
发表于 2009-10-16 14:56:46
