au3scr Posted November 12, 2007 Share 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 Link to comment Share on other sites More sharing options...
au3scr Posted November 12, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
Nahuel Posted November 12, 2007 Share 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 Link to comment Share on other sites More sharing options...
JustinReno Posted November 12, 2007 Share 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 Link to comment Share on other sites More sharing options...
au3scr Posted November 12, 2007 Author Share 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 Link to comment Share on other sites More sharing options...
Valuater Posted November 12, 2007 Share 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 Link to comment Share on other sites More sharing options...
au3scr Posted November 12, 2007 Author Share Posted November 12, 2007 problems,problems ,and problems.. title set dont work and it still dont save text.... Ok i cant continue with this Link to comment Share on other sites More sharing options...
au3scr Posted November 12, 2007 Author Share 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. Link to comment Share on other sites More sharing options...
Achilles Posted November 13, 2007 Share Posted November 13, 2007 Based of what you've said I would try looking at FileDelete and WinSetTitle in the helpfile. My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
JustinReno Posted November 13, 2007 Share 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 Link to comment Share on other sites More sharing options...
au3scr Posted November 14, 2007 Author Share Posted November 14, 2007 thank you very much Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now