Open filename for Input [Encoding encoding_type ] [Lock lock_type ] as [#]filenum

filename
encoding_type
lock_type
filenum

与Open一起使用的文件模式打开一个文本文件进行阅读。

此模式允许使用Line Input #顺序读取文本行，或者使用Input #读取逗号分隔的值。

文本文件无法同时读取和写入FreeBASIC，因此如果同一文件中需要这两个功能，则必须打开两次。

filename 必须是一个字符串表达式，导致目标操作系统中没有通配符的合法文件名。该文件将在目录中寻求，除非filename 包含路径。如果文件不存在，则会发出错误。指针设置在文件的第一个字符。

Encoding_type 表示文件的Unicode Encoding，因此字符正确读取。如果省略，则默认为“ascii”编码。目前只支持小字符编码。

• "utf8",
  
• "utf16"
  
• "utf32"
  
• "ascii"（默认）
  
  

Lock_type 表示文件被锁定用于其他进程的方式，它是以下之一：

• Read - 文件可以由其他进程同时打开，但不能用于阅读
  
• Write - 文件可以由其他进程同时打开，但不能用于写入
  
• Read Write - 该文件不能被其他进程同时打开（默认）
  
  

filenum 是一个有效的FreeBASIC文件编号（范围1..255），不用于当前打开的任何其他文件。文件编号标识其余文件操作的文件。可以使用FreeFile功能找到一个免费的文件编号。

Dim ff As UByte
Dim randomvar As Integer
Dim name_str As String
Dim age_ubyte As UByte

ff = FreeFile
Input "你叫什么名字？",name_str
Input "你几岁？",age_ubyte
Open "testfile的" For Output As #ff
Write #ff, Int(Rnd(0)*42),name_str,age_ubyte
Close #ff
randomvar=0
name_str=""
age_ubyte=0

Open "testfile的" For Input As #ff
Input #ff, randomvar,name_str,age_ubyte
Close #ff

Print "随机数为：", randomvar
Print "你的名字是：" + name_str
Print "你的年龄是：" + Str(age_ubyte)

'此示例输出的文件将如下所示，
'减去当然的评论：
'23，“你的名字”，19

• Append
  
• Open
  
• Output