OpenOffice.info

Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sZeile As String
Dim aFile As String
Dim sMsg as String
aFile = "C:\Deine_Datei.htm"
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
	Line Input #iNumber, sZeile
	If sZeile <>"" then
		sMsg = sMsg & sZeile & chr(13)
	end if
wend
Close #iNumber
Msgbox sMsg
End Sub

In der Hilfedatei gibt es ein Beispiel, das ich etwas abgeändert habe:

[code]Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sZeile As String
Dim aFile As String
Dim sMsg as String
aFile = "C:\Deine_Datei.htm"
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sZeile
If sZeile <>"" then
sMsg = sMsg & sZeile & chr(13)
end if
wend
Close #iNumber
Msgbox sMsg
End Sub[/code]

Ich nehme an das es eine Beschränkung für den Inhalt der Datei auf 64000 Zeichen gibt, hat die Datei mehr zeichen müßtest Du den Inhalt wohl in mehr als eine Variable einlesen.


Gruß
Stephan

Hi,

Seit nun mehr 2 Tagen habe ich mich an das Projekt openoffice.org Basic herangewagt.

Nun hätte ich eine Frage zu der ich nichts finden konnte.
Ist es eventuell möglich, per ooobasic den quellcode einer Seite entweder direkt auszulesen oder diesen bsp. als Text zu speichern und dann den Txt File auszulesen?

Danke euch

Gruß
Bruno