[R] Filewritetoline avec plusieurs variable sans sauter de lignes

[davzell]

Salut a tous,

j'essaye de faire un script pour récupérer des infos sur un poste et les écrire ensuite dans un fichier txt.

le fichier txt ressemble à ca

Code : Tout sélectionner

Nom du Poste		Numéro de série		Num.d'Enregistrement			Num.d'Activation

j'ai ensuite fait ca

Code : Tout sélectionner

        case $Button1
            _FileWriteToLine($hFileOpen, 9, $NOMPC & "                 " & $Result2)

J'ai ajouté des espaces entre guillemet pour que le résulat de ma variable tombe pile sous "Numero de serie"

par contre si je rajoute une 3eme variable ensuite, avec aussi des espaces, ma variable va se retrouver sur la ligne d'après.

une idée ?

merci

[orax]

Ce n'est pas plutôt l'éditeur, avec lequel est ouvert le fichier txt, qui fait un retour automatique à la ligne quand la ligne est trop grande ?

[davzell]

je viens de me rendre compte que c'est uniquement une variable ($result2) qui pose problème.

Cette variable est récupéré de cette manière

Code : Tout sélectionner

Func SN ()

Local $console = Run(@ComSpec & " /c wmic bios get serialnumber", @ScriptDir, @SW_HIDE, $STDOUT_CHILD)
Local $line, $Result = ""
While 1
    Sleep(100)
    $line = StdOutRead($console)
    If @error Then ExitLoop
    $Result = $line
Wend
$Result2 = StringTrimLeft($Result, 17)

GUICtrlSetData($input3, $Result2)

EndFunc

[davzell]

Ce n'est pas plutôt l'éditeur, avec lequel est ouvert le fichier txt, qui fait un retour automatique à la ligne quand la ligne est trop grande ?

j'y ai pensé mais en faisant le test avec d'autre variable contenant plus de caractère ca passe...

[orax]

Il y a bien des retours à la ligne en trop dans cette variable. Il faut donc les supprimer ou utiliser une autre méthode pour récupérer cette valeur.

Code: [Tout sélectionner] [Déplier/Replier]

#include <StringConstants.au3>

; supprime les espaces blancs de début et de fin
$Result2 = StringStripWS($Result2, $STR_STRIPLEADING + $STR_STRIPTRAILING)

; -------------------------------------------------------------------

; méthode alternative (sans utiliser wmic)
$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
If IsObj($objWMIService) Then
   $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS")
   For $objItem In $colItems
      ConsoleWrite($objItem.SerialNumber & @CRLF)
   Next
EndIf

GeSHi © Extension Codebox Plus

[davzell]

effectivement va marche nikel comme ca, merci

pour la récuperation du serial number, il y a un avantage à utiliser tel ou tel méthode ?
merci

[orax]

Je ne sais pas mais j'ai une préférence pour la méthode "ObjGet" puisqu'il n'y a pas besoin de traiter la chaîne récupérée.
En plus, wmic fait la même chose qu'ObjGet donc je préfère le faire directement avec ObjGet plutôt que d'utiliser une commande externe.

[davzell]

ok merci