Guidance
指路人
g.yi.org
software / rapidq / Examples / File & Directory / QFiles / qfiles.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     $APPTYPE CONSOLE
     $TYPECHECK ON

     $INCLUDE "RapidQ.inc"
     $INCLUDE "QFiles.inc"
     DIM f AS LONG
     DECLARE SUB xxx

     CALL xxx
     END

     SUB xxx
      CALL fINITIALIZE: f=GetFileNum
      IF f<0 THEN PRINT "Could not get file number": EXIT SUB
      PRINT "fNum = ";STR$(f)
      fOPEN(f,"test.txt",2)
      fPOSITION(f,fSIZE(f))
      fWRITELINE(f,"This is a test")
      fCLOSE(f)
      f=GetFileNum
      IF f<0 THEN PRINT "Could not get file number": EXIT SUB
      PRINT "fNum = ";STR$(f)
      fOPEN(f,"test.txt",2)
      PRINT "fSIZE = ";STR$(fSIZE(f))
      PRINT fREADBINSTR(f,16)
      fCLOSE(f)
     END SUB

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2023-2-4  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-12-20 01:46:44