Bestanden en mappen (Apache OpenOffice Runtime-bibliotheek)
Werken met bestanden is een van de basistaken van een toepassing. De Apache OpenOffice API verschaft een groot scala aan objecten waarmee u kantoordocumenten kunt creëren, openen en aanpassen. Deze worden in detail gepresenteerd in Introductie voor de Apache OpenOffice API. Niettegenstaande dit, in sommige gevallen zult u direct het bestandssysteem moeten benaderen, zoeken in directory's of tekstbestanden bewerken. De runtime bibliotheek van Apache OpenOffice BASIC verschaft verscheidene fundamentele functies voor deze taken.
Beheren van bestanden
modus Compatibiliteit
Het argument en de functie CompatibilityMode verschaffen grotere compatibiliteit met VBA, door de werking van bepaalde functies te wijzigen. Het effect on een bepaalde functie wordt, hieronder, bij die functie beschreven.
Als een argument krijgt CompatibilityMode( waarde ) een Booleaanse waarde om de modus in te stellen of uit te schakelen. Als een functie geeft CompatibilityMode() de Booleaanse waarde van de modus terug.
CompatibilityMode( True ) 'modus instellen CompatibilityMode( False) 'modus uitschakelen Dim bModus as Boolean bModus = CompatibilityMode()
Zoeken in mappen
De functie Dir in Apache OpenOffice BASIC is verantwoordelijk voor het zoeken door mappen naar bestanden en sub-mappen. Bij het eerste verzoek dient een tekenreeks, die het pad bevat naar de mappen die moeten worden doorzocht, te worden toegewezen aan Dir als diens eerste parameter. De tweede parameter van Dir specificeert het bestand of de map waarnaar moet worden gezocht. Apache OpenOffice BASIC geeft de naam weer van de eerste map die wordt gevonden. Om het volgende item te vinden, zou de functie Dir moeten worden gevraagd zonder parameters. Als de functie Dir geen item meer vindt, geeft het een lege tekenreeks weer.
Het volgende voorbeeld toont hoe de functie Dirkan worden gebruikt om alle bestanden, die zich bevinden in één map, kunnen worden opgevraagd. De procedure slaat de individuele bestandsnamen op in de variabele AlleBestanden en geeft die dan weer in een berichtenvenster.
Sub BestandenTonen Dim VolgendBestand As String Dim AlleBestanden As String AlleBestanden = "" VolgendBestand = Dir("C:\", 0) While VolgendBestand <> "" AlleBestanden = AlleBestanden & Chr(13) & VolgendBestand VolgendBestand = Dir Wend MsgBox AlleBestanden End Sub
De 0, gebruikt in de tweede parameter in de functie Dir, zorgt er voor dat 0 alleen de namen van bestanden weergeeft en mappen worden genegeerd. De volgende parameters kunnen hier worden gespecificeerd:
- 0 : geeft normale bestanden weer
- 16 : sub-mappen
Het volgende voorbeeld is nagenoeg hetzelfde als het voorgaande voorbeeld, maar de functie Dir transporteert de waarde 16 als een parameter, welke de sub-mappen van een map weergeven in plaats van de bestandsnamen.
Sub MappenTonen Dim VolgendeMap As String Dim AlleMappen As String AlleMappen = "" VolgendeMap = Dir("C:\", 16) While VolgendeMap <> "" AlleMappen = AlleMappen & Chr(13) & VolgendeMap VolgendeMap = Dir Wend MsgBox AlleMappen End Sub
Maken en verwijderen van mappen
Apache OpenOffice BASIC verschaft de functie MkDir voor het maken van mappen.
MkDir ("C:\SubDir1")
Deze functie maakt mappen en sub-mappen. Alle benodigde mappen binnen een hiërarchie worden, indien vereist, ook gemaakt. Bijvoorbeeld: als alleen de map C:\SubDir1 bestaat, dan maakt de aanroep
MkDir ("C:\SubDir1\SubDir2\SubDir3\")
zowel de map C:\SubDir1\SubDir2 als de map C:\SubDir1\SubDir2\SubDir3.
De functie RmDir verwijdert mappen.
RmDir ("C:\SubDir1\SubDir2\SubDir3\")
Als de map mappen of bestanden bevat worden deze ook verwijderd. U zou daarom voorzichtig moeten zijn met het gebruik van RmDir.
Kopiëren, hernoemen, verwijderen en bestaan controleren van bestanden
De volgende aanroep maakt een kopie van het bestand Bron met de naam Doel:
FileCopy(Bron, Doel)
Met behulp van de volgende functie kunt u het bestand OudeNaam hernoemen naar NieuweNaam. De syntaxis met het sleutelwoord As en het feit dat er geen komma wordt gebruikt gaat terug naar de wortels van de taal BASIC.
Name OudeNaam As NieuweNaam
De volgende aanroep verwijdert het bestand Bestandsnaam. Gebruik de functie RmDir als u de gehele map (inclusief de bestanden daarin) wilt verwijderen.
Kill(Bestandsnaam)
De functie FileExists kan worden gebruikt om te controleren of een bestand bestaat:
If FileExists(Bestandsnaam) Then MsgBox "Bestand bestaat." End If
Lezen en wijzigen van eigenschappen van bestanden
Bij het werken met bestanden, is het soms belangrijk om in staat te zijn de eigenschappen van bestanden vast te stellen, de tijd dat het bestand het laatst werd gewijzigd en de lengte van het bestand.
De volgende aanroep geeft enkele eigenschappen van het bestand weer.
Dim Attr As Integer Attr = GetAttr(Bestandsnaam)
De teruggegeven waarde wordt verschaft als een bit-masker waarin de volgende waarden mogelijk zijn:
- 1 : bestand is Alleen-lezen
- 16 : naam van een map
Het volgende voorbeeld bepaalt het bit-masker van het bestand test.txt en controleert of het Alleen-lezen is of dat het een map is. Als geen van beide van toepassing is, wordt de tekenreeks "normaal" toegewezen aan BestandsOmschrijving.
Dim BestandsMasker As Integer Dim BestandsOmschrijving As String BestandsMasker = GetAttr("test.txt") If (BestandsMasker AND 1) > 0 Then BestandsOmschrijving = BestandsOmschrijving & " alleen-lezen " End IF If (BestandsMasker AND 16) > 0 Then BestandsOmschrijving = BestandsOmschrijving & " map " End IF If BestandsOmschrijving = "" Then BestandsOmschrijving = " normaal " End IF MsgBox BestandsOmschrijving
De functie SetAttr maakt het mogelijk de eigenschappen van een bestand te wijzigen. De volgende aanroep kan daarom worden gebruikt om een bestand te voorzien van de status Alleen-lezen:
SetAttr("test.txt", 1)
Een bestaande status Alleen-lezen kan wordne verwijderd met de volgende aanroep:
SetAttr("test.txt", 0)
De datum en tijd van de laatste wijziging in een bestand worden verschaft door de functie FileDateTime. De datum wordt hier opgemaakt overeenkomstig de land-specifieke instellingen die worden gebruikt op het systeem.
FileDateTime("test.txt") ' Geeft de datum en tijd van de laatste wijziging aan ' het bestand.
De functie FileLen bepaalt de lengte van een bestand in bytes (als long integer waarde).
FileLen("test.txt") ' Geeft de lengte van het bestand in bytes
Writing and Reading Text Files
Apache OpenOffice Basic provides a whole range of methods for reading and writing files. The following explanations relate to working with text files (not text documents).
Writing Text Files
Before a text file is accessed, it must first be opened. To do this, a free file handle is needed, which clearly identifies the file for subsequent file access.
The FreeFile function is used to create a free file handle:
FileNo = FreeFile
FileNo is an integer variable that receives the file handle. The handle is then used as a parameter for the Open instruction, which opens the file.
To open a file so that it can be written as a text file, the Open call is:
Open Filename For Output As #FileNo
Filename is a string containing the name of the file. FileNo is the handle created by the FreeFile function.
Once the file is opened, the Print instruction can create the file contents, line by line:
Print #FileNo, "This is a test line."
FileNo also stands for the file handle here. The second parameter specifies the text that is to be saved as a line of the text file.
Once the writing process has been completed, the file must be closed using a Close call:
Close #FileNo
Again here, the file handle should be specified.
The following example shows how a text file is opened, written, and closed:
Dim FileNo As Integer Dim CurrentLine As String Dim Filename As String Filename = "c:\data.txt" ' Define file name FileNo = FreeFile ' Establish free file handle Open Filename For Output As #FileNo ' Open file (writing mode) Print #FileNo, "This is a line of text" ' Save line Print #FileNo, "This is another line of text" ' Save line Close #FileNo ' Close file
Reading Text Files
Text files are read in the same way that they are written. The Open instruction used to open the file contains the For Input expression in place of the For Output expression and, rather than the Print command for writing data, the Line Input instruction should be used to read the data.
Finally, when calling up a text file, the eof instruction is used to check whether the end of the file has been reached:
eof(FileNo)
The following example shows how a text file can be read:
Dim FileNo As Integer Dim CurrentLine As String Dim File As String Dim Msg as String ' Define filename Filename = "c:\data.txt" ' Establish free file handle FileNo = Freefile ' Open file (reading mode) Open Filename For Input As FileNo ' Check whether file end has been reached Do While not eof(FileNo) ' Read line Line Input #FileNo, CurrentLine If CurrentLine <>"" then Msg = Msg & CurrentLine & Chr(13) end if Loop ' Close file Close #FileNo Msgbox Msg
The individual lines are retrieved in a Do While loop, saved in the Msg variable, and displayed at the end in a message box.
Content on this page is licensed under the Public Documentation License (PDL). |