[R] Récupérer la valeur d'un GUICtrlCreateEdit ?

[achraf]

comment copy un line d'une GUICtrlCreateEdit dans un variable pour utilisez ce variable ...
aide moi s.v.p

[Tlem]

En considérant que vous utilisez GUICtrlCreateEdit comme ceci :

Code : Tout sélectionner

$hMonTexte = GUICtrlCreateEdit ( "text", left, top)

vous pourrez lire son contenu comme ceci :

Code : Tout sélectionner

$MonTexte = GUICtrlRead ($hMonTexte)
Msgbox(0, "Texte", $Montexte)

[achraf]

non c'est pas ca moi je veux copy la line 1 dans un variable et la line 2 dans un variable etc ...

[jbnh]

Code : Tout sélectionner

#include <GUIConstants.au3>
$GUI = GUICreate("....", 270, 150, -1, -1)
$Input_1 = GUICtrlCreateedit("", 10, 10, 220, 70)

$Button_2 = GUICtrlCreateButton("Cut Lines", 10, 90, 80)

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
 
        Case $nMsg = $Button_2
        $line = StringSplit(guictrlread($Input_1), @LF)     
        For $i = 1 To $line[0]
        Msgbox(0,"", $line[$i])
        Next
        
    EndSelect
WEnd

[achraf]

aussi c'est pas ca regarde :

Code : Tout sélectionner

#include "guiconstants.au3"
#include "EditConstants.au3"
GUICreate ("Registration",200,200)
GUICtrlCreateLabel ("votre nom ici : ",10,13)
$input = GUICtrlCreateInput ("",80,10,110,20)
GUICtrlCreateLabel ("votre org ici : ",15,43)
$input1 = GUICtrlCreateInput ("",80,40,110,20)
GUICtrlCreateLabel ("votre adr ici : ",14,73)
[color=#BF0000]$input2 = GUICtrlCreateEdit ( "", 80,70,110,80)[/color]
$change = GUICtrlCreateButton ("change",45,160,50,30)
$exit = GUICtrlCreateButton ("exit",105,160,50,30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $gui_event_close
            ExitLoop
Case $msg = $exit
    exit        
Case $msg = $change
$nom = GUICtrlRead( $input )
$org = GUICtrlRead( $input1 )
[color=#BF0000]$des = GUICtrlRead( $input2 )[/color]
IniWrite (@SystemDir&"\OEMInfo.ini","General","Manufacturer",$nom&" :")
IniWrite (@SystemDir&"\OEMInfo.ini","General","Model",$org)
[color=#FF0000]IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line1",$des)[/color]
EndSelect
WEnd

je veux copy la line 2 de l'edit a IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line2",$des)

[jbnh]

évidemment faut adapter..........

Code : Tout sélectionner

Case $msg = $change
$nom = GUICtrlRead( $input )
$org = GUICtrlRead( $input1 )
$des = GUICtrlRead( $input2 )

$line = StringSplit($des, @LF)     


IniWrite (@SystemDir&"\OEMInfo.ini","General","Manufacturer",$nom&" :")
IniWrite (@SystemDir&"\OEMInfo.ini","General","Model",$org)
IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line1",$line[1])
EndSelect
WEnd

[achraf]

desole c'est pas ca moi jeux veux copier la line 1 dans IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line1","contenu du line 1")
la line 2 dans
(@SystemDir&"\OEMInfo.ini","Support Information","Line2","contenu du line 2")
etc ...

[achraf]

merci beaucoup comme ca va bien
IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line1",$line[1])
IniWrite (@SystemDir&"\OEMInfo.ini","Support Information","Line2",$line[2])
etc
lock ce sujet s.v.p