Ubuntu-Forum & Kubuntu-Forum | www.Ubuntu-Forum.de

Quellcode

I'm afraid the text stream of this file is too small to handle.

Quellcode

REM ***** ooO 2.4.1 ***** BASIC *****

Sub Main
oUCB = createUnoService("com.sun.star.ucb.SimpleFileAccess")
sValue = Dir$("/home/flo/",16)

Do
if Left (sValue, 1) <> "." and sValue <> "file:" then
msgbox(sValue)
DocDir (sValue)
end if
sValue = Dir$


Loop Until sValue = ""

End sub

Sub DocDir(Verz as String)
oUCB = createUnoService("com.sun.star.ucb.SimpleFileAccess")
Datei = "/home/flo/" + Verz + "/Datenblatt.doc"
if FileExists (Datei) then
DateiOeffnen(Datei)
end if
End Sub

Sub DateiOeffnen (dat as String)

url=converttourl(dat)
dim myFileProp as Object
dim args(0) as New com.sun.star.beans.PropertyValue
args(0).Name = "DocumentTitle"
args(0).Value = ""

oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, args)
doc2txt (dat)
odoc=thisComponent
odoc.close(false)
end sub

sub doc2txt (pfad as String)
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file://" + Left(pfad, LEN (pfad) - 4) + ".txt"
args1(1).Name = "FilterName"
args1(1).Value = "Text"
args1(2).Name = "SelectionOnly"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


end sub