  ' Save the gambas configuration file
COPY User.Home &/ ".config/gambas/gambas.conf" TO "/mnt/save/gambas.conf.save"

  DIM aMatrix AS NEW String[]
  DIM iZeile, iCount AS Integer

  iZeile = 0 
  FOR iCount = 0 TO aDatenbankArray.Max
      aMatrix.Clear
      aMatrix = Split(aDatenbankArray[iCount], "*")
      if aMatrix.Find(txtNachname.Text, 1) then 
         iDatensatzZeiger = iCount
         break
      endif
  NEXT

END ' DBInhaltInGitterAusgeben() 

  Dialog.Filter = ["Text-Dateien (*.txt)", "Alle Dateien (*.*)"]
  Dialog.Title = "Datei-Öffnen-Dialog"
  Dialog.Path = "/root/Dokumente/"
  IF Dialog.OpenFile() THEN RETURN
  'Der Open.Dialog gibt den vollständigen Pfad zur ausgewählten Datei zurück
  sSpeicherPfad = Dialog.Path
  TextArea1.Text = Conv(File.Load(Dialog.Path), System.Charset, Desktop.Charset)
  TextArea1.Text = TextArea1.Text & Dialog.Path
  'Fehlermeldung, falls die Datei nicht geöffnet werden konnte
  CATCH
  Message.Error(Dialog.Path & "nicht erreichbar.\n" & Error.Text)
  
  Quelle: http://wiki.ubuntuusers.de/Packprogramme

zip -j -e /home/hans/Desktop/pwd.zip /home/hans/Desktop/pwd.txt
unzip /home/hans/Desktop/pwd.zip -d /home/hans/Desktop
unzip -X /home/hans/Desktop/pwd.zip -d /home/hans/Desktop

Alternativen:

tar -cjf /home/hans/Desktop/pwd.tar.bz2 /home/hans/Desktop/pwd.txt
hans@ASROCK:~$ cat  /home/hans/Desktop/pwd.tar.bz2 | crypt sara > /home/hans/Desktop/pwd.tar.bz2.sec
Die Anwendung »crypt« ist momentan nicht installiert.  Um sie zu installieren, können Sie Folgendes eingeben:
sudo apt-get install mcrypt
bash: crypt: command not found
hans@ASROCK:~$ 

Entpacken mit tar xjf?

------------------------------------------------------------------------

  txtNachname.Enabled = FALSE
  txtVorname.Enabled = FALSE
  txtGebDatum.Enabled = FALSE
  txtKlausurPunkte.Enabled = FALSE
  txtTest1Punkte.Enabled = FALSE
  txtTest2Punkte.Enabled = FALSE
  txtTest3Punkte.Enabled = FALSE
  txtTest4Punkte.Enabled = FALSE
  
  btnErsterDatensatz.Enabled = FALSE
  btnDatensatzZurueck.Enabled = FALSE
  btnDatensatzVorwaerts.Enabled = FALSE
  btnLetzterDatensatz.Enabled = FALSE
  btnDatensatzSpeichern.Enabled = FALSE
  btnDatensatzLoeschen.Enabled = FALSE
  
  --------------------------------------
  
  txtNachname.Enabled = TRUE
  txtVorname.Enabled = TRUE
  txtGebDatum.Enabled = TRUE
  txtKlausurPunkte.Enabled = TRUE
  txtTest1Punkte.Enabled = TRUE
  txtTest2Punkte.Enabled = TRUE
  txtTest3Punkte.Enabled = TRUE
  txtTest4Punkte.Enabled = TRUE
  
  btnErsterDatensatz.Enabled = TRUE
  btnDatensatzZurueck.Enabled = TRUE
  btnDatensatzVorwaerts.Enabled = TRUE
  btnLetzterDatensatz.Enabled = TRUE
  btnDatensatzSpeichern.Enabled = TRUE
  btnDatensatzLoeschen.Enabled = TRUE
  
Greiner*Hagen*05.07.1963*12*12*13*12*15
Claus*Matthias*23.08.1958*12*07*N*N*N
Quast-Ludolff*Wilhelmine*01.10.1922*N*N*N*N*N
Knattermann*Peter*12.12.1995*09*08*07*11*12
Lehmann*Jens*NULL*N*N*N*N*N
Kellermann*Theo*12.08.1995*09*09*08*07*11
Möllerjün*Jörg*12.11.1995*09*11*11*11*14
Hüttermann*Tom*13.09.1994*12*03*3*5*12

Lehmann*Fritz*NULL*N*N*N*N*N
Knattermann*Peter*12.12.1995*09*08*07*11*12
Lehmann*Jens*NULL*N*N*N*N*N
Lehmann*Fritz*NULL*N*N*N*N*N
Knattermann*Peter*12.12.1995*09*08*07*11*12
Lehmann*Jens*NULL*N*N*N*N*N
Kellermann*Theo*12.08.1995*09*09*08*07*11
Möllerjün*Jörg*12.11.1995*09*11*11*11*14
Hüttermann*Tom*13.09.1994*12*03*3*5*12
Lehmann*Fritz*NULL*N*N*N*N*N
Knattermann*Peter*12.12.1995*09*08*07*11*12
Lehmann*Jens*NULL*N*N*N*N*N



Public Sub Toggle_Buttons(aflag as boolean)
     Dim hCtrl As control
     Dim aButton As Button
     For Each hctrl In Vbox1.Children
       If hctrl Is button Then
              aButton = hctrl
                  aButton.enabled = aFlag
            End If
    Next
End


PPUBLIC SUB Button5_Click()
  DIM fDatei AS File
  fDatei = OPEN Application.Path &/ "datei.txt" FOR CREATE  'Datei neu anlegen, wenn diese existierte
  ' SHELL = "cat /dev/null > " & Application.Path &/ "datei.txt" WAIT     
  ' File.Save(Application.Path &/ "datei.txt", "")  'legt eine neue leere Datei 'datei.txt' durch Überschreiben an
END


PUBLIC SUB Form_Open()

  DIM curZeiger1 AS Cursor
  
  curZeiger1 = NEW Cursor(Picture["vonrechts.png"])  
  
  
  ListView1.Mouse = Mouse.Custom  ' Cursor auf das Objekt beziehen ...
  ListView1.Cursor = curZeiger1
  
  a AS String[]
  a = Array("Anna","Anton","Toni","Max","Klaus")
  
  Inline Arrays werden offensichtlich genutzt!

Array = [ Expression [ , ... ] ]

Creates an array and returns it. 

' PUBLIC SUB Button1_Click()
' 
'   grdDatenAnzeige.Rows.Select(3, 1) ' mode = single
'   'grdDatenAnzeige.Rows.Select(3, 2) ' mode = multiple
' 
' END


