************************
'Fonction Fonction: renvoyez l'une des valeurs sélectionnées en fonction de la condition vraie ou fausse
'Paramètre: BlnCondition: Condition Variable, Varresultrue: Valeur de retour lorsque la condition est vraie, VarresultFalse: Valeur de retour lorsque la condition est fausse
FunctionIif (BlnCondition, VarresultTrue, VarresultFalse)
Ifcbool (blncondition) puis
Iif = varresultrue
Autre
Iif = varresultfalse
Endire
Finition de fin
'*******************
'Fonction Fonction: détermine si un élément de chaîne est dans l'énumération donnée
'Article: Sele: String à juger, SARRAY: Spécifiez enum
'Par exemple: déterminez si le fichier image est basé sur l'extension: inArray (strFileExt, "JPG, gif, bmp, png")
FonctionInarray (Sele, Sarray)
Dimaarray
Dimi
aarray = split (sarray, ",")
Fori = 0Toubound (aarray)
Iftrim (sele) = trim (aarray (i)) puis
InArray = true
Sortie
Endire
Suivant
Inatray = false
Finition de fin
'*******************
'Fonction Fonction: déterminer si une chaîne est conforme à une expression régulière
'Arguments: StrSring: String, Strpattern: Expression régulière
FunctionDoreTest (StrSring, strpattern)
Dimore
Setore = newRegexp
minerai.
ore.ignorecase = true
DoreTest = Ore.Test (StrSring)
Setore = rien
Finition de fin
'*******************
'Fonction Fonction: Extraction régulière
'Arguments: String: String, Patn: Expression régulière
'Retour: le segment de virgule du tableau de résultat
FunctionDoreExec (Strng, Patn)
DimRegex, Match, Matchs, Retstr 'crée des variables.
SetRegex = newRegexp 'crée une expression régulière.
regex.Pattern = mode Patn'set.
regex.ignorecase = true 'est défini sur le cas insensible.
regex.global = True 'Le paramètre s'applique à l'échelle mondiale.
SetMatches = regex.execcute (strng) 'effectue la recherche.