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.csdahua.cn/qtweb/news30/397430.html

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

广告

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

成都快上网为您推荐相关内容

定制网站知识

分类信息网站

自动门　　 　网站建设费用　　 　华川商务　　 　云主机　　 　眉山电信机房　　 　大英网站建设　　 　H5建站　　 　研学实践　　 　重庆小程序开发公司　　 　成都网站建设公司　　 　绵阳服务器托管　　 　成都LED亮化工程　　 　眉山服务器托管　　 　企业邮箱　　 　成都柴油发电机租用　　 　成都西云机房　　 　高端网站设计推广　　 　定制级高端网站建设　　 　犀浦门窗定制　　 　贵州义龙电信机房