**************************
'Função da função: retorne um dos valores selecionados com base na condição verdadeira ou falsa
'Parâmetro: BLNCONDITION: Variável de condição, VarresultUe: Retorno Valor Quando a condição é verdadeira, Varresultfalse: Valor de retorno quando a condição é falsa
FunctionIif (Blncondition, Varresultue, Varresultfalse)
IfcBool (Blncondition) então
IIF = VarresultUrue
Outro
IIF = Varresultfalse
Endif
Função final
'*********************
'Função da função: determina se um elemento de string está na enumeração dada
'Artigo: Sele: String a ser julgada, Sarray: especificar enum
'Por exemplo: determine se o arquivo de imagem é baseado na extensão: inarray (strfileExt, "jpg, gif, bmp, png")
FunctioninArray (Sele, Sarray)
Dimaarray
Dimi
Aarray = Split (Sarray, ",")
Fori = 0Toubound (Aarray)
Iftrim (SELE) = TRIM (AARRAY (i)) então
Inarray = true
Saída de saída
Endif
Próximo
Inarray = false
Função final
'*********************
'Função da função: determine se uma string está em conformidade com uma expressão regular
'Argumentos: strstring: string, strpattern: expressão regular
FunctionDorEtest (strstring, strpattern)
Dimore
Setore = newRegexp
Ore.pattern = strpattern
ore.ignorecase = true
DORETEST = ORE.TEST (STRSTRING)
Setore = nada
Função final
'*********************
'Função da função: extração regular
'Argumentos: string: string, patn: expressão regular
'Retorno: segmento de vírgula da matriz de resultados
FunctionDoreExec (strng, patn)
Dimregex, Match, Matches, Retstr 'cria variáveis.
SetRegex = newRegexp 'cria uma expressão regular.
regex.pattern = modo patn'set.
regex.ignorecase = true 'está definido como insensível ao caso.
regex.global = true 'A configuração se aplica globalmente.
SetMatches = regex.execute (strng) 'executa a pesquisa.