WRITE#〈文件号〉,〈输出项表列〉
用它写文件时能自动地在各数据项之间插入逗号,并给字符串 加双引号,且不在正数前面设置空格。
2020/12/10
7
用WRITE语句把数据写入文件事例
主程序: DECLARE SUB afile (nf AS STRING) DECLARE SUB wfile (tfn AS STRING) REM main program DIM tfn1 AS STRING, tfn2 AS STRING tfn1 = "c:\1101w.dat" tfn2 = "c:\1101a.dat" PRINT "(1)***": CALL w) PRINT "(2)***": CALL a) PRINT "(3)***": CALL a) DATA WAMG,M,87.5,LI,F,91,BI,M,69.3 DATA TIAN,F,99,YANG,m,98 END
1).PRINT#语句和PRINT#USING语句 PRINT#语句的格式为:
PRINT#〈文件号〉,〈输出项表列〉
PRINT#USING语句的一般格式为:
PRINT#<文件号>,USING “<输出格式字符串>”;<输出项表列>
它的使用与PRINT USING语句相似,只不过前者把数据写入外存, 后者把数据输出在屏幕上。 2).WRITE#语句 格式为:
对一个文件以某种方式打开,则只能对其作指定的操作,如用 OUTPUT打开,就只能把数据从头到尾写到文件中,而不能进行 “读”操作,只有关闭后重新以INPUT打开才能进行读数据;
举例:
OPEN “a:\bas\ti01.dat” FOR OUTPUT AS #5