文件合并时带个文件大小到时候再分开就好做了。
'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单独文件
合并文件：
COPY/b A.SZE+A.COM+B.SZE+B.EXE
SZE文件生成器：
'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
Last edited by defrag on 2007-2-12 at 08:16 AM ]
