Una función de uso genérico para delimitar un string, es decir, para tomar una porción dell texto (solo una).
#Region " Delimit String "
' [ Delimit String ]
'
' // By Elektro H@ker
'
' Result: my new house today
' MsgBox(Delimit_String("Welcome to my new house today", "to"))
' Result: my new house
' MsgBox(Delimit_String("Welcome to my new house today", "to", "today"))
' Result: my new house
' MsgBox(Delimit_String("Welcome to my new house today", "TO", "tODaY", RegexOptions.IgnoreCase))
' Result: my new house
' MsgBox(Delimit_String("Welcome to my new house today", "to", "to", RegexOptions.IgnoreCase Or RegexOptions.RightToLeft))
' Result: Nothing (No IgnoreCase specified.)
' MsgBox(Delimit_String("Welcome to my new house today", "TO", "HoUSe"))
' Result: Nothing (Second delimiter is not found.)
' MsgBox(Delimit_String("Welcome to my new house today", "to", "tokyo", ))
''' <summary>
''' Delimit a String using Start/End delimiters.
''' </summary>
''' <param name="str">Indicates the String to delimit.</param>
''' <param name="Delimiter_A">A delimiter used to indicate the end of the string.</param>
''' <param name="Delimiter_B">An optional delimiter used to indicate the end of the string produced by the first delimiter.</param>
''' <param name="Options">Indicates options such as IgnoreCase or to start splitting from RightToLeft.</param>
Private Function Delimit_String(ByVal str As String,
ByVal Delimiter_A As String,
Optional ByVal Delimiter_B As String = "",
Optional ByVal Options As RegexOptions = RegexOptions.None) As String
Dim rgx1 As New Regex(Delimiter_A, Options)
Dim rgx2 As New Regex(Delimiter_B, Options)
Dim m1 = rgx1.Match(str)
Select Case Options.ToString.Contains(RegexOptions.RightToLeft.ToString)
Case False ' Left To Right
str = str.Substring(m1.Index + m1.Length)
Case True ' Right To Left
str = str.Substring(0, m1.Index)
End Select
Dim m2 = rgx2.Match(str)
If Not String.IsNullOrWhiteSpace(Delimiter_B) Then
Select Case Options.ToString.Contains(RegexOptions.RightToLeft.ToString)
Case False ' Left To Right
str = str.Substring(0, m2.Index)
Case True ' Right To Left
str = str.Substring(m2.Index + m2.Length)
End Select
End If
Return str
End Function
#End Region
