日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網營銷解決方案
VB.NET漢字轉換詳細操作步驟介紹

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

10年積累的網站建設、成都網站制作經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先做網站后付款的網站建設流程，更有凌河免費網站建設讓你可以放心的選擇與我們合作。

下面這段VB.NET漢字轉換代碼解決了這個問題，將其拷到宏編輯器里保存即可，寫的有點傻傻的，懶得優(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 單字轉換()
  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
 
 
 
    
  
  
  
  1. '全部替換當前文件的漢字 
    2. 
  
  
  
  2. Public Sub 全部轉換() 
    3. 
  
  
  
  3. Dim doc As Document = 
    DTE.ActiveDocument 
    4. 
  
  
  
  4. Dim docText As TextDocument = 
    doc.Object 
    5. 
  
  
  
  5. Dim selText As TextSelection = 
    docText.Selection() 
    6. 
  
  
  
  6. selText.SelectAll() 
    7. 
  
  
  
  7. Dim text As String = selText.Text 
    8. 
  
  
  
  8. Dim iLength As Integer 
    9. 
  
  
  
  9. Do 
    10. 
  
  
  
  10. iLength = text.Length 
    11. 
  
  
  
  11. Dim m As Text.RegularExpressions.Match 
    12. 
  
  
  
  12. '先找“字符串”:ChrW(12345) & 
    ChrW(23456) ... & ChrW(56789) 
    13. 
  
  
  
  13. Dim strPattern As String = 
    "(ChrW\([0-9]{5}\)\s&\s)+ChrW\([0-9]{5}\)"
    14. 
  
  
  
  14. m = Regex.Match(text, strPattern, 
    RegexOptions.IgnoreCase) 
    15. 
  
  
  
  15. If m.Success Then 
    16. 
  
  
  
  16. Dim strMatch As String = m.Value 
    17. 
  
  
  
  17. Dim strValue As String = m.Value 
    18. 
  
  
  
  18. texttext = text.Replace(strValue, "") 
    19. 
  
  
  
  19. strValuestrValue = strValue.
    Replace("&", "") 
    20. 
  
  
  
  20. strValuestrValue = strValue.
    Replace(" ", "") 
    21. 
  
  
  
  21. strValuestrValue = strValue.
    Replace("ChrW(", "") 
    22. 
  
  
  
  22. strValuestrValue = strValue.
    Replace(")", "") 
    23. 
  
  
  
  23. Dim chars As Integer = 
    strValue.Length() 
    24. 
  
  
  
  24. charschars = chars \ 5 
    25. 
  
  
  
  25. Dim strNew As String = ""
    26. 
  
  
  
  26. For i As Integer = 0 To chars - 1 
    27. 
  
  
  
  27. Dim x As String = strValue.
    Substring(i * 5, 5) 
    28. 
  
  
  
  28. strNewstrNew = strNew & ic(x) 
    29. 
  
  
  
  29. Next 
    30. 
  
  
  
  30. docText.ReplacePattern(strMatch, 
    """" & strNew & """") 
    31. 
  
  
  
  31. Else 
    32. 
  
  
  
  32. Exit Do 
    33. 
  
  
  
  33. End If 
    34. 
  
  
  
  34. If Not text.Length < iLength Then 
    35. 
  
  
  
  35. Exit Do 
    36. 
  
  
  
  36. End If 
    37. 
  
  
  
  37. Loop
    38. 
 
 
 
 
 
 
    
  
  
  
  1. selText.SelectAll() 
    2. 
  
  
  
  2. text = selText.Text 
    3. 
  
  
  
  3. Do 
    4. 
  
  
  
  4. iLength = text.Length 
    5. 
  
  
  
  5. Dim m As Text.RegularExpressions.Match 
    6. 
  
  
  
  6. '再找單字:" & ChrW(23456) & " 
    7. 
  
  
  
  7. Dim strPattern As String = "\""\s&\
    sChrW\([0-9]{5}\)\s&\s\""" 
    8. 
  
  
  
  8. m = Regex.Match(text, strPattern, 
    RegexOptions.IgnoreCase) 
    9. 
  
  
  
  9. If m.Success Then 
    10. 
  
  
  
  10. Dim strMatch As String = m.Value 
    11. 
  
  
  
  11. Dim strValue As String = m.Value 
    12. 
  
  
  
  12. texttext = text.Replace(strValue, "") 
    13. 
  
  
  
  13. strValuestrValue = strValue.Replace
    ("&", "") 
    14. 
  
  
  
  14. strValuestrValue = strValue.Replace
    (" ", "") 
    15. 
  
  
  
  15. strValuestrValue = strValue.Replace
    ("ChrW(", "") 
    16. 
  
  
  
  16. strValuestrValue = strValue.Replace
    (")", "") 
    17. 
  
  
  
  17. strValuestrValue = strValue.Replace
    ("""", "") 
    18. 
  
  
  
  18. Dim strNew = ic(strValue) 
    19. 
  
  
  
  19. docText.ReplacePattern(strMatch, 
    strNew) 
    20. 
  
  
  
  20. Else 
    21. 
  
  
  
  21. Exit Do 
    22. 
  
  
  
  22. End If 
    23. 
  
  
  
  23. If Not text.Length < iLength Then 
    24. 
  
  
  
  24. Exit Do 
    25. 
  
  
  
  25. End If 
    26. 
  
  
  
  26. Loop
    27. 
 
 
 
 
 
 
    
  
  
  
  1. selText.SelectAll() 
    2. 
  
  
  
  2. text = selText.Text 
    3. 
  
  
  
  3. Do 
    4. 
  
  
  
  4. iLength = text.Length 
    5. 
  
  
  
  5. Dim m As Text.RegularExpressions.Match 
    6. 
  
  
  
  6. '再找單字:" & ChrW(23456) 
    7. 
  
  
  
  7. Dim strPattern As String = "\""\s&\
    sChrW\([0-9]{5}\)"
    8. 
  
  
  
  8. m = Regex.Match(text, strPattern, 
    RegexOptions.IgnoreCase) 
    9. 
  
  
  
  9. If m.Success Then 
    10. 
  
  
  
  10. Dim strMatch As String = m.Value 
    11. 
  
  
  
  11. Dim strValue As String = m.Value 
    12. 
  
  
  
  12. texttext = text.Replace(strValue, "") 
    13. 
  
  
  
  13. strValuestrValue = strValue.Replace
    ("&", "") 
    14. 
  
  
  
  14. strValuestrValue = strValue.Replace
    (" ", "") 
    15. 
  
  
  
  15. strValuestrValue = strValue.Replace
    ("ChrW(", "") 
    16. 
  
  
  
  16. strValuestrValue = strValue.Replace
    (")", "") 
    17. 
  
  
  
  17. strValuestrValue = strValue.Replace
    ("""", "") 
    18. 
  
  
  
  18. Dim strNew = ic(strValue) 
    19. 
  
  
  
  19. docText.ReplacePattern(strMatch, 
    strNew & """") 
    20. 
  
  
  
  20. Else 
    21. 
  
  
  
  21. Exit Do 
    22. 
  
  
  
  22. End If 
    23. 
  
  
  
  23. If Not text.Length < iLength Then 
    24. 
  
  
  
  24. Exit Do 
    25. 
  
  
  
  25. End If 
    26. 
  
  
  
  26. Loop
    27. 
 
 
 

 
 
 
    
  
  
  
  1. selText.SelectAll() 
    2. 
  
  
  
  2. text = selText.Text 
    3. 
  
  
  
  3. Do 
    4. 
  
  
  
  4. iLength = text.Length 
    5. 
  
  
  
  5. Dim m As Text.Regular
    Expressions.Match 
    6. 
  
  
  
  6. '再找單字:ChrW(23456) & " 
    7. 
  
  
  
  7. Dim strPattern As String = 
    "ChrW\([0-9]{5}\)\s&\s\""" 
    8. 
  
  
  
  8. m = Regex.Match(text, strPattern, 
    RegexOptions.IgnoreCase) 
    9. 
  
  
  
  9. If m.Success Then 
    10. 
  
  
  
  10. Dim strMatch As String = m.Value 
    11. 
  
  
  
  11. Dim strValue As String = m.Value 
    12. 
  
  
  
  12. texttext = text.Replace(strValue, "") 
    13. 
  
  
  
  13. strValuestrValue = strValue.
    Replace("&", "") 
    14. 
  
  
  
  14. strValuestrValue = strValue.
    Replace(" ", "") 
    15. 
  
  
  
  15. strValuestrValue = strValue.
    Replace("ChrW(", "") 
    16. 
  
  
  
  16. strValuestrValue = strValue.
    Replace(")", "") 
    17. 
  
  
  
  17. strValuestrValue = strValue.
    Replace("""", "") 
    18. 
  
  
  
  18. Dim strNew = ic(strValue) 
    19. 
  
  
  
  19. docText.ReplacePattern(strMatch, 
    """" & strNew) 
    20. 
  
  
  
  20. Else 
    21. 
  
  
  
  21. Exit Do 
    22. 
  
  
  
  22. End If 
    23. 
  
  
  
  23. If Not text.Length < iLength Then 
    24. 
  
  
  
  24. Exit Do 
    25. 
  
  
  
  25. End If 
    26. 
  
  
  
  26. Loop 
    27. 
  
  
  
  27. selText.SelectAll() 
    28. 
  
  
  
  28. text = selText.Text 
    29. 
  
  
  
  29. Do 
    30. 
  
  
  
  30. iLength = text.Length 
    31. 
  
  
  
  31. Dim m As Text.RegularExpressions.
    Match 
    32. 
  
  
  
  32. '***單字:ChrW(23456) 
    33. 
  
  
  
  33. Dim strPattern As String = 
    "ChrW\([0-9]{5}\)"
    34. 
  
  
  
  34. m = Regex.Match(text, strPattern, 
    RegexOptions.IgnoreCase) 
    35. 
  
  
  
  35. If m.Success Then 
    36. 
  
  
  
  36. Dim strMatch As String = m.Value 
    37. 
  
  
  
  37. Dim strValue As String = m.Value 
    38. 
  
  
  
  38. texttext = text.Replace(strValue, "") 
    39. 
  
  
  
  39. strValuestrValue = strValue.
    Replace(" ", "") 
    40. 
  
  
  
  40. strValuestrValue = strValue.
    Replace("ChrW(", "") 
    41. 
  
  
  
  41. strValuestrValue = strValue.
    Replace(")", "") 
    42. 
  
  
  
  42. Dim strNew = ic(strValue) 
    43. 
  
  
  
  43. docText.ReplacePattern
    (strMatch, """" & strNew & """") 
    44. 
  
  
  
  44. Else 
    45. 
  
  
  
  45. Exit Do 
    46. 
  
  
  
  46. End If 
    47. 
  
  
  
  47. If Not text.Length < iLength Then 
    48. 
  
  
  
  48. Exit Do 
    49. 
  
  
  
  49. End If 
    50. 
  
  
  
  50. Loop 
    51. 
  
  
  
  51. End Sub 
    52. 
  
  
  
  52. Private Function cc(ByVal 
    str As String) As Char 
    53. 
  
  
  
  53. Dim int As Integer = CInt
    (str.Substring(5, 5)) 
    54. 
  
  
  
  54. Dim ch As Char = ChrW(int) 
    55. 
  
  
  
  55. Return ch 
    56. 
  
  
  
  56. End Function 
    57. 
  
  
  
  57. Private Function ic(ByVal 
    int As Integer) As Char 
    58. 
  
  
  
  58. Dim ch As Char = ChrW(int) 
    59. 
  
  
  
  59. Return ch 
    60. 
  
  
  
  60. End Function 
    61. 
  
  
  
  61. End Module
    62.

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


當前名稱：VB.NET漢字轉換詳細操作步驟介紹
本文網址：http://m.5511xx.com/article/djjhpgd.html