[gelöst]Separator Semikolon, kein Komma

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

little fingers
***
Beiträge: 74
Registriert: Fr, 12.05.2017 15:31

[gelöst]Separator Semikolon, kein Komma

Beitrag 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
Zuletzt geändert von little fingers am Fr, 17.12.2021 16:04, insgesamt 1-mal geändert.
craig22
****
Beiträge: 135
Registriert: Mi, 19.08.2020 13:47

Re: Separator Semikolon, kein Komma

Beitrag 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"
Gruß

Craig
_____________________________________________________
WIN 10 Pro 64-Bit • LO 7.1.5.2 (x64) • AOO 4.1.8
little fingers
***
Beiträge: 74
Registriert: Fr, 12.05.2017 15:31

Re: Separator Semikolon, kein Komma

Beitrag von little fingers »

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

Liebe Grüße Ingo
craig22
****
Beiträge: 135
Registriert: Mi, 19.08.2020 13:47

Re: Separator Semikolon, kein Komma

Beitrag 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...
Gruß

Craig
_____________________________________________________
WIN 10 Pro 64-Bit • LO 7.1.5.2 (x64) • AOO 4.1.8
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Separator Semikolon, kein Komma

Beitrag 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
little fingers
***
Beiträge: 74
Registriert: Fr, 12.05.2017 15:31

Re: Separator Semikolon, kein Komma

Beitrag von little fingers »

Danke Euch allen!!
Gruss Ingo
Antworten