Gambas/文件

返回 Gambas

文件操作

请参阅官方 wiki：http://gambaswiki.org/wiki/lang/open

例如，你可以阅读一些文本文件。

使用 Gambas 1

  ' Gambas 1
  Dim OneLine As String
  Dim FileName As String = "/home/moi/test.txt"
  Dim hFile As File

  OPEN FileName FOR READ AS #hFile
  WHILE NOT Eof(hFile)
    LINE INPUT #hFile, OneLine
    PRINT OneLine
  WEND
  CLOSE #hFile

使用 Gambas 3 时，操作会稍微容易一点。

 ' Gambas 3
  Dim hFile As File
  Dim OneLine As String
  Dim FileName As String = "/home/moi/test.txt"

  hFile = Open FileName For Read
  While Not Eof(hFile)
    Line Input #hFile, OneLine
    Label1.Text = OneLine
  Wend
  Close #hFile