msdos tools

EXTRAKT.BAS

REM programma om geinstalleerde software uit textfile te extracteren
REM written by Ad Slijkerman
REM
REM haal de filenaam van de targetfiles op
OPEN "targets.txt" FOR INPUT AS #4
DO WHILE (NOT EOF(4))
INPUT #4, targetfile$
PRINT "targetfile is "; targetfile$
INPUT "hit key", a$
REM
REM outputfilenaam creeren uit targetfile
produktfile$ = RIGHT$(targetfile$, 10)
REM
REM open het file met exe file-lijst en programma-namen
OPEN "sftwlist.txt" FOR INPUT AS #1
REM open programma-lijst-file
OPEN produktfile$ FOR OUTPUT AS #3
REM
REM haal de testvariabelen op
DO WHILE (NOT EOF(1))
INPUT #1, executable$, programmanaam$
PRINT executable$, " ", programmanaam$

REM haal de regels op
REM open het targetfile
OPEN targetfile$ FOR INPUT AS #2
DO WHILE (NOT EOF(2))
INPUT #2, inputstring$

REM string opzoeken in inputstring
zoekstring$ = executable$
strposition% = INSTR(1, inputstring$, zoekstring$)
IF (strposition%) <> 0 THEN
WRITE #3, programmanaam$
END IF
LOOP
CLOSE #2
LOOP
CLOSE #1
CLOSE #3
LOOP
CLOSE #4

Reacties & suggesties : adjes@startmail.nl