主题:求助:关于EOF 和DO LOOP 结合使用的问题
OPEN "ME.DAT" FOR INPUT AS #1
OPEN "TEMP.DAT" FOR OUTPUT AS #2
CLS
10
DO UNTIL EOF(1)
INPUT #1, M, D, WK, T1, T2, T, OT, WT, MS, NS
PRINT M, D, WK, T1, T2, T, OT, WT, MS, NS
INPUT "CHANGE RECORD Y/N"; CH$
IF UCASE$(CH$) = "Y" THEN
INPUT M, D, WK, T1, T2, T, OT, WT, MS, NS
INPUT "PRESS N TO CANCLE >"; CN$
IF UCASE$(CN$) = "N" THEN
GOTO 10
ELSE
WRITE #2,M, D, T1, T2, T, OT, WT, MS, NS
END IF
END IF
LOOP
CLOSE
KILL "ME.DAT"
NAME "TEMP.DAT" AS "ME.DAT"
END
为什么会提示DO 语句是BAD FILE NAME OR NUMBER啊?
但是去掉UNTIL EOF(1)它又能运行,但无法测尾了.
还有,当我用DO UNTIL EOF() LOOP读取文件PRINT时,要EOF(3)时才能正常运行,
取0或1都会提示BAD FILE NAME OR NUMBER,什么原因啊?
有时用OPEN "TEMP.DAT" FOR OUTPUT AS #1建立新文件时,程序很小时能在文件夹里找到TEMP.DAT文件,程序多了几行语句后却没有TEMP.DAT文件,但读取打印时TEMP.DAT文件里的资料也有,就是没有发现它.
OPEN "TEMP.DAT" FOR OUTPUT AS #2
CLS
10
DO UNTIL EOF(1)
INPUT #1, M, D, WK, T1, T2, T, OT, WT, MS, NS
PRINT M, D, WK, T1, T2, T, OT, WT, MS, NS
INPUT "CHANGE RECORD Y/N"; CH$
IF UCASE$(CH$) = "Y" THEN
INPUT M, D, WK, T1, T2, T, OT, WT, MS, NS
INPUT "PRESS N TO CANCLE >"; CN$
IF UCASE$(CN$) = "N" THEN
GOTO 10
ELSE
WRITE #2,M, D, T1, T2, T, OT, WT, MS, NS
END IF
END IF
LOOP
CLOSE
KILL "ME.DAT"
NAME "TEMP.DAT" AS "ME.DAT"
END
为什么会提示DO 语句是BAD FILE NAME OR NUMBER啊?
但是去掉UNTIL EOF(1)它又能运行,但无法测尾了.
还有,当我用DO UNTIL EOF() LOOP读取文件PRINT时,要EOF(3)时才能正常运行,
取0或1都会提示BAD FILE NAME OR NUMBER,什么原因啊?
有时用OPEN "TEMP.DAT" FOR OUTPUT AS #1建立新文件时,程序很小时能在文件夹里找到TEMP.DAT文件,程序多了几行语句后却没有TEMP.DAT文件,但读取打印时TEMP.DAT文件里的资料也有,就是没有发现它.