au3scr 0 Posted November 12, 2007 how i can make basic notepad that has save and open button and edit can some one help with this? I made Gui but i dont know how make open and save dialog Hide au3scr's signature Hide all signatures Share this post Link to post Share on other sites
au3scr 0 Posted November 12, 2007 Bug dedected or something wrong here It drips me ope dialog over and over again and file path appears in edit but not text from file..how i can make appear text from file #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 611, 411, 193, 115) $Edit1 = GUICtrlCreateedit("", 0, 32, 609, 377) GUICtrlSetData(-1, "") $save = GUICtrlCreateButton("save", 8, 0, 75, 25, 0) $open = GUICtrlCreateButton("open", 88, 0, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $save Case $open $open = FileOpenDialog("Select file:", GUICtrlRead($Edit1), "text (*.txt;*.ini;*.au3;*.inf)") If @error Then ContinueLoop GUICtrlSetData($Edit1,$open) $Edit1 = FileRead ($open,2) ClipPut($Edit1) Send("^v") EndSwitch WEnd Hide au3scr's signature Hide all signatures Share this post Link to post Share on other sites
Nahuel 1 Posted November 12, 2007 If $open is a control ID then don't assign it any other value. #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 611, 411, 193, 115) $Edit1 = GUICtrlCreateedit("", 0, 32, 609, 377) GUICtrlSetData(-1, "") $save = GUICtrlCreateButton("save", 8, 0, 75, 25, 0) $open = GUICtrlCreateButton("open", 88, 0, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $save Case $open $path = FileOpenDialog("Select file:","", "text (*.txt;*.ini;*.au3;*.inf)") If Not @error Then GUICtrlSetData($Edit1,FileRead($path)) EndIf EndSwitch WEnd Share this post Link to post Share on other sites
JustinReno 0 Posted November 12, 2007 Here is the save function. #include <GUIConstants.au3> $Form1 = GUICreate("Form1", 611, 411, 193, 115) $Edit1 = GUICtrlCreateedit("", 0, 32, 609, 377) GUICtrlSetData(-1, "") $save = GUICtrlCreateButton("save", 8, 0, 75, 25, 0) $open = GUICtrlCreateButton("open", 88, 0, 75, 25, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $save $SaveFile = FileSaveDialog("Select Location to Save:", "", "Text (*.TXT|*.INI|*.au3|*.INF)") $ReadEdit = GuiCtrlRead($Edit1) FileWrite($SaveFile, $ReadEdit) Case $open $path = FileOpenDialog("Select file:","", "text (*.txt;*.ini;*.au3;*.inf)") If Not @error Then GUICtrlSetData($Edit1,FileRead($path)) EndIf EndSwitch WEnd Share this post Link to post Share on other sites
au3scr 0 Posted November 12, 2007 (edited) Next problem .I tryed to make save function but it dont wipe old file.. it adds stuff that i writed to old text and other problem is.. i dont change title when i open file Can anyone help pls? #include <GUIConstants.au3> Global $path = @DocumentsCommonDir Global $title = "Unknown" #Region ### START Koda GUI section ### Form= $Form1 = GUICreate($title, 611, 411, 193, 115) $Edit1 = GUICtrlCreateedit("", 0, 32, 609, 377) GUICtrlSetData(-1, "") $save = GUICtrlCreateButton("save", 8, 0, 75, 25, 0) $open = GUICtrlCreateButton("open", 88, 0, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $save $nano = GUICtrlRead($Edit1) $savetext = FileWrite ($path,$nano) Case $open $path = FileOpenDialog("Select file:","", "all (*.*)") If Not @error Then GUICtrlSetData($Edit1,FileRead($path)) EndIf $title = $path EndSwitch WEnd Here is the save function. Script closes when i click save Edited November 12, 2007 by au3scr Hide au3scr's signature Hide all signatures Share this post Link to post Share on other sites
Valuater 123 Posted November 12, 2007 (edited) do you want to be spoon-feed also??? read help on fileWrite() there is an example to add or over-write using FileOpen() also, the file (save and open) dialog was written as an example above 8) Edited November 12, 2007 by Valuater Hide Valuater's signature Hide all signatures Share this post Link to post Share on other sites
au3scr 0 Posted November 12, 2007 problems,problems ,and problems.. title set dont work and it still dont save text.... Ok i cant continue with this Hide au3scr's signature Hide all signatures Share this post Link to post Share on other sites
au3scr 0 Posted November 12, 2007 Can some one help me with this? I used all my free time for today,but i still havent get anything. Hide au3scr's signature Hide all signatures Share this post Link to post Share on other sites
Achilles 2 Posted November 13, 2007 Based of what you've said I would try looking at FileDelete and WinSetTitle in the helpfile. Hide Achilles's signature Hide all signatures My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Share this post Link to post Share on other sites
JustinReno 0 Posted November 13, 2007 Ok, after some editing, study this script(And use it if you want.): expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.8.1 Author: Justin Reno Script Function: A simple notepad to study. #ce ---------------------------------------------------------------------------- #include <GUIConstants.au3> #include <File.au3> #include <String.au3> #include <GuiEdit.au3> $Form1 = GUICreate("Text Editor", 634, 447, -1, -1, $WS_Overlappedwindow, $WS_MaximizeBox) $Edit = GUICtrlCreateEdit("", 0, 0, 633, 425) $MenuItem1 = GUICtrlCreateMenu("File") $MenuItem2 = GUICtrlCreateMenuItem("New", $MenuItem1) $MenuItem3 = GUICtrlCreateMenuItem("Open", $MenuItem1) $MenuItem4 = GUICtrlCreateMenuItem("Save", $MenuItem1) $MenuItem5 = GUICtrlCreateMenuItem("Print", $MenuItem1) $MenuSep = GUICtrlCreateMenuItem("", $MenuItem1) $MenuItem6 = GUICtrlCreateMenuItem("Exit", $MenuItem1) $MenuItem7 = GUICtrlCreateMenu("Edit") $MenuItem8 = GUICtrlCreateMenuItem("Insert Current Time", $MenuItem7) $MenuSep = GUICtrlCreateMenuItem("", $MenuItem7) $MenuItem9 = GUICtrlCreateMenuItem("Reverse Text", $MenuItem7) $MenuSep = GUICtrlCreateMenuItem("", $MenuItem7) $MenuItem10 = GUICtrlCreateMenuItem("Word Count", $MenuItem7) $MenuSep = GUICtrlCreateMenuItem("", $MenuItem7) $MenuItem11 = GUICtrlCreateMenuItem("Copy", $MenuItem7) $MenuItem12 = GUICtrlCreateMenuItem("Paste", $MenuItem7) $MenuSep = GUICtrlCreateMenuItem("", $MenuItem7) $MenuItem13 = GUICtrlCreateMenuItem("Undo", $MenuItem7) $MenuSep = GUICtrlCreateMenuItem("", $MenuItem7) $MenuItem15 = GUICtrlCreateMenuItem("Font", $MenuItem7) $MenuItem16 = GUICtrlCreateMenu("Speak") $MenuItem17 = GUICtrlCreateMenuItem("Speak Text", $MenuItem16) $MenuItem18 = GUICtrlCreateMenuItem("Stop Speaking", $MenuItem16) $MenuItem19 = GUICtrlCreateMenu("About") $MenuItem20 = GUICtrlCreateMenuItem("About", $MenuItem19) GUISetState(@SW_SHOW) While 1 $Time = "" & @HOUR & ":" & @MIN & ":" & @SEC & "" $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem2 GUICtrlSetData($Edit, "") WinSetTitle($Form1, "", "Text Editor") Case $MenuItem3 $FileOpen = FileOpenDialog("Text Editor : Open File", "", "Text Files(*.txt;*.html)") $FileOpenread = FileRead($FileOpen) GUICtrlSetData($Edit, $FileOpenread) WinSetTitle($Form1, "", "Text Editor - " & $FileOpen & "") Case $MenuItem4 $FileSave = FileSaveDialog("Text Editor : Save File", "", "Text Files(*.txt;*.html)") $EditSave = GUICtrlRead($Edit) FileWrite($FileSave, $EditSave) MsgBox(0, "Text Editor", "File Saved.") WinSetTitle($Form1, "", "Text Editor - " & $FileSave & "") Case $MenuItem5 $EditReadPrint = GUICtrlRead($Edit) FileWrite(@TempDir & "\print.txt", $EditReadPrint) _FilePrint(@TempDir & "\print.txt") FileDelete(@TempDir & "\print.txt") Case $MenuItem6 Exit Case $MenuItem8 ControlSend($Form1, "", $Edit, $Time) Case $MenuItem9 $EditReadReverse = GUICtrlRead($Edit) $StringRev = _StringReverse($EditReadReverse) GUICtrlSetData($Edit, $StringRev) Case $MenuItem10 $EditReadCount = GUICtrlRead($Edit) $ReadCountSplit = StringSplit($EditReadCount, " ") $WordCount = $ReadCountSplit[0] $AllWords = $WordCount MsgBox(0, "Text Editor", "Word Count: " & $AllWords & "") Case $MenuItem11 $EditReadCopy = GUICtrlRead($Edit) ClipPut($EditReadCopy) Case $MenuItem12 $ClipGetCopy = ClipGet() $EditReadPaste = GUICtrlRead($Edit) GUICtrlSetData($Edit, $EditReadPaste & $ClipGetCopy) Case $MenuItem13 _GUICtrlEditUndo($Edit) Case $MenuItem15 $EditChooseFont = _ChooseFont() $Font = GUICtrlSetFont($Edit, $EditChooseFont[3], $EditChooseFont[4], $EditChooseFont[1], $EditChooseFont[2]) $Color = GUICtrlSetColor($Edit, $EditChooseFont[7]) Case $MenuItem17 $Speech = ObjCreate("SAPI.SpVoice") $EditTextRead = GUICtrlRead($Edit) $Speech.Speak ($EditTextRead) Case $MenuItem18 $Speech = ObjCreate("SAPI.SpVoice") Case $MenuItem20 MsgBox(0, "Text Editor", "Text Editor made for Au3scr by Justin Reno.") EndSwitch WEnd Share this post Link to post Share on other sites
au3scr 0 Posted November 14, 2007 thank you very much Hide au3scr's signature Hide all signatures Share this post Link to post Share on other sites
