Filer og mapper

Programmering i Apache OpenOffice BASIC

{{{parttitle}}}

[[{{{PrevPart}}}|< Previous Section ]]

[[{{{NextPart}}}|Next Section >]]

• Språket Apache OpenOffice BASIC

• Oversikt
• Variabler
• Strenger
• Tall
• Boolsk
• Dato
• Tabeller
• Synlighet (scope)
• Konstanter
• Operatorer
• Flytkontroll
• Gjentakelser
• Prosedyrer og funksjoner
• Feilhandtering
• Annet

• Runtime-bibliotek

• Konvertering
• Strenger
• Dato og tid
• Filer og mapper
• Brukerdialoger
• Annet

• Apache OpenOffice API

• UNO (Universal Network Objects)
• Egenskaper og metoder (API)
• Moduler, tjenester og grensesnitt
• Arbeid med UNO
• Grensesnitt

• Brukerveiledning

• Skrivebordet (Star Desktop)
• Maler (template)

• Tekstdokument (Writer)

• Struktur
• Endring
• Mer enn tekst

• Regneark (Calc)

• Struktur
  • Rader og kolonner
  • Celler og Områder (Range)
  • Formattering
• Endring

• Tegninger (Draw)

• Tegningens strukturi
• Endre tegneobjekt
• Presentasjoner

• Diagrammer

• Diagram i regneark
• Diagrammets struktur
• Diagram, ulike typer

• Database (Base)

• SQL, Structured Query Language
• Tilgang
• Datakilder
• Databasetilgang

• Dialoger mot bruker

• Arbeide med dialoger
• Egenskaper
• Hendelser
• GUI-elementer

• Forms

• Bruk av forms
• GUI-kontroller
• Database forms

< Previous Page

Next Page >

Ofte må programmet innom mapper og filer. For programmering mot dokument ordnes dette med indirekte hjelp av Apache OpenOffice sitt API. Ellers har man i Basic egne funksjoner for direkte tilgang mot filsystemet.

Angivelse av filbane

Parameter "m" angir en bane. Det kan være absolutt (starter med roten, som i "C:\Window" eller "/usr/home" i UNIX) eller relativ (i forhold til den mappe Apache OpenOffice "står i", d.v.s. har som "current working directory"). Videre kan "m" inneholde ? for å angi at hvilket som helst tegn tillates i denne posisjon. Hvis "m" avsluttes med "*" betyr det at hva som helst tillates som avslutning.

Traversering av mappetre

Mapper er organisert i et tre. Med Dir(m,x) starter en traversering av det treet som starter i mappe m, som i eksempelet under:

Sub visFiler
  Dim nesteFil As String
  Dim alleFiler As String
 
  alleFiler = ""
  nesteFil = Dir("C:\", 0)
 
  While nesteFil  <> ""
    alleFiler = alleFiler & Chr(13) &  nesteFil ' legg inn linjeskift
    nesteFil = Dir()
  Wend
 
  MsgBox alleFiler
End Sub

Dir() uten argument gir neste fil (eller mappe). Dir (m) gir første fil i Apache OpenOffice sin gjeldende mappe. Dir (m,0) ber om kun filer i m, Dir (m,16) ber om kun mapper i m. Vil en liste kun mapper kan en f.eks.:

Sub visMapper
  Dim nesteMappe As String
  Dim alleMapper As String
 
  alleMapper = ""
  nesteMappe = Dir("C:\", 16)
 
  While nesteMappe <> ""
    alleMapper = alleMapper & Chr(13) &  nesteMappe
    nesteMappe = Dir()
  Wend
 
  MsgBox AllDirs
End Sub

Operasjon mot mapper

• MkDir(m) oppretter m og eventuelle mellom-mapper som ikke fins
• RmDir(m) fjerner mappe "m" og tilliggende mapper og filer renskes bort
• FileCopy(fra, til) kopierer en fil
• Name OldName As NewName vil gi nytt navn
• Kill(m) fjerner en fil (ikke mappe)
• FileExists(f) er boolsk, True hvis f finnes
• getAttr(f) gir et Integer som avslører data om filen (1=readonly, 16=er mappe)
• setAttr(f,a) endrer f sitt attributt til a
• FileDateTime(f) gir sist filen ble endret
• FileLen(f) gir filens lengde (antall byte)

Operasjon mot fil

Skal en lese eller skrive en fil fins funksjonene:

• FreeFile: gir ledig "handle" (et Integer)
• Open f for Output as #h: Åpne fil med navn f for skriving (h er handle)
• Print #h, s: Skriver s til handle h
• Line Input #h, s: Legger neste linje fra fil med handle h, i s
• eof (h): boolsk, True hvis h er ferdig lest (nådd slutten)
• Close #h: Stenger h

Et eksempel er:

Dim FileNo As Integer
Dim CurrentLine As String
Dim Filename As String
 
Filename = "c:\klokeord.txt"
FileNo = FreeFile
Open Filename For Output As #FileNo
Print #FileNo, "Rosenborg er best"
Print #FileNo, "Molde er best"
Close #FileNo

Et eksempel på lesing av en fil:

Dim filNummer As Integer
Dim linje As String
Dim filNavn As String
Dim innhold as String
 
filnavn = "c:\visdomsord.txt"
filNummer = Freefile
 
Open filnavn For Input As filNummer
Do While not eof( filNummer )
  Line Input #filNummer, linje
  If linje <>"" then
    innhold = innhold & linje & Chr(13)
  end if
Loop
Close #filNummer
Msgbox ( innhold )

Annet

Vil en ha økt kompatibilitet med VBA anvendes "Compatibility mode" som under:

CompatibilityMode( True ) 'set mode
CompatibilityMode( False) 'clear mode
 
Dim bMode as Boolean
bMode = CompatibilityMode()

Content on this page is licensed under the Public Documentation License (PDL).