' Gambas class file

Static d_soub As File
'Static je deklarace, která funguje pres vsechny Public Sub
'd_soub je promenná typu File, lze otevírat pro čtení, zápis, vymazání obsahu (Create)  

Public Sub Form_Open()
  
  d_soub = Open "/home/arnost/Dokumenty/pokus_file/soubor10.dat" For Create
  d_soub.close
  Label1.Text = " "
  
  ' prvni radek vytvori soubor - viz cesta nebo vymaze jeho obsah
  ' druhy radek soubor zavre  
  
End

Public Sub SwitchButton1_Click()
  
  If SwitchButton1.Value = True Then
    d_soub = Open "/home/arnost/Dokumenty/pokus_file/soubor10.dat" For Write
    Write #d_soub, "tak toto dalo prace;  ", 20
    d_soub.Close
    Label1.Text = "zapsal jsem"
    '   prvni radek otevre soubor pro zapis
    '   druhy radek do souboru zapise text retezu - 20 znaku
    '   treti radek zavre soubor  
  Endif
  If SwitchButton1.Value = False Then
    d_soub = Open "/home/arnost/Dokumenty/pokus_file/soubor10.dat" For Create
    Label1.Text = "smazal jsem"
    d_soub.close
  Endif
  
End


druhy priklad:

' Gambas class file

Static d_soub As File
'Static je deklarace, která funguje pres vsechny Public Sub
'd_soub je promenna typu File, lze otevírat pro čtení, zápis, vymazání obsahu (Create)
Static jmeno_soub As String

Public Sub Form_Open()
  
  jmeno_soub = "/home/arnost/Dokumenty/soubor_rw.dat"
  d_soub = Open jmeno_soub For Create
  d_soub.close
  Label1.Text = " "
  
  ' prvni radek dosadi jmeno souboru s cestou od rootu
  ' druhy radek otevre soubor pro vytvoreni, neni-li nebo vymazani obsahu  
  ' treti radek soubor zavre  
  
End

Public Sub SwitchButton1_Click()
  
  If SwitchButton1.Value = True Then
    d_soub = Open jmeno_soub For Write
    Write #d_soub, "Tak toto dalo prace!  ", 20
    d_soub.Close
    Label1.Text = "zapsal jsem"
    '   prvni radek otevre soubor pro zapis, absolutni cesta ??? nezkouseno
    '   druhy radek do souboru zapise text retezu - 20 znaku
    '   treti radek zavre soubor  
  Endif
  If SwitchButton1.Value = False Then
    d_soub = Open jmeno_soub For Create
    Label1.Text = "smazal jsem"
    d_soub.close
  Endif
  
End

Public Sub Button1_Click()
  
  Dim Text As String
  
  d_soub = Open jmeno_soub For Read
  Line Input #d_soub, Text
  Label1.Text = Text
  d_soub.close
  ' prvni radek otevre pro cteni
  ' druhy radek naplni promennou Text ze souboru, treti radek soubor  zavre   
  ' na druhem radku nelze pouzit Read misto Line Input, precetlo by to jen text v souboru, ale chybovalo v prazdnem souboru  
  
End