Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
If "a" = "a" then Button1.performclick()
)#Region " Delimit_String Function "
' // By Elektro H@ker
'
' USAGE:
'
' MsgBox(Delimit_String("Welcome to my new house", "to")) ' my new house
' MsgBox(Delimit_String("Welcome to my new house", "to", "house")) ' my new
' MsgBox(Delimit_String("Welcome to my new house", "TO", "HoUSe", True)) ' my new
' MsgBox(Delimit_String("Welcome to my new house", "house", "to", , "Left")) ' my new
' MsgBox(Delimit_String("Welcome to my new house", "TO", "HoUSe", False)) ' False
' MsgBox(Delimit_String("Welcome to my new house", "to", "to", , "Left")) ' Index was outside bounds of the array
Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = "", Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
Dim Compare_Method As Integer = 0 ' Don't ignore case
If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case
If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" _
Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format
If Compare_Method = 0 Then
If Not STR.Contains(Delimiter_A) Or Not STR.Contains(Delimiter_B) _
Then Return False ' Returns false if one of the delimiters in NormalCase can 't be found
Else
If Not STR.ToUpper.Contains(Delimiter_A.ToUpper) Or Not STR.ToUpper.Contains(Delimiter_B.ToUpper) _
Then Return False ' Returns false if one of the delimiters in IgnoreCase can 't be found
End If
Try
If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0) _
Else If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1)
If Delimiter_B IsNot Nothing Then
If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1) _
Else If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0)
End If
Return STR ' Returns the splitted string
Catch ex As Exception
Return ex.Message ' Returns exception if index is out of range
End Try
End Function
#End Region
Dim Tu_String = "Bienvenidos todos a mi nueva casa de color verde"
Dim La_String_Delimitada = Delimit_String(Tu_String , "todos", "verde"))
MSGBOX(La_String_Delimitada) Dim STR As String = "bienvenidos todos a mi nueva casa de color verde"
Dim Delimitador_A As String = "todos"
Dim Delimitador_B As String = "verde"
STR = Split(STR, Delimitador_A, , CompareMethod.Text)(1) ' Aquí tomo todo lo que hay a la derecha del primer delimitador
STR = Split(STR, Delimitador_B, , CompareMethod.Text)(0) ' Aquí tomo todo lo que hay a la izquierda del segundo delimitador
MsgBox(STR) ' a mi nueva casa de color#Region " Delimit_String Function "
' // By Elektro H@ker
'
' USAGE:
'
' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos")) ' a mi nueva casa de color verde
' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos", "verde")) ' a mi nueva casa de color
' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", True)) ' a mi nueva casa de color
' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", False)) ' False
' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "verde", "todos", , "Left")) ' a mi nueva casa de color
Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = Nothing, Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
Dim Compare_Method As Integer = 0 ' Don't ignore case
If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case
If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format
Try
If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1) _
Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0)
If Delimiter_B IsNot Nothing Then
If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0) _
Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1)
End If
Return STR ' Returns the splitted string
Catch
Return False ' Returns false if the delimiter "A" or "B" can't be found (Index is out or fange)
End Try
End Function
#End Region
' RegCreateKey(Registry.CurrentUser, "Software\MyProgram")
' RegDeleteKey(Registry.CurrentUser, "Software\MyProgram")
' RegDeleteValue(Registry.CurrentUser, "Software\MyProgram", "Value name")
' RegSetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name", "Data", RegistryValueKind.String)
' Dim RegValue = RegGetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name"))
#Region "Registry Edit"
Public Sub RegCreateKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
RegRoot.CreateSubKey(RegKey)
RegRoot.Close()
End Sub
Public Sub RegDeleteKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
RegRoot.DeleteSubKey(RegKey)
RegRoot.Close()
End Sub
Public Sub RegDeleteValue(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String, ByVal RegValue As String)
Using key As Microsoft.Win32.RegistryKey = RegRoot.OpenSubKey(RegKey, True)
key.DeleteValue(RegValue)
key.Close()
End Using
End Sub
Public Sub RegSetValue(ByVal RegKey As String, ByVal RegValue As String, ByVal RegData As String, ByVal RegDataType As RegistryValueKind)
My.Computer.Registry.SetValue(RegKey, RegValue, RegData, RegDataType)
End Sub
Public Function RegGetValue(ByVal RegKey As String, ByVal RegValue As String)
Return My.Computer.Registry.GetValue(RegKey, RegValue, Nothing)
End Function
#End Region