1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| Public Function VerifIfTextExt(ByVal Texte AsString) AsString
Try
Dim IfTextExt() AsString = Split(Texte, "*")
Return IfTextExt(1)
Catch ex As Exception
Return Texte
EndTry
EndFunction
celle pour remplir le tableau de string avec pour chaque ligne le retour de l'autre fonction:
Public
Function VerifIfTextMultiCrit(ByVal Texte AsString) AsString()
Try
Dim PosCritère AsInteger = 0
Dim TextMultiCritTriExt() AsString = Nothing
Dim IfTextMultiCrit() AsString = Split(Texte, ";")
ForEach Text AsStringIn IfTextMultiCrit
VerifIfTextExt(Text)
TextMultiCritTriExt.SetValue(VerifIfTextExt(Text), PosCritère) je pense que c'est cette ligne qui pose probleme car elle m'envoi direct dans la ligne "Catch ex as exception"
PosCritère = PosCritère + 1
Next
Return TextMultiCritTriExt
Catch ex As Exception
EndTry
EndFunction |
Partager