HIDE: Difference between revisions
Jump to navigation
Jump to search
Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
No edit summary |
No edit summary |
||
Line 14: | Line 14: | ||
{{PageExamples}} | {{PageExamples}} | ||
''Example:'' Subprogram that displays long and short filenames using the DIR /X option | ''Example:'' Subprogram that displays long and short filenames using the DIR /X option in SCREEN 12: | ||
{{CodeStart}} | {{CodeStart}} | ||
{{Cl|SCREEN}} {{Text|12|#F580B1}} | {{Cl|SCREEN}} {{Text|12|#F580B1}} |
Latest revision as of 23:02, 29 March 2023
The _HIDE action is used to hide the console window opened by a SHELL statement.
Syntax
- SHELL [_HIDE] StringCommandLine$
Description
- Allows any command line window to be hidden from view without affecting the program.
- _HIDE must be used when sending ("piping") screen information to a file.
- Note: Some commands may not work without adding CMD /C to the start of the command line.
Examples
Example: Subprogram that displays long and short filenames using the DIR /X option in SCREEN 12:
SCREEN 12 LFN END SUB LFN IF LEN(ENVIRON$("OS")) = 0 THEN EXIT SUB ' /X not available Win 9X and ME SHELL _HIDE "cmd /c dir /x > DOS-DATA.INF" ' load display data to a file OPEN "DOS-DATA.INF" FOR INPUT AS #1 IF LOF(1) THEN Header$ = SPACE$(10) + "Short" + SPACE$(16) + "Long" + SPACE$(20) + "Last Modified" tmp$ = "\ \ \ \ &" ' print using template format COLOR 14: LOCATE 2, 4: PRINT Header$ DO UNTIL EOF(1) LINE INPUT #1, line$ IF LEN(line$) AND MID$(line$, 1, 1) <> SPACE$(1) THEN ' ignore other file data cnt% = cnt% + 1 last$ = MID$(line$, 1, 17): DIR$ = MID$(line$, 23, 3) IF MID$(line$, 37, 1) <> SPACE$(1) THEN ' found line with short and long name SHFN$ = MID$(line$, 37, INSTR(37, line$, SPACE$(1)) - 1) LGFN$ = MID$(line$, 50) ELSE: SHFN$ = MID$(line$, 50): LGFN$ = "" ' found short name only END IF IF cnt% MOD 24 = 0 THEN ' pause every 24 files COLOR 14: LOCATE 28, 27: PRINT "Press a key for more files!" DO: _LIMIT 30: LOOP UNTIL INKEY$ <> "" CLS: COLOR 14: LOCATE 2, 4: PRINT Header$ END IF COLOR 11: LOCATE (cnt% MOD 24) + 3, 4 PRINT USING tmp$; DIR$; SHFN$; LGFN$ LOCATE (cnt% MOD 24) + 3, 58: PRINT last$ END IF LOOP END IF COLOR 10: LOCATE CSRLIN + 1, 27: PRINT "Total folders and files ="; cnt% CLOSE #1 END SUB |
Explanation: The above routine can also be used to place the file name info into string arrays by using the count variable cnt% to determine the index. Long file names are normally returned by QB64. To keep older QBasic programs compatible, you may want to only use the short names when displaying the files on the screen.
See also
- SHELL, _DONTWAIT
- FILELIST$ (function) (FILES function, member-contributed)