VB.NET汉字转换详细操作步骤介绍

VB.NET开发环境的出现，帮助开发人员实现了许多特定的功能需求。比如在对移动设备的操作方面等。VB.NET汉字转换中若使用Reflector,而且程序中有中文字符,Reflector会用代码表示。若反成C#，网上有很多解决方案了，而VB.NET却找不到。VB.NET里可能更复杂些，毕竟C#还是一个完整的字符串，而VB中却被拆成一个一个单字，然后用&连接。#t#

10年积累的网站建设、成都网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先做网站后付款的网站建设流程，更有凌河免费网站建设让你可以放心的选择与我们合作。

下面这段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
 
 
 
    
  
  
  
  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://www.shufengxianlan.com/qtweb/news30/397430.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

App开发知识

各行业网站

乐山网站建设　　 　微信公众号开发　　 　重庆网站制作　　 　重庆水土双线托管　　 　正泰动物制药　　 　叙永网站建设　　 　重庆网站建设公司　　 　成都小程序开发　　 　商城网站　　 　成都防护栏　　 　成都定制网站开发　　 　成都定制网站建设　　 　联通机柜租用　　 　乐山服务器托管　　 　成都网创优客　　 　眉山做网站　　 　云服务器　　 　品牌网站建设　　 　成都网站制作　　 　中国西部信息中心