26 lines
722 B
Text
26 lines
722 B
Text
DIM extensions$(7)
|
|
FOR i = 1 TO 7
|
|
READ d$: extensions$(i) = d$
|
|
NEXT i
|
|
|
|
DIM filenames$(8)
|
|
FOR i = 1 TO 8
|
|
READ d$: filenames$(i) = d$
|
|
NEXT i
|
|
|
|
FOR n = 1 TO UBOUND(filenames$)
|
|
flag = 0
|
|
FOR m = 1 TO UBOUND(extensions$)
|
|
IF RIGHT$(filenames$(n), LEN(extensions$(m))) = extensions$(m) THEN
|
|
flag = 1
|
|
PRINT filenames$(n); " -> "; extensions$(m); " -> "; " true"
|
|
EXIT FOR
|
|
END IF
|
|
NEXT m
|
|
IF flag = 0 THEN PRINT filenames$(n); " -> "; "false"
|
|
NEXT n
|
|
END
|
|
|
|
DATA ".zip", ".rar", ".7z", ".gz", ".archive", ".a##", ".tar.bz2"
|
|
DATA "MyData.a##", "MyData.tar.gz", "MyData.gzip", "MyData.7z.backup"
|
|
DATA "MyData...", "MyData", "MyData_v1.0.tar.bz2", "MyData_v1.0.bz2"
|