69 lines
2.0 KiB
QBasic
69 lines
2.0 KiB
QBasic
|
' *** CALL_EX.BAS
|
|||
|
|
'
|
|||
|
|
DEFINT A-Z
|
|||
|
|
CONST MAXFILES = 5, ARRAYDIM = MAXFILES + 1
|
|||
|
|
DIM File$(1 TO ARRAYDIM)
|
|||
|
|
' Separate command line into arguments.
|
|||
|
|
CALL Comline (Numargs,File$(),ARRAYDIM)
|
|||
|
|
IF Numargs < 3 OR Numargs >MAXFILES THEN
|
|||
|
|
' Too many or too few files.
|
|||
|
|
PRINT "Use more than 3 and fewer than";MAXFILES;"files"
|
|||
|
|
ELSE
|
|||
|
|
' Printout list of files.
|
|||
|
|
CALL Printout(File$(),Numargs)
|
|||
|
|
END IF
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
SUB Comline(NumArgs,Args$(1),MaxArgs) STATIC
|
|||
|
|
' Subroutine to get command line and split into arguments.
|
|||
|
|
' Parameters: NumArgs : Number of args found.
|
|||
|
|
' Args$() : Array in which to return arguments.
|
|||
|
|
' MaxArgs : Maximum number of arguments
|
|||
|
|
CONST TRUE = -1, FALSE = 0
|
|||
|
|
NumArgs=0 : In=FALSE
|
|||
|
|
' Get the command line using the COMMAND$ function.
|
|||
|
|
Cl$ = COMMAND$
|
|||
|
|
L = LEN(Cl$)
|
|||
|
|
' Go through the command line a character at a time.
|
|||
|
|
FOR I = 1 TO L
|
|||
|
|
C$ = MID$(Cl$,I,1)
|
|||
|
|
'Test for a blank or tab.
|
|||
|
|
IF (C$ <> " " AND C$ <> CHR$(9)) THEN
|
|||
|
|
' Neither blank nor tab.
|
|||
|
|
' Test already inside an argument.
|
|||
|
|
IF NOT In THEN
|
|||
|
|
' You've found the start of a new argument.
|
|||
|
|
' Test for too many arguments.
|
|||
|
|
IF NumArgs=MaxArgs THEN EXIT FOR
|
|||
|
|
NumArgs=NumArgs+1
|
|||
|
|
In=TRUE
|
|||
|
|
END IF
|
|||
|
|
' Add the character to the current argument.
|
|||
|
|
Args$(NumArgs)=Args$(NumArgs)+C$
|
|||
|
|
ELSE
|
|||
|
|
' Found a blank or a tab.
|
|||
|
|
' Set "Not in an argument" flag to FALSE.
|
|||
|
|
In=FALSE
|
|||
|
|
END IF
|
|||
|
|
NEXT I
|
|||
|
|
END SUB
|
|||
|
|
|
|||
|
|
SUB Printout(F$(1),N) STATIC
|
|||
|
|
' Open target file.
|
|||
|
|
OPEN F$(N) FOR OUTPUT AS #3
|
|||
|
|
' Loop executes once for each file.
|
|||
|
|
' Copy the first N-1 files onto the Nth file.
|
|||
|
|
FOR File = 1 TO N - 1
|
|||
|
|
OPEN F$(File) FOR INPUT AS #1
|
|||
|
|
DO WHILE NOT EOF(1)
|
|||
|
|
'Read file.
|
|||
|
|
LINE INPUT #1, Temp$
|
|||
|
|
'Write data to target file.
|
|||
|
|
PRINT #3, Temp$
|
|||
|
|
PRINT Temp$
|
|||
|
|
LOOP
|
|||
|
|
CLOSE #1
|
|||
|
|
NEXT
|
|||
|
|
CLOSE
|
|||
|
|
END SUB
|
|||
|
|
|