load a text from a file into an edit

[GrungeRocker]

hi guys

its me again

i wanted to make sth like an editor but i dont know how to load the text into the edit....

i looked in lazycats quick notepad but it was too complicated....

so here is what i already have:

#include <GuiConstants.au3>

GuiCreate("Texteditor", 516, 540,(@DesktopWidth-516)/2, (@DesktopHeight-540)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$filemenu = GUICtrlCreateMenu ("&File")
$Open = GUICtrlCreateMenuitem ("Open",$filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$Save = GUICtrlCreateMenuitem("Save", $filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$SaveAs = GUICtrlCreateMenuitem("Save as", $filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$nix1 = GUICtrlCreateMenuitem("____________", $filemenu)
GUICtrlSetState(-1,$gui_disable)
$exit = GUICtrlCreateMenuitem("Exit", $filemenu)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$text = 'Programmiert von Artus Krieger'
$Textfeld = GuiCtrlCreateEdit("" & $text, 0, 30, 520, 510)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Open
        $file = FileOpenDialog("Choose file...",@DesktopCommonDir,"All (*.*)")
        $text = FileOpen("" & $file, 0)
        GUICtrlDelete($textfeld)
        $Textfeld = GuiCtrlCreateEdit("" & $text, 0, 30, 520, 510)
    EndSelect
WEnd
Exit

[buzz44]

Click file open and select a file.

#include <GuiConstants.au3>
GUICreate("Texteditor", 516, 540, (@DesktopWidth - 516) / 2, (@DesktopHeight - 540) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$filemenu = GUICtrlCreateMenu("&File")
$Open = GUICtrlCreateMenuItem("Open", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$Save = GUICtrlCreateMenuItem("Save", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$SaveAs = GUICtrlCreateMenuItem("Save as", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$nix1 = GUICtrlCreateMenuItem("____________", $filemenu)
GUICtrlSetState(-1, $gui_disable)
$exit = GUICtrlCreateMenuItem("Exit", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$text = 'Programmiert von Artus Krieger'
$Textfeld = GUICtrlCreateEdit("" & $text, 0, 30, 520, 510)
GUISetState()
While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $GUI_EVENT_CLOSE
         ExitLoop
      Case $msg = $Open
         $file = FileOpenDialog("Choose file...", @DesktopCommonDir, "All (*.*)")
         If Not @error Then
            $Ready = FileOpen($file, 0)
            If $Ready = -1 Then
               MsgBox(0, "Error", "Unable to open file.")
               Exit
            EndIf
            $File_Read = FileRead($file, FileGetSize($file))
            GUICtrlDelete($Textfeld)
            $Textfeld = GUICtrlCreateEdit($File_Read, 0, 30, 520, 510)
         EndIf
   EndSelect
WEnd
Exit

Edited May 15, 2005 by Burrup

[GrungeRocker]

ohh thx...

thats really easy

and im soo stupid..

well let us say it so..

i ad got a black out!1

so im happy:D