(03-29-2023, 11:56 PM)bplus Wrote: Text Fetch still works after all these years in QB64pe.exe v 3.6

(07-21-2023, 11:13 PM)a740g Wrote:

(03-29-2023, 11:56 PM)bplus Wrote: Text Fetch still works after all these years in QB64pe.exe v 3.6

Here is the updated version of Text Fetch that works with QB64-PE 3.8 and InForm-PE. It also has an updated and simplified version of SMcNeill 's direntry.h

(07-22-2023, 01:24 AM)SMcNeill Wrote:

(07-21-2023, 11:13 PM)a740g Wrote:

(03-29-2023, 11:56 PM)bplus Wrote: Text Fetch still works after all these years in QB64pe.exe v 3.6

Here is the updated version of Text Fetch that works with QB64-PE 3.8 and InForm-PE. It also has an updated and simplified version of SMcNeill 's direntry.h

Simplified version of direntry?  Can you share it with me sometime, with a few comments about which/what you altered/expanded/simplified?

' --- DIRENTRY STUFF ---



DECLARE LIBRARY "direntry"

    ' This opens a directly for reading it's contents

    ' IMPORTANT: Call the open_dir() wrapper instead of calling this directly. open_dir() properly null-terminates the directory string

    FUNCTION __open_dir%% (dirName AS STRING)



    ' This reads a single directory entry. You can call this repeatedly

    ' It will return an empty string once all entries have been read

    ' "flags" and "fileSize" are output parameters (i.e. use a variable)

    ' If "flag" is 1 then it is a directory and 2 if it is a file

    FUNCTION read_dir$ (flags AS LONG, fileSize AS LONG)



    ' Close the directory. This must be called before open_dir() or read_dir$() can be used again

    SUB close_dir

END DECLARE



' This properly null-terminates the directory name before passing it to __load_dir()

FUNCTION open_dir%% (dirName AS STRING)

    open_dir = __open_dir(dirName + CHR$(0))

END FUNCTION



' --- DIRENTRY STUFF ---

(07-22-2023, 03:47 PM)GareBear Wrote: After I wrote this. I found out in Linux, if the text file is restrictive on who has the read/write privilege to the file then Text Fetch will not show the text in the box. I hope this helps.