VB.NET字符串转义详细概念解析

虽然说VB.NET中有很多东西是其他语言没有的，但是同时其他语言具有的一些特点，这款编程语言也是不具备的。不过我们可以通过其他的方式来实现。比如，众所周知，VB中没有C#的字符串转义语法。#t#

榆树ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18982081108（备注：SSL证书合作）期待与您的合作！

C#中可以写

  1. string s = "This is a 
    string with newline.\n"; 

而VB.NET字符串转义的只能写

  1. Dim s = "This is a string 
    with newline." & vbLf 

人们渴望一个和C#中的"@"字符串正好相反的语法：

 
 
 
      
  
  
  1. string s = @"This is a string 
    with '\n' literal.\n";Dim s = 
    @"This is a string with newline.\n" 
    2.

但是，这种VB.NET字符串转义语法还没有被加入。

于是，我通过使用扩展函数，实现了比较接近的语法。

 
 
 
      
  
  
  1. Dim s = "This is a string 
    with newline.\n".Descape 
    2.

另外，还对String.Format进行了类似处理

 
 
 
      
  
  
  1. Dim s2 = "This is a 
    string that is {0}".
    Formats("formated.") 
    2.

VB.NET字符串转义的具体实现如下：

 
 
 
      
  
  
  1. '  
    2.   
  
  
  2. ' File: StringDescape.vb  
    3.   
  
  
  3. ' Description: VB.Net字符串转义语法糖 
    < Visual Basic 9> 
    4.   
  
  
  4. ' Version: 2008.09.28.  
    5.   
  
  
  5. ' (cc) F.R.C. 按照 Creative 
    Commons Public Domain Dedication L
    icense 捐献  
    6.   
  
  
  6. ' http://creativecommons.org/
    licenses/publicdomain/  
    7.   
  
  
  7. ' 
    8.  
 


 
 
 
      
  
  
  1. Imports System  
    2.   
  
  
  2. Imports System.Collections.Generic  
    3.   
  
  
  3. Imports System.Text  
    4.   
  
  
  4. Imports System.Text.RegularExpressions  
    5.   
  
  
  5. Imports System.Runtime.CompilerServices  
    6.   
  
  
  6. Imports Microsoft.VisualBasic 
    7.  
 


 
 
 
      
  
  
  1. /**/''' < summary>字符串转义< /summary> 
    2.   
  
  
  2. Public Module StringDescapeModule StringDescape  
    3.   
  
  
  3. /**/''' < summary>字符串反转义函数< /summary> 
    4.   
  
  
  4. ''' < remarks> 
    5.   
  
  
  5. ''' \0 与null \u0000 匹配  
    6.   
  
  
  6. ''' \a 与响铃（警报）\u0007 匹配   
    7.   
  
  
  7. ''' \b 与退格符 \u0008 匹配  
    8.   
  
  
  8. ''' \t 与 Tab 符 \u0009 匹配   
    9.   
  
  
  9. ''' \r 与回车符 \u000D 匹配  
    10.   
  
  
  10. ''' \v 与垂直 Tab 符 \u000B 匹配  
    11.   
  
  
  11. ''' \f 与换页符 \u000C 匹配  
    12.   
  
  
  12. ''' \n 与换行符 \u000A 匹配  
    13.   
  
  
  13. ''' \e 与 Esc 符 \u001B 匹配  
    14.   
  
  
  14. ''' \x?? 与 \u00?? 匹配  
    15.   
  
  
  15. ''' \u???? 与对应的Unicode字符对应  
    16.   
  
  
  16. ''' < /remarks> 
    17.   
  
  
  17. < Extension()> Public Function Descape
    ()Function Descape(ByVal This As 
    String) As String  
    18.   
  
  
  18. Dim m = r.Match(This)  
    19.   
  
  
  19. If Not m.Success Then Throw New 
    InvalidCastException 
    20.  
 


 
 
 
      
  
  
  1. Dim ss As New SortedList(Of
     Integer, String)  
    2.   
  
  
  2. For Each c As Capture In m.Groups.
    Item("SingleEscape").Captures  
    3.   
  
  
  3. ss.Add(c.Index, SingleEscapeDict
    (c.Value))  
    4.   
  
  
  4. Next  
    5.   
  
  
  5. For Each c As Capture In m.Groups.
    Item("UnicodeEscape").Captures  
    6.   
  
  
  6. ss.Add(c.Index, ChrW(CInt("&H" 
    & c.Value)))  
    7.   
  
  
  7. Next  
    8.   
  
  
  8. For Each c As Capture In m.Groups.
    Item("ErrorEscape").Captures  
    9.   
  
  
  9. Throw New ArgumentException("
    ErrorEscape: Ch " & (c.Index + 1) 
    & " " & c.Value)  
    10.   
  
  
  10. Next  
    11.   
  
  
  11. For Each c As Capture In m.Groups.
    Item("Normal").Captures  
    12.   
  
  
  12. ss.Add(c.Index, c.Value)  
    13.   
  
  
  13. Next  
    14.   
  
  
  14. Dim sb As New StringBuilder  
    15.   
  
  
  15. For Each s In ss.Values  
    16.   
  
  
  16. sb.Append(s)  
    17.   
  
  
  17. Next  
    18.   
  
  
  18. Return sb.ToString  
    19.   
  
  
  19. End Function 
    20.  
 


 
 
 
      
  
  
  1. /**/''' < summary>将指定的 String 
    中的格式项替换为指定的 Object 实例的值
    的文本等效项。< /summary> 
    2.   
  
  
  2. < Extension()> Public Function Formats
    ()Function Formats(ByVal This As String, 
    ByVal arg0 As Object) As String  
    3.   
  
  
  3. Return String.Format(This, arg0)  
    4.   
  
  
  4. End Function  
    5.   
  
  
  5. /**/''' < summary>将指定的 String 
    中的格式项替换为两个指定的 Object 实例的
    值的文本等效项。< /summary> 
    6.   
  
  
  6. < Extension()> Public Function Formats
    ()Function Formats(ByVal This As String,
     ByVal arg0 As Object, ByVal arg1 As
     Object) As String  
    7.   
  
  
  7. Return String.Format(This, arg0, arg1)  
    8.   
  
  
  8. End Function  
    9.   
  
  
  9. /**/''' < summary>将指定的 String 中的
    格式项替换为三个指定的 Object 实例的值的文本
    等效项。< /summary> 
    10.   
  
  
  10. < Extension()> Public Function Formats
    ()Function Formats(ByVal This As String, 
    ByVal arg0 As Object, ByVal arg1 As Object, 
    ByVal arg2 As Object) As String  
    11.   
  
  
  11. Return String.Format(This, arg0, arg1, arg2)  
    12.   
  
  
  12. End Function  
    13.   
  
  
  13. /**/''' < summary>将指定 String 中的格式
    项替换为指定数组中相应 Object 实例的值的文
    本等效项。< /summary> 
    14.   
  
  
  14. < Extension()> Public Function Formats()
    Function Formats(ByVal This As String, 
    ByVal ParamArray args As Object()) As String  
    15.   
  
  
  15. Return String.Format(This, args)  
    16.   
  
  
  16. End Function  
    17.   
  
  
  17. /**/''' < summary>将指定 String 中的格式项
    替换为指定数组中相应 Object 实例的值的文本等效项。
    指定的参数提供区域性特定的格式设置信息。< /summary> 
    18.   
  
  
  18. < Extension()> Public Function Formats()Function 
    Formats(ByVal This As String, ByVal provider 
    As IFormatProvider, ByVal ParamArray args 
    As Object()) As String  
    19.   
  
  
  19. Return String.Format(provider, This, args)  
    20.   
  
  
  20. End Function 
    21.  
 


 
 
 
      
  
  
  1. Private ReadOnly Property SingleEscapeDict()
    Property SingleEscapeDict() As Dictionary
    (Of String, String)  
    2.   
  
  
  2. Get  
    3.   
  
  
  3. Static d As Dictionary(Of String, String)  
    4.   
  
  
  4. If d IsNot Nothing Then Return d  
    5.   
  
  
  5. d = New Dictionary(Of String, String)  
    6.   
  
  
  6. d.Add("\", "\") 'backslash  
    7.   
  
  
  7. d.Add("0", ChrW(0)) 'null  
    8.   
  
  
  8. d.Add("a", ChrW(7)) 'alert (beep)  
    9.   
  
  
  9. d.Add("b", ChrW(8)) 'backspace  
    10.   
  
  
  10. d.Add("f", ChrW(&HC)) 'form feed  
    11.   
  
  
  11. d.Add("n", ChrW(&HA)) 'newline (lf)  
    12.   
  
  
  12. d.Add("r", ChrW(&HD)) 'carriage return (cr)   
    13.   
  
  
  13. d.Add("t", ChrW(9)) 'horizontal tab   
    14.   
  
  
  14. d.Add("v", ChrW(&HB)) 'vertical tab  
    15.   
  
  
  15. Return d  
    16.   
  
  
  16. End Get  
    17.   
  
  
  17. End Property  
    18.   
  
  
  18. Private ReadOnly Property SingleEscapes
    ()Property SingleEscapes() As String  
    19.   
  
  
  19. Get  
    20.   
  
  
  20. Static s As String  
    21.   
  
  
  21. If s IsNot Nothing Then Return s  
    22.   
  
  
  22. Dim Chars As New List(Of String)  
    23.   
  
  
  23. For Each c In "\0abfnrtv"  
    24.   
  
  
  24. Chars.Add(Regex.Escape(c))  
    25.   
  
  
  25. Next  
    26.   
  
  
  26. s = "\\(?< SingleEscape>" & String.
    Join("|", Chars.ToArray) & ")"  
    27.   
  
  
  27. Return s  
    28.   
  
  
  28. End Get  
    29.   
  
  
  29. End Property  
    30.   
  
  
  30. Private UnicodeEscapes As String = 
    "\\[uU](?< UnicodeEscape>[0-9A-Fa-f]{4})
    |\\x(?< UnicodeEscape>[0-9A-Fa-f]{2})" 
    31.   
  
  
  31. Private ErrorEscapes As String = 
    "(?< ErrorEscape>\\)" 
    32.   
  
  
  32. Private Normal As String = "(?< Normal>.)" 
    33.   
  
  
  33. Private r As New Regex("^" & "(
    " & SingleEscapes & "|" & Unicode
    Escapes & "|" & ErrorEscapes & "|" & 
    Normal & ")*" & "$", RegexOptions.
    ExplicitCapture)  
    34.   
  
  
  34. End Module 
    35.

希望大家可以理解VB.NET字符串转义这段代码编写方法。

本文名称：VB.NET字符串转义详细概念解析
文章转载：http://www.shufengxianlan.com/qtweb/news3/524903.html

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

广告

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

猜你还喜欢下面的内容

动态网站知识

同城分类信息

成都广告制作　　 　艾瑞格衣柜　　 　成都网站优化　　 　做手机网站　　 　南充机房托管　　 　眉山服务器租用　　 　网创优客　　 　公路钻孔机　　 　成都标志设计　　 　新津网站运维　　 　郫县网站建设　　 　手机APP开发　　 　重庆电信回兴机房　　 　培训网站方案　　 　雅安电信机房　　 　温江服务器托管　　 　乐山服务器托管　　 　彭州做网站　　 　四川服务器托管　　 　网站制作