Seite 1 von 1
[gelöst]Separator Semikolon, kein Komma
Verfasst: Mi, 15.12.2021 17:10
von little fingers
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?...
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
Liebe Grüße Ingo
Re: Separator Semikolon, kein Komma
Verfasst: Mi, 15.12.2021 17:55
von craig22
Hallo Ingo,
ich öffne eine CSV-Datei z.B. so:
Code: Alles auswählen
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
' das erste Token (
59) der Filteroptionen gibt den Datenfeld-Separator an:
' Semikolon =
59
mFileProps(1).Name = "FilterOptions" : mFileProps(1).Value = "
59,34,76,1,,0,false,true,true,false"
Re: Separator Semikolon, kein Komma
Verfasst: Mi, 15.12.2021 19:11
von little fingers
Hallo Craig!
Vielen Dank für die Info!
klappt!!
Wo finde ich denn die Filteroptionen zum Nachlesen??
Liebe Grüße Ingo
Re: Separator Semikolon, kein Komma
Verfasst: Mi, 15.12.2021 19:18
von craig22
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/Docume ... er_Options
https://de.wikipedia.org/wiki/CSV_(Date ... atenfelder und nachfolgende Links...
Re: Separator Semikolon, kein Komma
Verfasst: Mi, 15.12.2021 21:31
von Stephan
Wo finde ich denn die Filteroptionen zum Nachlesen??
4.2.1 Importing other Formats in:
https://www.openoffice.org/api/basic/ma ... torial.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: Alles auswählen
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
Gruß
Stephan
Re: Separator Semikolon, kein Komma
Verfasst: Fr, 17.12.2021 16:04
von little fingers
Danke Euch allen!!
Gruss Ingo