**************************
'Función de función: devuelva uno de los valores seleccionados basado en la condición verdadera o falsa
'Parámetro: BlnCondition: Condición Variable, VarResultTrue: Valor de retorno Cuando la condición es verdadera, VarResultfalse: Valor de retorno Cuando la condición es falsa
FunctionIif (BlnCondition, VARRESULTTRUE, VARRESULTFALSE)
Ifcbool (blncondition) entonces
Iif = VarResultTrue
Demás
IIF = VARRESULTFALSE
Endif
Función final
'**********************
'Función de función: determina si un elemento de cadena está en la enum dada
'Artículo: Sele: cadena para ser juzgada, sarray: especificar enum
'Por ejemplo: determine si el archivo de imagen se basa en la extensión: inarray (strfileExt, "jpg, gif, bmp, png")
FunctionInArray (Sele, Sarray)
Dima
Dimi
Aarray = Split (Sarray, ",")
Fori = 0toUbound (Aarray)
Iftrim (sele) = trim (aarray (i)) entonces
Inarray = verdadero
Extinción
Endif
Próximo
Inarray = falso
Función final
'**********************
'Función de función: determine si una cadena se ajusta a una expresión regular
'Argumentos: Strstring: String, Strpattern: expresión regular
FunctionDoretest (strstring, strpattern)
Dimore
Setore = newregexp
Ore.Pattern = strpattern
Ore.ignorecase = True
doretest = ore.test (Strstring)
Setore = nada
Función final
'**********************
'Función Función: extracción regular
'Argumentos: String: String, Patrn: Expresión regular
'Regreso: segmento de comas de la matriz de resultados
FunctionDoreExec (Strng, Patrn)
DimEgex, Match, Matches, Retstr 'crea variables.
SetRegex = NewGEXP 'crea una expresión regular.
regex.pattern = Patrn'set Mode.
regex.ignorecase = true 'se establece en caso insensible.
RegEx.Global = True 'La configuración se aplica a nivel mundial.
SetMatches = regex.execute (strng) 'realiza la búsqueda.