Set of QB64 utilities. - Printable Version

Set of QB64 utilities. - Printable Version

+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Set of QB64 utilities. (/showthread.php?tid=1587)

Pages: 1 2

RE: Set of QB64 utilities. - eoredson - 02-26-2024

So, Clippy has become a missing link? Smile

RE: Set of QB64 utilities. - eoredson - 04-26-2025

The most recent QB64 utilities project PD 11/15/2025.

Code: (Select All)
Version vD.0 r1.0a PD 04/25/2025.

  Adds custom command$ function to avoid filelist when * specified.

  Comments out some calls to SetCurrentDirectory.

Version vE.0 r1.0a PD 10/15/2025.

  Fixes trim of all calls to Read.Command$

Version vF.0 r1.0a PD 11/15/2025.

  New copyit v9.0a r9.1 updates:

    Adds /-6 Copyit switch to ignore filelist copied onto itself.

  Fixes parameter in CreateDirectory in Makdir and Newdir.

This QB64 utilities version contains a new subroutine to get the command line posted here:

Code: (Select All)
Function Read.Command$

   Declare Library

      Function GetCommandLineA%& ()

   End Declare

   Dim m As _MEM, ms As String * 1000

   a%& = GetCommandLineA

   m = _Mem(a%&, Len(ms))

   ms = _MemGet(m, m.OFFSET, String * 1000)

   If a%& Then

      cmd$ = ms

      eol = InStr(cmd$, Chr$(0))

      If eol Then

         cmd$ = Left$(cmd$, eol - 1)

      End If

      ' parse off program name.

      eol = InStr(2, cmd$, Chr$(34)) + 1

      cmd$ = Mid$(cmd$, eol)

   End If

   _MemFree m

   Read.Command$ = cmd$

End Function

Where reading commandline avoids concatanted * filelist.