Créer un espace si objet non présent

Je sais pas trop comment l'expliquer mais dans mon WriteLine suivant...

Code:

---

objTextFile.WriteLine(objComputer.Name & vbTab & objComputer.operatingSystem & " - " & objComputer.operatingSystemServicePack & vbTab & objComputer.operatingSystemHotfix & vbTab & objComputer.operatingSystemVersion & vbTab & objComputer.whenCreated)

---

J'ai bien les infos inscrite, toutefois dès qu'un objet n'est pas présent il n'est pas écrit donc il y a un décalage est ce possible de faire en sorte que si l'objet n'est pas présent pour un élément il y ait un espace de façon a ce que ce soit tout bien aligné??? L'exemple suivant démontre ce que j'aimerais "corriger"

Code:

---

1 2 3 4 5 6 7 8 9

CN=043-502364 Windows XP Professional - Service Pack 3 5.1 (2600) 2009-11-19 20:10:09 CN=043-55DC0N1 Windows 7 Professionnel - 6.1 (7600) 2011-01-13 18:11:38 CN=043-594F54 Windows XP Professional - Service Pack 3 5.1 (2600) 2009-11-19 19:38:46 CN=043-597AF4 Windows XP Professional - Service Pack 3 5.1 (2600) 2009-11-19 19:49:02 CN=043-65B0B4 Windows XP Professional - Service Pack 3 5.1 (2600) 2009-11-19 20:35:45 CN=043-65DC0N1 Windows 7 Professionnel - 6.1 (7600) 2011-01-13 19:05:34 CN=043-66031 Windows XP Professional - Service Pack 3 5.1 (2600) 2012-02-16 15:44:47 CN=043-66032 Windows XP Professional - Service Pack 3 5.1 (2600) 2012-03-01 18:35:56 CN=043-66034 Windows XP Professional - Service Pack 3 5.1 (2600) 2011-09-01 16:57:18

---

Bonjour,

Et si tu concaténais une tabulation (chr(9)) au lieu d'un " - " ?

merci pour cet info...

ça change la donne un peu

Code:

---

1 2 3 4 5 6 7

CN=038-BIBLIO Windows XP Professional Service Pack 3 5.1 (2600) 2008-10-09 15:30:25 CN=038-WIN7-DIR Windows 7 Professionnel Service Pack 1 6.1 (7601) 2011-09-06 12:49:04 CN=038-WIN7-SG Windows 7 Professionnel 6.1 (7600) 2010-06-11 13:12:00 CN=038-XP-135 Windows XP Professional Service Pack 3 5.1 (2600) 2009-10-23 13:38:30 CN=038-XP-ORTHO Windows XP Professional Service Pack 3 5.1 (2600) 2009-12-04 15:41:45 CN=052-RECEPTION-1 Windows 7 Professionnel 6.1 (7600) 2008-09-26 17:39:58 CN=XP-0120991 Windows XP Professional Service Pack 2 5.1 (2600) 2003-10-20 18:42:49

---

Par contre si la chaine est null dans le cas d'un objComputer.operatingSystemHotfix le reste de la ligne se trouve décalée...

toujours à la recherche

Y a pas moyen de faire un

If objComputer.operatingSystemHotfix = null Then
objTextFile.strText = "Chaine Vide"

Merci

Re,

Tu peux toujours faire ça :

Code:

---

1 2 3

If isnull(objComputer.operatingSystemHotfix) or len(trim(objComputer.operatingSystemHotfix)) = 0 Then objTextFile.strText = "Chaine Vide"

---

ou tu insères systématiquement un espace ?

Code:

---

1 2	objTextFile.WriteLine(objComputer.Name & chr(32) & vbTab & objComputer.operatingSystem & chr(32) & " - " & objComputer.operatingSystemServicePack & chr(32) & vbTab & objComputer.operatingSystemHotfix & chr(32) & vbTab & objComputer.operatingSystemVersion & chr(32) & vbTab & objComputer.whenCreated)

---

Premier code a pc75 adopté...solution trouvée...

merci