CODE: [Copy to clipboard]
'QuickBASIC Program
DIM I,J$,K,L
PRINT "Spilt from copied file ";COMMAND$;"?"
OPEN LTRIM$(RTRIM$(COMMAND$)) FOR BINARY AS #1
DO UNTIL EOF(1)
GET 1,,I
GET 1,,L
I=I+L*256
INPUT "File Name:",J$
OPEN LTRIM$(RTRIM$(J$)) FOR BINARY AS #2
FOR K=1 TO I
GET 1,,I
PUT 2,,I
NEXT
CLOSE #2
LOOP
CLOSE #1
PRINT "DONE."
END
最大64k单独文件CODE: [Copy to clipboard]
'QuickBASIC Program
DIM SIZES,C
TRIMCMD$=LTRIM$(RTRIM$(COMMAND$))
OPEN TRIMCMD$ FOR BINARY AS #1
SIZES=LOF(1)
CLOSE
OPEN LEFT$(TRIMCMD$,LEN(TRIMCMD$)-3) FOR BINARY AS #1
C=SIZES AND 255
PUT 1,,C
C=(SIZES AND 65280)\256
PUT 1,,C
CLOSE
END
[