+- QB64 Phoenix Edition (https://staging.qb64phoenix.com)
+-- Forum: QB64 Rising (https://staging.qb64phoenix.com/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://staging.qb64phoenix.com/forumdisplay.php?fid=3)
+---- Forum: Utilities (https://staging.qb64phoenix.com/forumdisplay.php?fid=8)
+---- Thread: The QB64 full screen editor (/showthread.php?tid=826)
The QB64 full screen editor - eoredson - 08-29-2022
This attachment is the full screen editor for QB64:
Is a small editor in basic.
Some places from QB45 were edited for:
Dir$ - _fileexists
Redim preserve.
Adds _controlchr
Erik.
RE: The QB64 full screen editor - mnrvovrfc - 08-29-2022
Thank you for this. It works on Linux almost without changing anything, and in 64-bit.
The thing is I'm very lame about typing in full paths and I don't often have text files needed to be edited in the same directory as the executable. So I added to it to use "FileSelect$()" function which is documented here:
https://staging.qb64phoenix.com/showthread.php?tid=264
How I added to it is easy, but if a few people request it then I could post it.
Alternatively, I could have supported a special entry for input filename so it pastes from the clipboard. However, getting a full path into the clipboard could be troublesome on Linux for some reason...
RE: The QB64 full screen editor - eoredson - 08-30-2022
If you liked that then here is a code snippet which displays a filelist with date/time/filesize.
It uses FindFirst/FindNext/FindClose library function calls..
RE: The QB64 full screen editor - SpriggsySpriggs - 08-31-2022
I noticed in your "FINDDATA.BAS" file that you've also declared "FindFirstFileW" and "FindNextFileW". Were you planning on making a version that would enable usage of unicode (wide) strings?
Side note: You should change your declarations from UNSIGNED OFFSET to just OFFSET as an invalid handle return in Win32 API is a -1 but since you are currently casting them to UNSIGNED, you won't notice the failure unless you cast them back to a signed OFFSET. This would be your "FindFirstFileA/W" and "FindNextFileA/W" declarations. Typically, you'd only ever use an UNSIGNED OFFSET for a wParam in Win32.
I'd still change the UNSIGNED OFFSETs to OFFSET just for matching of the data types but it does look like INVALID_HANDLE_VALUE will be caught just fine.
RE: The QB64 full screen editor - eoredson - 08-31-2022
I have used wide Unicode filenames once in a Rename function, but all I can say is it is not easy.
Noted the _unsigned declare might be a bug in
Dim Shared hfind As _Unsigned _Offset
For an example in Unicode find attached a Rename function..
The Unicode extends ASCIIZ from 260 to 520 chars. Each Unicode is 2-byte pairs which is 256^2 or 65536 possible symbols.
Nameit2 is VBdos (no unicode)
Nameit is QB64 (has unicode)
RE: The QB64 full screen editor - SpriggsySpriggs - 09-01-2022
I've also used Unicode before with my Win32 video player. Like you say, it is not easy. It is also not fun!
RE: The QB64 full screen editor - krovit - 08-29-2023
What a wonderful community: helpful and full of imagination!
Here it is like the top hat from which the magician always pulls out some rabbit suddenly! Such a very nice thing.
Basically there is only to do some changes to manage accents and special characters.