av激情亚洲男人的天堂国语,日韩欧美精品一中文字幕,无码av一区二区三区无码,国产又色又爽又刺激的a片,国产又色又爽又刺激的a片

VB.NET字符串轉義詳細概念解析

雖然說VB.NET中有很多東西是其他語言沒有的，但是同時其他語言具有的一些特點，這款編程語言也是不具備的。不過我們可以通過其他的方式來實現(xiàn)。比如，眾所周知，VB中沒有C#的字符串轉義語法。#t#

榆樹ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：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字符串轉義語法還沒有被加入。

于是，我通過使用擴展函數，實現(xiàn)了比較接近的語法。

 
 
 
      
  
  
  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字符串轉義的具體實現(xiàn)如下：

 
 
 
      
  
  
  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 實例的值的文本等效項。
    指定的參數提供區(qū)域性特定的格式設置信息。< /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://uogjgqi.cn/article/cceeged.html
掃二維碼與項目經理溝通

我們在微信上24小時期待你的聲音

解答本文疑問/技術咨詢/運營咨詢/技術建議/互聯(lián)網交流