End of text in asociated Notepad

[Lubos]

Using the RunProgram(GetCurrentDirectory () + B$ + ".txt") , I open the associated Notepad.exe. I would like it to open at the end of the text (so that the end of the text can be seen immediately). Is it possible to arrange?

[RSBasic]

Do you mean like this?

Code: Select all

EnableExplicit

Define Handle

RunProgram("notepad.exe", "D:\HTMLCode.txt", "", 0) ; <<< Change path
Delay(500)
Handle = FindWindow_("notepad", 0)
If Handle
  Handle = FindWindowEx_(Handle, 0, "Edit", 0)
  If Handle
    SendMessage_(Handle, #EM_SETSEL, $fffffff, $fffffff)
    SendMessage_(Handle, #EM_SCROLL, #SB_BOTTOM, 0)
  EndIf
EndIf

Instead of FindWindow_() you can also use EnumWindows_().

[Lubos]

Do you mean like this?

I am impressed! So fast and so perfect answer. Thank you.

[Marc56us]

There is a very old function in NotePad, it's ability to serve as a log or memo.

To do this, you must:
- Write .LOG on the first line (and nothing else) (yes dot log)
- Save the file with the extension .log

At each opening, the notepad add the date and time and positions the cursor at the end (and not at the beginning).

Try:

Code: Select all

C:\>echo .LOG > "LogFile.log"
C:\>notepad LogFile.log
Write something, save and open again

(This is not relevant, but may be useful)

[VB6_to_PBx]

There is a very old function in NotePad, it's ability to serve as a log or memo.

To do this, you must:
- Write .LOG on the first line (and nothing else) (yes dot log)
- Save the file with the extension .log

At each opening, the notepad add the date and time and positions the cursor at the end (and not at the beginning).

Try:

Code: Select all

C:\>echo .LOG > "LogFile.log"
C:\>notepad LogFile.log
Write something, save and open again

(This is not relevant, but may be useful)

thanks Marc56us , for this nice Trick !

[Lubos]

There is a very old function in NotePad, it's ability to serve as a log or memo.............

That's a really nice trick. I will use it in my NotePad reminder. Thanks.