Open a generated text file in Notepad++

[matalog]

Is it possible, after generating a text file in a program, to get Notepad++ to open the text file for reading?

[Quin]

Sure, just use RunProgram()

Code: Select all

Define Filename$ = "Test.txt"
RunProgram("notepad++", Filename$, "", #PB_Program_Open)

[Marc56us]

Don't forget to enter the full path (classic mistake, if Notepad++ is not in the path)

Code: Select all

Define Filename$ = "Test.txt"
RunProgram("C:\Program Files\Notepad++\notepad++.exe", Filename$, "", #PB_Program_Open)

And if Notepad++ is the default text editor associated with .txt, then the document name is sufficient.

Code: Select all

Define Filename$ = "Test.txt"
RunProgram(Filename$, "", "", #PB_Program_Open)

[matalog]

That's brilliant. Thanks. Strangely

Code: Select all

f$=fol+"File Explorer - "+fil+".txt"
Debug f$
RunProgram("C:\Program Files\Notepad++\notepad++.exe",f$,fol,#PB_Program_Open)

tries to open the 4 parts of the string, and not the file address that the entire string points to...

If I use the

Code: Select all

f$=fol+"File Explorer - "+fil+".txt"
Debug f$
RunProgram(f$, "", "", #PB_Program_Open)

method, it opens as default fine.

[Fips]

Might be the space characters
Try

Code: Select all

f$=Chr(34) + fol+"File Explorer - "+fil+".txt" + Chr(34)
Debug f$
RunProgram("C:\Program Files\Notepad++\notepad++.exe",f$,fol,#PB_Program_Open)

[AZJIO]

Code: Select all

EnableExplicit
#ASSOCSTR_EXECUTABLE = 2
#ASSOCF_VERIFY = $40

Procedure.s AssocExe(Ext$, *Act)
    Protected Size, OutRes.s
    AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, 0, @Size)
    OutRes = Space(Size)
    If AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, @OutRes, @Size)
        OutRes = ""
    EndIf
    ProcedureReturn OutRes
EndProcedure

Define editor$
editor$ = "C:\Program Files\Notepad++\notepad++.exe"

If Not Asc(editor$) Or FileSize(editor$) < 0
	editor$ = AssocExe(".txt", 0)
	If Not Asc(editor$)
		editor$ = "notepad.exe"
	EndIf
EndIf

RunProgram(editor$, #DQUOTE$ + #PB_Compiler_File + #DQUOTE$, "")

[matalog]

Might be the space characters
Try

Code: Select all

f$=Chr(34) + fol+"File Explorer - "+fil+".txt" + Chr(34)
Debug f$
RunProgram("C:\Program Files\Notepad++\notepad++.exe",f$,fol,#PB_Program_Open)

Yes, that works, thanks.

[matalog]

Code: Select all

EnableExplicit
#ASSOCSTR_EXECUTABLE = 2
#ASSOCF_VERIFY = $40

Procedure.s AssocExe(Ext$, *Act)
    Protected Size, OutRes.s
    AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, 0, @Size)
    OutRes = Space(Size)
    If AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, @OutRes, @Size)
        OutRes = ""
    EndIf
    ProcedureReturn OutRes
EndProcedure

Define editor$
editor$ = "C:\Program Files\Notepad++\notepad++.exe"

If Not Asc(editor$) Or FileSize(editor$) < 0
	editor$ = AssocExe(".txt", 0)
	If Not Asc(editor$)
		editor$ = "notepad.exe"
	EndIf
EndIf

RunProgram(editor$, #DQUOTE$ + #PB_Compiler_File + #DQUOTE$, "")

I'm not sure I understand any of this, but why wouldn't I like a Quine?!

This a Quine isn't it?

[DarkDragon]

Code: Select all

EnableExplicit
#ASSOCSTR_EXECUTABLE = 2
#ASSOCF_VERIFY = $40

Procedure.s AssocExe(Ext$, *Act)
    Protected Size, OutRes.s
    AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, 0, @Size)
    OutRes = Space(Size)
    If AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, @OutRes, @Size)
        OutRes = ""
    EndIf
    ProcedureReturn OutRes
EndProcedure

Define editor$
editor$ = "C:\Program Files\Notepad++\notepad++.exe"

If Not Asc(editor$) Or FileSize(editor$) < 0
	editor$ = AssocExe(".txt", 0)
	If Not Asc(editor$)
		editor$ = "notepad.exe"
	EndIf
EndIf

RunProgram(editor$, #DQUOTE$ + #PB_Compiler_File + #DQUOTE$, "")

I'm not sure I understand any of this, but why wouldn't I like a Quine?!

This a Quine isn't it?

He had no text file ready, so he used the code itself. Just replace #PB_Compiler_File with your text file.

He checks whether notepad++ exists in it's default installation path, if not he tries to get the user's default text editor and if that doesn't work he uses Microsoft notepad.

[Drone]

Code: Select all

EnableExplicit
#ASSOCSTR_EXECUTABLE = 2
#ASSOCF_VERIFY = $40

Procedure.s AssocExe(Ext$, *Act)
    Protected Size, OutRes.s
    AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, 0, @Size)
    OutRes = Space(Size)
    If AssocQueryString_(#ASSOCF_VERIFY, #ASSOCSTR_EXECUTABLE, @Ext$, *Act, @OutRes, @Size)
        OutRes = ""
    EndIf
    ProcedureReturn OutRes
EndProcedure

Define editor$
editor$ = "C:\Program Files\Notepad++\notepad++.exe"

If Not Asc(editor$) Or FileSize(editor$) < 0
	editor$ = AssocExe(".txt", 0)
	If Not Asc(editor$)
		editor$ = "notepad.exe"
	EndIf
EndIf

RunProgram(editor$, #DQUOTE$ + #PB_Compiler_File + #DQUOTE$, "")

Hi.
Thank you AZJIO for the AssocExe Procedure. I needed to find the default browser... and you made it easy for me.
Drone