Bonjour les codeurs, bon voilà j'ai un petit soucis avec mon tableau de string, je vous explique le but:

j'ai un textbox où l'on peut rentrer des noms de fichiers et/ou des extensions separé par des points-virgules et alors j'aimerais pouvoir d'une part differencier un nom de fichier d'une extension et les mettre ds un meme tableau, voilà mes fonctions utilisées:

celle pour reconnaitre les extensions: (elle retourne soit le nom de fichier complet, soit l'extension sans l'étoile), celle-ci marche sans problème...


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Voilà donc en fait, ske je ne sais pas faire c'est ecrire une nouvelle ligne ds un tableau sans limite de lignes...

Merci de votre aide.