OpenOffice.info

Danke Euch allen!!
Gruss Ingo

Sub ShowFilterOptions()
args = thiscomponent.getArgs()
for i = 0 to uBound(args())
   if args(i).Name = "FilterOptions" then
      inputbox "FilterOptions: ","ShowFilterOptions", args(i).Value
      exit for
   endif
next
End Sub

[quote]Wo finde ich denn die Filteroptionen zum Nachlesen??[/quote]

4.2.1 Importing other Formats in:
https://www.openoffice.org/api/basic/man/tutorial/tutorial.pdf

Du kannst die +.csv auch per Hand öffnen und die gewünschten Filtereinstellungen vormehmen und dann, wenn die csv geöffnet ist, mit diesem Makro die Einstellungen des Filters auslesen:
[code]
Sub ShowFilterOptions()
args = thiscomponent.getArgs()
for i = 0 to uBound(args())
if args(i).Name = "FilterOptions" then
inputbox "FilterOptions: ","ShowFilterOptions", args(i).Value
exit for
endif
next
End Sub[/code]


Gruß
Stephan

Hallo Ingo,

ich weiß icht mehr genau, woher ich die Informationen dazu habe.

Auf diesen Seiten bin ich heute fündig geworden:
https://wiki.openoffice.org/wiki/Documentation/DevGuide/Spreadsheets/Filter_Options
https://de.wikipedia.org/wiki/CSV_(Dateiformat)#Formatierung_der_Datenfelder und nachfolgende Links...

Hallo Craig!
Vielen Dank für die Info!
klappt!!
Wo finde ich denn die Filteroptionen zum Nachlesen??

Liebe Grüße Ingo

REM 			...................................
REM CSV-Datei öffnen
    if len(sUrl)>0 then
        dim mFileProps(2) as new com.sun.star.beans.PropertyValue
        mFileProps(0).Name = "FilterName" 	: mFileProps(0).Value = "Text - txt - csv (StarCalc)"
		' der erste Token (44) der Filteroptionen gibt den Datenfeld-Separator an:
		' Komma	= 44
		' Semikolon = 59
        mFileProps(1).Name = "FilterOptions" : mFileProps(1).Value = "59,34,76,1,,0,false,true,true,false"
		' Datei im Hintergrund öffnen
        mFileProps(2).Name = "Hidden"		: mFileProps(2).Value = False
        oDocCSV = StarDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProps())        
    end if

Hallo Ingo,

ich öffne eine CSV-Datei z.B. so:
[code]
REM ...................................
REM CSV-Datei öffnen
if len(sUrl)>0 then
dim mFileProps(2) as new com.sun.star.beans.PropertyValue
mFileProps(0).Name = "FilterName" : mFileProps(0).Value = "Text - txt - csv (StarCalc)"
' der erste Token (44) der Filteroptionen gibt den Datenfeld-Separator an:
' Komma = 44
' Semikolon = 59
mFileProps(1).Name = "FilterOptions" : mFileProps(1).Value = "59,34,76,1,,0,false,true,true,false"
' Datei im Hintergrund öffnen
mFileProps(2).Name = "Hidden" : mFileProps(2).Value = False
oDocCSV = StarDesktop.loadComponentFromURL(sUrl, "_blank", 0, mFileProps())
end if[/code]

' das erste Token ([color=#FF0000][b]59[/b][/color]) der Filteroptionen gibt den Datenfeld-Separator an:
' Semikolon = [color=#FF0000][b]59[/b][/color]
mFileProps(1).Name = "FilterOptions" : mFileProps(1).Value = "[b][color=#FF0000]59[/color][/b],34,76,1,,0,false,true,true,false"

Hi Leute!
Das Makro importiert schon die Daten ins Tabellenblatt...Soweit Super!!!
nun möchte ich aber standardmässig nicht das Komma als Seperator haben, sondern das Semikolon!
Wie müsste das aussehen?...
[quote]sub import
odoc=thiscomponent
REM odoc.Sheets.insertNewByName("neue Tabelle",odoc.Sheets.count)
otab=odoc.sheets.getByName("LStatistik")
sUrl=converttourl("V:\TXT\L-Statistik.csv")
otab.link(sUrl,"","Text - txt - csv (StarCalc)","",com.sun.star.sheet.SheetLinkMode.NORMAL)
oTab.linkmode=com.sun.star.sheet.SheetLinkMode.NONE

end Sub[/quote]

Liebe Grüße Ingo