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

下面這段VB.NET漢字轉(zhuǎn)換代碼解決了這個(gè)問(wèn)題，將其拷到宏編輯器里保存即可，寫(xiě)的有點(diǎn)傻傻的，懶得優(yōu)化了，好使就行:)

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 單字轉(zhuǎn)換()  
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 

'全部替換當(dāng)前文件的漢字  
Public Sub 全部轉(zhuǎn)換()  
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漢字轉(zhuǎn)換的相關(guān)代碼就為大家介紹到這里。