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 |