Xkdash Posted May 29, 2015 Share Posted May 29, 2015 Hello Friends , Recently I made a simple text editor that enables you to Type, Save ,Open ,Edit , Change font etc.. I made separate buttons for them.Everything is working fine but I am stuck at a point. I want a .txt file to be opened by my standalone application. When I go to the file properties, then openWith and choose my editor.exe. The .txt file doesn't seem to open with my application. Although when I open a file using the dedicated buttons it works fine. What should I do ?. Link to comment Share on other sites More sharing options...
water Posted May 29, 2015 Share Posted May 29, 2015 You should post your script so we are able to help you with your problem My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Xkdash Posted May 29, 2015 Author Share Posted May 29, 2015 ;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;Created by Kuntal Das;Xtreme Labs,Team SDK;Xtreme Note;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------;FLAG DEFINITION;---------------;$flag1=-2 - file has not been saved even once i.e. text has only been typed in the text box;$flag1=-1 - File has been saved atleast once;$flag2=-2 - File has not been opened i.e. text has only been typed in the text box;$flag2=-1 - File has been opened;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------#include <ColorConstants.au3>#include <GUIConstantsEx.au3>#include <GuiEdit.au3>#include <File.au3>#include <Misc.au3>_Main()Func _Main() Local $GUIWidth = 700, $GUIHeight = 300 Local $sDrive = "", $sDir = "", $sFilename = "", $sExtension = "" Local $Edit, $Save,$About,$msg,$Open,$temp,$fopen1,$get,$fopen2,$split,$flag1=-2,$opf1,$fread,$name,$flag2=-2,$saf,$lab,$dark,$light,$font,$fd,$file,$lab2 Local $msg1= "Choose a filename.",$msg2= "Select a single text file." $file=FileOpen(@ScriptDir&"\settings.xns") $fn=FileReadLine($file,6) GUICreate("Xtreme Note. v1.0 ", $GUIWidth, $GUIHeight) $Edit = GUICtrlCreateEdit("", 10, 10, 630, 255) $Open = GUICtrlCreateButton("Open", 440, 270, 70, 25) $Save = GUICtrlCreateButton("Save", 530, 270, 70, 25) $About= GUICtrlCreateButton("About", 620, 270, 70, 25) $New = GUICtrlCreateButton("New", 350, 270, 70, 25) $lab=GUICtrlCreateLabel(" FILE_NAME : Untitled.txt", 10, 275, 320, 20) $lab2=GUICtrlCreateLabel("Presets", 643, 110, 320, 20) $dark=GUICtrlCreateButton(" Dark ", 650, 180, 45, 40) $light=GUICtrlCreateButton(" Light ", 650, 130, 45, 40) $font=GUICtrlCreateButton(" Font ", 650, 60, 45, 40) GUISetBkColor(FileReadLine($file,5)) GUICtrlSetBkColor($Edit, FileReadLine($file,4)) GUICtrlSetBkColor($Open, FileReadLine($file,2)) GUICtrlSetBkColor($Save, FileReadLine($file,2)) GUICtrlSetBkColor($About,FileReadLine($file,2)) GUICtrlSetBkColor($New, FileReadLine($file,2)) GUICtrlSetBkColor($dark, $COLOR_BLACK) GUICtrlSetBkColor($light, 0xDFEEFC) GUICtrlSetBkColor($font, FileReadLine($file,2)) GUICtrlSetColor($Edit,FileReadLine($file,1)) GUICtrlSetColor($dark, 0x00FF00) GUICtrlSetColor($Open, FileReadLine($file,3)) GUICtrlSetColor($Save, FileReadLine($file,3)) GUICtrlSetColor($About,FileReadLine($file,3)) GUICtrlSetColor($New,FileReadLine($file,3)) GUICtrlSetColor($lab, FileReadLine($file,3)) GUICtrlSetColor($lab2, FileReadLine($file,3)) GUICtrlSetColor($font,FileReadLine($file,3)) GUICtrlSetFont($Edit,FileReadLine($file,8),FileReadLine($file,10),FileReadLine($file,9),FileReadLine($file,7)) GUICtrlSetFont($Open,10, 600, "Arial") GUICtrlSetFont($Save, 10, 600, "Arial") GUICtrlSetFont($About, 10, 600, "Arial") GUICtrlSetFont($New, 10, 600, "Arial") GUICtrlSetFont($lab, 10, 600, "Arial") GUICtrlSetFont($lab2, 9, 600,4, "Arial") GUICtrlSetFont($dark, 10, 600,"Arial") GUICtrlSetFont($light, 10,600,"Arial") GUICtrlSetFont($font, 10,600,"Arial") GUISetState(@SW_SHOW ) While 1 $msg = GUIGetMsg() Select;Window Close Button Case $msg = $GUI_EVENT_CLOSE if NOT(_GUICtrlEdit_GetText($Edit)==$get) Then ;if what is written , is not saved and user wants to quit. $ch=MsgBox(3,"Attention"," Would you like to Save Changes to the Current Document before Exiting?.") if $ch=6 Then ;yes button If $flag1==-2 then ;if file has not been saved even once $saf = FileSaveDialog($msg1, @DesktopDir, "Text (*.txt)|All Files (*.*)",BitOR(2,16),"Untitled.txt") if NOT($saf=="") Then ;checks if file name has been specified or not $split = _PathSplit($saf, $sDrive, $sDir, $sFilename, $sExtension) if $split[4] = "" Then ; if extension not specified $saf=$saf&".txt" _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) Else ;Exension has been specified _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) EndIf $get=_GUICtrlEdit_GetText($Edit) FileWrite($fopen2,$get) GUIDelete() Exit Endif Else ;if file has been saved at least once $get=_GUICtrlEdit_GetText($Edit) FileClose($fopen2) $fopen2=FileOpen($saf,$FO_OVERWRITE) FileWrite($fopen2,$get) EndIf Elseif $ch=7 Then ;No button GUIDelete() Exit EndIf Else ;if no modification has been made after saving and user wants to quit GUIDelete() Exit EndIf;Save Button Case $msg = $Save IF $flag1==-1 Then ;if file has been saved at least once $get=_GUICtrlEdit_GetText($Edit) if $fopen1 Then ;if file has already been opened FileClose($fopen1) $name=$opf1 Else ;if file has already been saved $name=$saf EndIf $fopen1=FileOpen($name,$FO_OVERWRITE) FileWrite($fopen1,$get) EndIf if $flag1==-2 Then ;if file has not been saved even once $saf = FileSaveDialog($msg1, @DesktopDir, "Text (*.txt)|All Files (*.*)",BitOR(2,16)) if NOT($saf=="") Then ;checks if file name has been specified or not $split = _PathSplit($saf, $sDrive, $sDir, $sFilename, $sExtension) if $split[4] = "" Then ;if extension is not specified $saf=$saf&".txt" GUICtrlSetData($lab," FILE_NAME : "&$split[3]&".txt") _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) Else ;if extension has been specified _FileCreate($saf) GUICtrlSetData($lab," FILE_NAME : "&$split[3]&$split[4]) $fopen2=FileOpen($saf,$FO_OVERWRITE) EndIf $flag1=-1 $flag2=-1 $get=_GUICtrlEdit_GetText($Edit) FileWrite($fopen2,$get) EndIf EndIf;open button Case $msg = $Open if NOT(_GUICtrlEdit_GetText($Edit)==$get) Then ;if what is written , is not saved and user wants to open another file. $ch=MsgBox(3,"Attention"," Would you like to Save Changes to the Current Document?.") if $ch=6 Then ;Yes button If $flag1==-2 then ;if file has not been saved even once $saf = FileSaveDialog($msg1, @DesktopDir, "Text (*.txt)|All Files (*.*)",BitOR(2,16),"Untitled.txt" ) if NOT($saf=="") Then ;checks if file name has been specified or not $split = _PathSplit($saf, $sDrive, $sDir, $sFilename, $sExtension) if $split[4] = "" Then ;if extension not specified $saf=$saf&".txt" _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) Else ;if extension has been specified _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) EndIf $get=_GUICtrlEdit_GetText($Edit) FileWrite($fopen2,$get) $opf1=FileOpenDialog($msg2, @DesktopDir& "\", "Text files (*.txt)|All Files (*.*)", $FD_FILEMUSTEXIST) if NOT($opf1=="") Then ;checks if file name has been specified or not $split = _PathSplit($opf1, $sDrive, $sDir, $sFilename, $sExtension) GUICtrlSetData($lab," FILE_NAME : "&$split[3]&$split[4]) $fopen1 = FileOpen($opf1, $FO_READ) $fread = FileRead($fopen1) _GUICtrlEdit_SetText($Edit, $fread) $flag1=-1 $flag2=-1 Endif Endif Else ;if file has been saved at least once $get=_GUICtrlEdit_GetText($Edit) FileClose($fopen2) $fopen2=FileOpen($saf,$FO_OVERWRITE) FileWrite($fopen2,$get) $opf1=FileOpenDialog($msg2, @DesktopDir& "\", "Text files (*.txt)|All Files (*.*)", $FD_FILEMUSTEXIST) if NOT($opf1=="") Then ;checks if file name has been specified or not $fopen1 = FileOpen($opf1, $FO_READ) $split = _PathSplit($opf1, $sDrive, $sDir, $sFilename, $sExtension) GUICtrlSetData($lab," FILE_NAME : "&$split[3]&$split[4]) $fread = FileRead($fopen1) _GUICtrlEdit_SetText($Edit, $fread) Endif Endif Elseif $ch=7 Then ;no button $opf1=FileOpenDialog($msg2, @DesktopDir& "\", "Text files (*.txt)|All Files (*.*)", $FD_FILEMUSTEXIST) if NOT($opf1=="") Then ;checks if file name has been specified or not $fopen1 = FileOpen($opf1, $FO_READ) $fread = FileRead($fopen1) $split = _PathSplit($opf1, $sDrive, $sDir, $sFilename, $sExtension) GUICtrlSetData($lab," FILE_NAME : "&$split[3]&$split[4]) _GUICtrlEdit_SetText($Edit, $fread) $flag1=-1 $flag2=-1 EndIf EndIf Else ;If no modification has been made and user wants to open a new file $opf1=FileOpenDialog($msg2, @DesktopDir& "\", "Text files (*.txt)|All Files (*.*)", $FD_FILEMUSTEXIST) if NOT($opf1=="") Then ;checks if file name has been specified or not $flag2=-1 $flag1=-1 $split = _PathSplit($opf1, $sDrive, $sDir, $sFilename, $sExtension) GUICtrlSetData($lab," FILE_NAME : "&$split[3]&$split[4]) $fopen1 = FileOpen($opf1, $FO_READ) $fread = FileRead($fopen1) _GUICtrlEdit_SetText($Edit, $fread) $get=_GUICtrlEdit_GetText($Edit) EndIf EndIf;about button Case $msg = $About MsgBox(0, "About Xtreme Note", "Xtreme Note v1.0" & @CRLF & "Copyright 2014" & @CRLF & "Created By Xtreme Labs"& @CRLF & "Xtreme Note is Created by Kuntal Das,Xtreme Labs, Team SDK.");new button Case $msg = $New if NOT(_GUICtrlEdit_GetText($Edit)==$get) Then $ch=MsgBox(3,"Attention"," Would you like to Save Changes to the Current Document?.") if $ch=6 Then ;yes button If $flag1==-2 then ;if file has not been saved even once $saf = FileSaveDialog($msg1, @DesktopDir, "Text (*.txt)|All Files (*.*)",BitOR(2,16),"Untitled.txt" ) if NOT($saf=="") Then ;checks if file name has been specified or not $split = _PathSplit($saf, $sDrive, $sDir, $sFilename, $sExtension) if $split[4] = "" Then ;if extension not specified $saf=$saf&".txt" _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) Else ;if extension has been specified _FileCreate($saf) $fopen2=FileOpen($saf,$FO_OVERWRITE) EndIf $get=_GUICtrlEdit_GetText($Edit) FileWrite($fopen2,$get) _GUICtrlEdit_SetText($Edit, "") GUICtrlSetData($lab," FILE_NAME : "&"Untitled.txt") $flag1=-2 $flag2=-2 $opf1="" $saf="" $fopen1="" $fopen2="" $get="" Endif Else ;if file has been saved at least once $get=_GUICtrlEdit_GetText($Edit) FileClose($fopen2) $fopen2=FileOpen($saf,$FO_OVERWRITE) FileWrite($fopen2,$get) _GUICtrlEdit_SetText($Edit, "") GUICtrlSetData($lab," FILE_NAME : "&"Untitled.txt") $flag1=-2 $flag2=-2 $opf1="" $saf="" $fopen1="" $fopen2="" $get="" Endif Elseif $ch=7 Then ;no button _GUICtrlEdit_SetText($Edit, "") GUICtrlSetData($lab," FILE_NAME : "&"Untitled.txt") $flag1=-2 $flag2=-2 $opf1="" $saf="" $fopen1="" $fopen2="" $get="" EndIf Else ;if no modifications has been done _GUICtrlEdit_SetText($Edit, "") GUICtrlSetData($lab," FILE_NAME : "&"Untitled.txt") $flag1=-2 $flag2=-2 $opf1="" $saf="" $fopen1="" $fopen2="" $get="" Endif Case $msg= $dark GUISetBkColor($COLOR_BLACK) GUICtrlSetBkColor($Edit, $COLOR_BLACK) GUICtrlSetBkColor($Open, $COLOR_BLACK) GUICtrlSetBkColor($Save, $COLOR_BLACK) GUICtrlSetBkColor($About, $COLOR_BLACK) GUICtrlSetBkColor($New, $COLOR_BLACK) GUICtrlSetBkColor($font, $COLOR_BLACK) GUICtrlSetColor($Edit, 0x00FF00) _FileWriteToLine(@ScriptDir&"\settings.xns", 1,"0x00FF00", 1) GUICtrlSetColor($Open, 0x00FF00) GUICtrlSetColor($Save, 0x00FF00) GUICtrlSetColor($About, 0x00FF00) GUICtrlSetColor($New, 0x00FF00) GUICtrlSetColor($lab, 0x00FF00) GUICtrlSetColor($lab2, 0x00FF00) GUICtrlSetColor($font, 0x00FF00) _FileWriteToLine(@ScriptDir&"\settings.xns", 2,"0x000000", 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 3,"0x00FF00", 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 4,"0x000000", 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 5,"0x000000", 1) Case $msg=$light GUISetBkColor(0xF0F0F0) GUICtrlSetBkColor($Edit, 0xFFFFFF) GUICtrlSetBkColor($Open, 0xDFEEFC) GUICtrlSetBkColor($Save, 0xDFEEFC) GUICtrlSetBkColor($About,0xDFEEFC) GUICtrlSetBkColor($New, 0xDFEEFC) GUICtrlSetBkColor($font, 0xDFEEFC) GUICtrlSetColor($Edit, $COLOR_BLACK) _FileWriteToLine(@ScriptDir&"\settings.xns", 1,"0x000000", 1) GUICtrlSetColor($Open, $COLOR_BLACK) GUICtrlSetColor($Save, $COLOR_BLACK) GUICtrlSetColor($About,$COLOR_BLACK) GUICtrlSetColor($New, $COLOR_BLACK) GUICtrlSetColor($lab, $COLOR_BLACK) GUICtrlSetColor($lab2, $COLOR_BLACK) GUICtrlSetColor($font, $COLOR_BLACK) _FileWriteToLine(@ScriptDir&"\settings.xns", 2,"0xDFEEFC", 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 3,"0x000000", 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 4,"0xFFFFFF", 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 5,"0xF0F0F0", 1) Case $msg=$font $fd = _ChooseFont(FileReadLine($file,7),FileReadLine($file,8),FileReadLine($file,1),FileReadLine($file,10),FileReadLine($file,9)) If NOT @error Then $fn=-1 GUICtrlSetFont($Edit,$fd[3],$fd[1],$fd[4],$fd[2]) GUICtrlSetColor($Edit, $fd[7]) _FileWriteToLine(@ScriptDir&"\settings.xns", 1,$fd[7], 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 6,$fn, 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 7,$fd[2], 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 8,$fd[3], 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 9,$fd[1], 1) _FileWriteToLine(@ScriptDir&"\settings.xns", 10,$fd[4],1) EndIf EndSelect WEnd EndFunc Link to comment Share on other sites More sharing options...
Xkdash Posted May 29, 2015 Author Share Posted May 29, 2015 (edited) Here is the code...notepad.au3 Edited May 29, 2015 by Xkdash Forgot to mention the purpose.. Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted May 29, 2015 Moderators Share Posted May 29, 2015 What happens if you go through Control Panel>>Default Programs>>Associate File Type with a Program? "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
Xkdash Posted June 2, 2015 Author Share Posted June 2, 2015 I want a simple text file to run by double clicking on it. It should automatically open the editor and that too in edit mode. 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