Gambas文档
编译和安装
错误消息
代码片段
待办事项
废弃的组件
教程
开发环境文档
开发者文档
名词解释
如何操作
说明
维基手册
维基搜索
维基许可协议
文档
应用程序仓库
语言概览
语言索引
#Else
#Endif
#If
+INF
-INF
Abs
Access
ACos
ACosh
Alloc
AND
AND IF
Ang
APPEND
AS
Asc
ASin
ASinh
Asl
Asr
ASSERT
ATan
ATan2
ATanh
Base$
Base64$
BChg
BClr
BEGINS
Bin$
Boolean@
BREAK
BSet
BTst
BYREF
Byte@
CASE
CATCH
CBool
Cbr
CByte
CDate
Ceil
CFloat
CHGRP
CHMOD
Choose
CHOWN
Chr$
CInt
CLASS
CLong
CLOSE
Comp
CONST
CONTINUE
Conv$
COPY
Cos
Cosh
CPointer
CREATE
CREATE PRIVATE
CREATE STATIC
CShort
CSingle
CStr
CString
CVariant
Date
Date@
DateAdd
DateDiff
Day
DConv$
DEBUG
DEC
Dec
DEFAULT
Deg
DFree
DIM
Dir
DIV
DO
DOWNTO
EACH
ELSE
END
ENDIF
ENDS
END SELECT
END STRUCT
END WITH
ENUM
Eof
ERROR
ERROR TO
Eval
Even
EVENT
EXEC
Exist
Exp
Exp2
Exp10
Expm
EXPORT
EXTERN
FALSE
FAST
FAST UNSAFE
FINALLY
Fix
Float@
Floor
FLUSH
FOR
FOR EACH
Format$
Frac
Free
FromBase
FromBase64$
FromUrl$
FUNCTION
GOSUB
GOTO
Hex$
Hour
Html$
Hyp
IF
IIf
IN
INC
INCLUDE or #INCLUDE
INHERITS
INPUT
INPUT FROM
InStr
Int
Int@
Integer@
IS
IsAlnum
IsAscii
IsBlank
IsBoolean
IsDate
IsDigit
IsDir
IsFloat
IsHexa
IsInf
IsInteger
IsLCase
IsLetter
IsLong
IsLower
IsMissing
IsNaN
IsNull
IsNumber
IsPunct
IsSpace
IsUCase
IsUpper
KILL
LAST
LCase$
Left$
Len
LET
LIBRARY
LIKE
LINE INPUT
LINK
LOCK
Lof
Log
Log2
Log10
Logp
Long@
LOOP
Lsl
Lsr
LTrim$
Mag
MATCH
Max
ME
Mid$
Min
Minute
MkBool$
MkBoolean$
MkByte$
MkDate$
MKDIR
MkFloat$
MkInt$
MkInteger$
MkLong$
MkPointer$
MkShort$
MkSingle$
MOD
Month
MOVE
NEW
NEXT
NOT
Now
NULL
Oct$
Odd
ON GOSUB
ON GOTO
OPEN
OPEN MEMORY
OPEN MEMORY
OPEN NULL
OPEN PIPE
OPEN PIPE
OPEN STRING
OPTIONAL
OR
OR IF
OUTPUT
OUTPUT TO
PEEK
Pi
Pointer@
PRINT
PRIVATE
PROCEDURE
PROPERTY
PUBLIC
QUIT
Quote$
Rad
RAISE
Rand
RANDOMIZE
RDir
READ
Realloc
REPEAT
Replace$
RETURN
Right$
RInStr
RMDIR
Rnd
Rol
Ror
Round
RTrim$
Scan
SConv$
Second
SEEK
Seek
SELECT
Sgn
SHELL
Shell$
Shl
Short@
Shr
Sin
Single@
Sinh
SizeOf
SLEEP
Space$
Split
Sqr
Stat
STATIC
STEP
STOP
STOP EVENT
Str$
Str@
String$
String@
StrPtr
STRUCT
SUB
Subst$
SUPER
SWAP
Tan
Tanh
Temp$
THEN
Time
Timer
TO
Tr$
Trim$
TRUE
TRY
TypeOf
UCase$
UnBase64$
UNLOCK
Unquote$
UNTIL
Url$
USE
Val
VarPtr
WAIT
WATCH
Week
WeekDay
WEND
WHILE
WITH
WRITE
XOR
Year
本地化和翻译函数
变量声明
常量表达式
常量声明
方法声明
复数
赋值
赋值操作
行标号
结构体声明
局部变量声明
逻辑运算
枚举声明
内置集合
内置数组
使用保留字作为标识符
事件声明
事件循环
属性声明
数据类型
数据类型的二进制表示形式
数组声明
算术运算
外部函数管理
外部函数声明
语言常量
运算符优先级
专用方法
字符串操作
主题
组件
最近的修改

OPEN

Stream = OPEN FileName [ FOR [ READ | INPUT ] [ WRITE | OUTPUT ] [ CREATE | APPEND ] [ WATCH ] ]

打开一个文件读、写、创建或者追加数据。除非指定CREATE关键字,否则文件必须存在。

  • 如果指定 CREATE 关键字,创建新文件或者清空已有文件。

  • 如果指定 APPEND 关键字,文件打开后文件指针将指向文件尾。

  • 如果指定 READWRITE 关键字,非缓冲读、写文件。

  • 如果指定 INPUTOUTPUT 关键字,缓冲读、写文件。

  • 如果指定 WATCH 关键字,解释器将监视该文件。
    • 如果从文件中读取至少一个字节,那么 File_Read() 事件处理会被调用。

    • 如果向文件中写入至少一个字节,那么 File_Write() 事件处理会被调用。

如果文件成功打开,流对象被返回给Stream变量。

作为缺省,流是带缓冲的。

如果希望使用非缓冲的流,必须明确使用 READWRITE 关键字。

与其他Basic语言不同,Gambas从来不会删除使用WRITE关键字来打开的文件。 所以,如果新内容少于废弃的老文件内容,一些废弃的老文件内容会保留在新文件的尾部。 为了避免出现这样的问题,打开文件时应该包括CREATE关键字。

错误

消息 说明
禁止访问(43) 不允许对文件的访问请求, 或者路径中的某个目录的路径检索许可被拒绝, 或者文件还不存在且不允许对其父目录写访问。

指定文件是目录(46) Filename 指向的是目录。用Dir函数代替!
文件或目录不存在(45) Filename 不存在,或者路径中的某个目录不存在或是断开的符号连接。
内存不足(1) 系统运行内存不足。
设备已满(37) Filename 被创建,但是保存 Filename的 设备已没有空间给这个新文件。
非目录(49) Filename 路径中某个目录事实上不是目录。
系统错误... (42) 其他可能的系统错误:
  • 解析 Filename 时遇到太多的符号连接。

  • 进程中已经有最大数量文件打开。

  • 达到系统打开文件总数限制。

  • Filename 指向一个设备专用文件,但是对应的设备不存在。

  • 文件是命名管道,并且没有进程为了读取而打开该文件。

  • Filename 指向只读文件系统上的文件,但是有写访问请求。

  • Filename 指向正在执行的可执行映像,但是有写访问请求。

示例

' 打印文本文件内容到屏幕
    
DIM hFile AS File
DIM sLine AS String
    
hFile = OPEN "/etc/passwd" FOR INPUT
    
WHILE NOT Eof(hFile)
  LINE INPUT #hFile, sLine
  PRINT sLine
WEND

' 监视串口

DIM hFile AS File

hFile = OPEN "/dev/ttyS0" FOR READ WRITE WATCH

...

PUBLIC SUB File_Read()

  DIM iByte AS Byte

  READ #hFile, iByte
  PRINT "得到一个字节:"; iByte

END

' 读小字节序格式的BMP文件数据:

DIM hFile AS File
DIM iData AS Integer

hFile = OPEN "image.bmp" FOR INPUT
hFile.ByteOrder = gb.LittleEndian
...
READ #hFile, iData

参见