Discussion :

[snorky94]

Bonjour,

je split mes champs qui ont pour séparateur "@" de cette facon pour créer mon tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
		mTab = Split(result, "@")
 
		IP_Adress = mTab(0) 
		Subnet_Mask = mTab(1)
		Unique_ID  = mTab(2)
		Lease_Expires  = mTab(3)
		Lease_Type  = mTab(4)
		Name  = mTab(5)
 
wscript.echo IP_Adress & " " & Subnet_Mask & " " & Unique_ID & " " & Lease_Expires & " " & Lease_Type & " " & Name

ca fonctionne sans problème.

Sauf que à certaines lignes mon champs (5) est vide :

10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@02/12/2012_21:46:15@D-@XXX.mondomaine.fr
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@03/12/2012_09:32:57@D-@XXX.mondomaine.fr
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@03/12/2012_14:39:22@D-@XXX.mondomaine.fr
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@04/12/2012_01:00:04@D-
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@03/12/2012_14:01:01@D-@XXX.mondomaine.fr

exemple :

10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@04/12/2012_01:00:04@D-

Et j'obtiens une erreur :

Erreur d'exécution Microsoft VBScript: Indice en dehors de la plage: '[number: 5]'

Comment faire pour gerer les erreurs si champs vide svp ?

J'ai essayé avec ISEmpty ISNull etc mais ca ne fonctionne pas car mon champs n'est pas défini.

Merci d'avance.

[ProgElecT]

Salut

En remplacent la ligne 9 par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If UBound(mTab) < 5 Then Name = "Non renseigné" Else Name = mTab(5)

cela devrait régler le problème.

[snorky94]

C'est exactement ce que je voulais merci encore