Tableau de String - NullException
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:
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.
