BracketString


Volver
'**********************************************************
' Function BracketString(
'          String As String,
'          flags As Long) As Boolean
'
' Evalúa una expresión y determina si necesita ir encerrada
' entre corchetes.
'
' Argumentos:
'   String: Expresión que se evaluará 
'   flags: Valor que determina como actuará la función. El
'   criterio es el siguiente
'
'   Dependiendo del valor del argumento flags BracketString
'   añade o no los corchetes, si se requieren, tomando como
'   separador de cadenas el caracter "!" o ".":
'
'   Valores del argumento flags:
'   0 = No añade corchetes
'   1 = Añade corchetes si se necesita
'   2 = Siempre añade corchetes
'
'   Valor de retorno:
'   Si flags = 0 ó 1
'       True = Argumento 1 necesita corchetes
'       False = Argumento 1 no necesita corchetes
'   Si flags = 2
'       Siempre devuelve False (?¿?)
'
Sub wzBracketString()
Dim wzStr0 As String
Dim wzStr1 As String
Dim wzStr2 As String

    
    WizHook.Key = 51488399
    
    wzStr0 = "Forms!Form Con Espacios.Text1"
    wzStr1 = "Forms!Form Con Espacios.Text1"
    wzStr2 = "Forms!Form Con Espacios.Text1"
            
    Debug.Print WizHook.BracketString(wzStr0, 0), wzStr0
    Debug.Print WizHook.BracketString(wzStr1, 1), wzStr1
    Debug.Print WizHook.BracketString(wzStr2, 2), wzStr2
    
    Debug.Print
    
    wzStr0 = "Forms!FormSinEspacios.Text1"
    wzStr1 = "Forms!FormSinEspacios.Text1"
    wzStr2 = "Forms!FormSinEspacios.Text1"
    
    Debug.Print WizHook.BracketString(wzStr0, 0), wzStr0
    Debug.Print WizHook.BracketString(wzStr1, 1), wzStr1
    Debug.Print WizHook.BracketString(wzStr2, 2), wzStr2
    
End Sub
'**********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera