VB.NET開發環境的出現，幫助開發人員實現了許多特定的功能需求。比如在對移動設備的操作方面等。VB.NET漢字轉換中若使用Reflector,而且程序中有中文字符,Reflector會用代碼表示。若反成C#，網上有很多解決方案了，而VB.NET卻找不到。VB.NET里可能更復雜些，畢竟C#還是一個完整的字符串，而VB中卻被拆成一個一個單字，然后用&連接。#t#

下面這段VB.NET漢字轉換代碼解決了這個問題，將其拷到宏編輯器里保存即可，寫的有點傻傻的，懶得優化了，好使就行:)

1. Imports System  
2. Imports EnvDTE  
3. Imports EnvDTE80  
4. Imports System.Diagnostics  
5. Imports System.Text.
   RegularExpressions  
6. Public Module Unicode2
   Character  
7. '必須手工選擇到單字  
8. Public Sub 單字轉換()  
9. Dim doc As Document = 
   DTE.ActiveDocument  
10. Dim docText As TextDocument 
    = doc.Object  
11. Dim selText As TextSelection 
    = docText.Selection()  
12. Dim text As String = selText.Text  
13. Dim ch As Char = cc(text)  
14. docText.ReplacePattern(text, ch)  
15. 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  
texttext = text.Replace(strValue, "")  
strValuestrValue = strValue.
Replace("&", "")  
strValuestrValue = strValue.
Replace(" ", "")  
strValuestrValue = strValue.
Replace("ChrW(", "")  
strValuestrValue = strValue.
Replace(")", "")  
Dim chars As Integer = 
strValue.Length()  
charschars = chars \ 5  
Dim strNew As String = "" 
For i As Integer = 0 To chars - 1  
Dim x As String = strValue.
Substring(i * 5, 5)  
strNewstrNew = 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  
texttext = text.Replace(strValue, "")  
strValuestrValue = strValue.Replace
("&", "")  
strValuestrValue = strValue.Replace
(" ", "")  
strValuestrValue = strValue.Replace
("ChrW(", "")  
strValuestrValue = strValue.Replace
(")", "")  
strValuestrValue = 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  
texttext = text.Replace(strValue, "")  
strValuestrValue = strValue.Replace
("&", "")  
strValuestrValue = strValue.Replace
(" ", "")  
strValuestrValue = strValue.Replace
("ChrW(", "")  
strValuestrValue = strValue.Replace
(")", "")  
strValuestrValue = 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.Regular
Expressions.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  
texttext = text.Replace(strValue, "")  
strValuestrValue = strValue.
Replace("&", "")  
strValuestrValue = strValue.
Replace(" ", "")  
strValuestrValue = strValue.
Replace("ChrW(", "")  
strValuestrValue = strValue.
Replace(")", "")  
strValuestrValue = 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  
texttext = text.Replace(strValue, "")  
strValuestrValue = strValue.
Replace(" ", "")  
strValuestrValue = strValue.
Replace("ChrW(", "")  
strValuestrValue = 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 

VB.NET漢字轉換的相關代碼就為大家介紹到這里。