[R] Ajout dans un fichier txt a un endroit.

[africanism]

Bonjour a tous
voila je voudrais dans mon script qui me recupere des valeur rempli dans un menu
pour me les mettres dans un fichier txt deja cree.

Code : Tout sélectionner

[IDENTIFICATION]
1=[color=#FF0000]$valeur1[/color]
2=[color=#FF0000]$valeur2[/color]
3=[color=#FF0000]$valeur3[/color]
 

les valeur en rouge ne sont pas dans le fichier ,justement je voudrais que des valeur recupere vienne si mettre.

est ce possible.

[timmalos]

C'est possible, mais il faut que vous nous en disiez un peu plus. Est ce un menu sur Internet, sur un programme? Si c'est un programme, est il accessible avec Autoit Windows Info, ou alors dans les fichiers de configuration?

[africanism]

excuser moi j'avait oublie
nom c'est un menuy cree avec autoit

Code : Tout sélectionner

#Region ### START Koda GUI section ### 
$Form1 = GUICreate("Form1", 633, 447, -1, -1)
$NomPC = GUICtrlCreateLabel("Numero Inventaire ex:0391234", 144, 32, 71, 17)
$Domaine = GUICtrlCreateLabel("Domaine", 144, 112, 46, 17)
$Site = GUICtrlCreateLabel("Site", 144, 192, 22, 17)
$User = GUICtrlCreateLabel("User Reseaux ex:A\frxxxxx", 144, 273, 26, 17)
$Password = GUICtrlCreateLabel("Password Reseaux", 144, 353, 50, 17)
$Input1 = GUICtrlCreateInput("Sxxxxxx", 144, 72, 201, 21)
$Domaine1 = GUICtrlCreateCombo("", 144, 152, 201, 25)
GUICtrlSetData (-1, "B|A", "A")
$Site1 = GUICtrlCreateCombo("", 144, 233, 201, 25)
GUICtrlSetData (-1, "1|2", "2")
$Input2 = GUICtrlCreateInput("", 144, 313, 201, 21)
$Input3 = GUICtrlCreateInput("", 144, 393, 201, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$OK = GUICtrlCreateButton("OK", 432, 176, 129, 113, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[Yogui]

Pourquoi ne pas passer par un .ini à la place d'un .txt ?

http://www.autoitscript.fr/autoit3/docs ... iWrite.htm

[africanism]

car c'est un fichier txt qui est utlise par un programme.
donc pas de ini

[timmalos]

Autoit Windows Info vous donne t'il des informations sur les controles de votre programme?

[Yogui]

j'ai tout pris à Tlem C'est un exemple de modification de fichier txt

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <file.au3>
#include <array.au3>

dim $ES_PASSWORD,$ES_AUTOHSCROLL
Dim $Fic = "fichier.txt"
Dim $Count
#Region ### START Koda GUI section ### 
$Form1 = GUICreate("Form1", 633, 447, -1, -1)
$NomPC = GUICtrlCreateLabel("Numero Inventaire ex:0391234", 144, 32, 71, 17)
$Domaine = GUICtrlCreateLabel("Domaine", 144, 112, 46, 17)
$Site = GUICtrlCreateLabel("Site", 144, 192, 22, 17)
$User = GUICtrlCreateLabel("User Reseaux ex:A\frxxxxx", 144, 273, 26, 17)
$Password = GUICtrlCreateLabel("Password Reseaux", 144, 353, 50, 17)
$Input1 = GUICtrlCreateInput("Sxxxxxx", 144, 72, 201, 21)
$Domaine1 = GUICtrlCreateCombo("", 144, 152, 201, 25)
GUICtrlSetData (-1, "B|A", "A")
$Site1 = GUICtrlCreateCombo("", 144, 233, 201, 25)
GUICtrlSetData (-1, "1|2", "2")
$Input2 = GUICtrlCreateInput("", 144, 313, 201, 21)
$Input3 = GUICtrlCreateInput("", 144, 393, 201, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$OK = GUICtrlCreateButton("OK", 432, 176, 129, 113, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    
    
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE 
            Exit
        Case $OK
            ecriredansfichier()
    EndSwitch
WEnd
    
    
Func ecriredansfichier()
$hFile = FileOpen($Fic, 0)
While 1
    $line = FileReadLine($hFile)
    ; Si c'est la fin du fichier, on sort.
    If @error = -1 Then ExitLoop
    ; Petit compteur pour connaitre la ligne traitée.
    $Count = $Count + 1
    
    ; Ici je regarde si la chaine mdp=mdpDeX existe dans la ligne.
    If StringInStr($line, "=") Then
        ; Je met à jour la variable $Line avec les nouvelles infos.
        $line = StringReplace($line, "$valeur1", GUICtrlRead($NomPC))
        ; Fermeture du fichier (En lecture).
        FileClose($hFile)
        ; On écrit la ligne au bon endroit.
        _FileWriteToLine($Fic, $Count, $line, 1)
        MsgBox(64, "Info", "Le fichier à été modifié.")
        Exit
    EndIf
WEnd
FileClose($hFile)
EndFunc

[africanism]

Merci a vous