deutsches Forum rund um Apache OpenOffice und LibreOffice
Zum Inhalt
von kilix » Sa, 01.07.2023 13:29
Code: Alles auswählen
sSpaltenFormate="1/1/2/1/3/1"
von mikeleb » Sa, 01.07.2023 09:50
sSpaltenFormate="1/1/2/2/3/2"
aDaten(i)(2)=wert2
ergebnis=aDaten(i)(0)
sSpaltenFormate="1/1/1/2/3/2"
von kilix » Fr, 30.06.2023 22:00
von Karolus » Fr, 30.06.2023 21:42
kilix hat geschrieben: ↑Fr, 30.06.2023 21:09 Hallo, hier wäre die Datei. Aber leider kann ich sie nicht hochladen weil die Dateierweiterung csv nicht erlaubt ist. Nachdem auch txt nicht erlaubt ist habe ich sie gezipt. Aber auch damit hatte ich keinen Erfolg, ich erhielt die Meldung http-Fehler. Bitte gib mir bekannt auf welchem Weg ich dir die Datei (sie hat nur 41Kb) zukommen lassen kann.
von kilix » Fr, 30.06.2023 21:09
von mikeleb » Fr, 30.06.2023 19:04
von kilix » Do, 29.06.2023 13:21
von mikeleb » Do, 29.06.2023 10:18
'Vergleichswerte wert1=oDoc.Sheets.geByName("Parameter").getCellRangeByname("D4").value wert2=val(left(oDoc.Sheets.geByName("Parameter").getCellRangeByname("D6").string,3))+1859
'Vergleichswerte wert1=oDoc.Sheets.geByName("Parameter").getCellRangeByname("D4").value wert2=val(left(oDoc.Sheets.geByName("Parameter").getCellRangeByname("D6").string,3))+1859 msgbox "wert1: " & wert1 & chr(10) & "wert2: " & wert2
von kilix » Mi, 28.06.2023 18:25
'Daten nach Vergleichswerten durchsuchen ergebnis=0 'wenn der gesuchte Wert SiKo_ID eine Zahl ist For i=0 to ubound(aDaten) If aDaten(i)(1)=wert1 AND aDaten(i)(2)=wert2 Then ergebnis=aDaten(i)(0) End If Next oDoc.Sheets(4).getCellRangeByname("G1").value=ergebnis
von kilix » So, 18.06.2023 22:41
von mikeleb » So, 18.06.2023 21:47
von kilix » So, 18.06.2023 20:31
von mikeleb » Sa, 10.06.2023 18:02
Sub SiKo_CSV_Import 'Zugriff auf die aktuelle Datei oDoc=ThisComponent 'Vergleichswerte wert1=oDoc.Sheets.geByName("Parameter").getCellRangeByname("D4").value wert2=val(left(oDoc.Sheets.geByName("Parameter").getCellRangeByname("D6").string,3))+1859 'Öffnen der csv-Datei Dim args(1) as New com.sun.star.beans.PropertyValue args(0).Name= "FilterName" args(0).Value = "Text - txt - csv (StarCalc)" 'ASCII-Codes 44 (Komma), 32 (Leerzeichen), 9 (Tabulator) 'Mehrfachauswahl durch / trennen, z. B. 44/9 sFeldSeparator="44" 'ASCII-Codes 34 (doppelte Hochkomma), 39 (einfache Hochkomma) sTextBegrenzer="34" 'Systemzeichensatz 0 - I: Unicode (UTF.8): 76 sZeichensatz="76" 'erste einzulesende Zeile sErste="1" 'Spaltenformat für jede Spalte festlegen 'Spalte/Format/Spalte/Format/... 'Formate: 1 Standard, 2 Text, 3 Datum (MTJ), 4 Datum (TMJ), 5 Datum (JMT), 9 nicht importieren, 10 US-englisch 'nicht aufgeführte Spalten werden als Standard importiert sSpaltenFormate="1/1/2/2/3/2" args(1).Name="FilterOptions" args(1).Value =sFeldSeparator & "," & sTextBegrenzer & "," & sZeichensatz & "," & sErste & "," & sSpaltenformate 'Aktuelles Verzeichnis einlesen und Datei Sassen.csv öffnen surl = thiscomponent.url apfad = split(surl,"/") apfad(ubound(apfad)) = "sippungskopf.csv" sURL = convertToURL(join(apfad,"/")) oCSV = StarDesktop.LoadComponentFromURL(sURL, "_blank", 0, args()) '1: Auslesen der Daten in ein Array der Daten aDaten=oCSV.Sheets(0).getCellRangeByName("A2:C500").getDataArray 'CSV-Datei schließen oCSV.close(false) 'Daten nach Vergleichswerten durchsuchen ergebnis=0 'wenn der gesuchte Wert SiKo_ID eine Zahl ist For i=0 to ubound(aDaten) If aDaten(i)(1)=wert1 AND aDaten(i)(2)=wert2 Then ergebnis=aDaten(i)(0) End If Next oDoc.Sheets(4).getCellRangeByname("G1").value=ergebnis End Sub
von balu » Fr, 09.06.2023 20:03
Karolus hat geschrieben: ↑Do, 08.06.2023 08:57 Dann stell dir mal vor du bekommst diese 500Zeilen-wurst (ohne Kontext) vorgesetzt und sollst das debuggen!
Public aLabels(99) Public BtnFaHelpIcon(1) as String Sub MonatlicheFarben oHptDialog.setVisible(false) oHptDialog.isVisible(false) wait 50 '-------------------------------------------------------------------------------------------------------------------------- for lavf = 0 to 99 aLabels(lavf) = oFarbDialog.getControl("Label" & lavf +1).Model next lavf '-------------------------------------------------------------------------------------------------------------------------- iFaPal = 0 iFNa = 1 Fuellen '-------------------------------------------------------------------------------------------------------------------------- oFarbDialog.Model.PositionX = 305 oFarbDialog.Model.PositionY = 12 '-------------------------------------------------------------------------------------------------------------------------- ThisComponent.CurrentController.ColumnRowHeaders = false ThisComponent.CurrentController.ShowGrid = false '-------------------------------------------------------------------------------------------------------------------------- oLab102 = oFarbDialog.getControl("Label102").Model oLab102.backgroundcolor = BackFarbe oLab102.TextColor = FontFarbe '-------------------------------------------------------------------------------------------------------------------------- oFarbDialog.getControl("Label103").Text = " " & BackFarbName oFarbDialog.getControl("Label104").Text = " " & FontFarbName '-------------------------------------------------------------------------------------------------------------------------- odraw = oPreview.drawpage Form1 = odraw.Forms.getbyIndex(0) oFormularButton = Form1.getbyname("Schaltfläche 1") oFormularButton.BackgroundColor = BackFarbe oFormularButton.TextColor = FontFarbe oFormularButton.Label = oMonat.SelectedItem '-------------------------------------------------------------------------------------------------------------------------- oFarbDialog.getControl("Label102").Text = "Datei ist nur für" & CHR(13) & oMonat.SelectedItem & " " & oJahr.SelectedItem & CHR(13) & "gültig!" '-------------------------------------------------------------------------------------------------------------------------- oZellBereich = oPreview.getCellRangeByName("A1:G7") oZellBereich.CellBackColor = BackFarbe oZellBereich.charcolor = FontFarbe '-------------------------------------------------------------------------------------------------------------------------- oPreview.isvisible = True '-------------------------------------------------------------------------------------------------------------------------- myView4 = ThisComponent.CurrentController oSheet4 = ThisComponent.Sheets(2) myView4.setActiveSheet(oSheet4) '-------------------------------------------------------------------------------------------------------------------------- BtnFaHelpIcon(1) = "sHilfe.png" oFarbDialog.Model.GetByName("BtnHelpFarbe").ImageURL = tempInit & "/" & BtnFaHelpIcon(1) oFarbDialog.setVisible(true) oFarbDialog.isVisible(true) '-------------------------------------------------------------------------------------------------------------------------- end sub ' '########################################################################################################################### ' sub MonatlicheFarbenBeenden myView3 = ThisComponent.CurrentController oSheet3 = ThisComponent.Sheets(3) oPreview.isvisible = False myView3.setActiveSheet(oSheet3) '-------------------------------------------------------------------------------------------------------------------------- oHptDialog.Model.PositionX = 11 oHptDialog.Model.PositionY = 12 '-------------------------------------------------------------------------------------------------------------------------- BruchStatus '-------------------------------------------------------------------------------------------------------------------------- For fapin = 1 to 6 oLab300 = oHptDialog.getControl("Label" & fapin +300).Model oLab300.backgroundcolor = HintergrundFarbe oLab300.TextColor = SchriftFarbe next fapin '-------------------------------------------------------------------------------------------------------------------------- oHptDialog.getControl("Label305").Text = " " & CHR$(13) & oMonat.SelectedItem oHptDialog.getControl("Label306").Text = "Datei ist nur für" & CHR(13) & oMonat.SelectedItem & " " & oJahr.SelectedItem & CHR(13) & "gültig!" '-------------------------------------------------------------------------------------------------------------------------- for btnicoi = 1 to 9 oHptDialog.Model.GetByName(BtnHilfe(1, btnicoi)).ImageURL = tempInit & "/" & btnico(2) next btnicoi '-------------------------------------------------------------------------------------------------------------------------- oHptDialog.Model.Step = 3 End Sub ' '########################################################################################################################### ' Sub FarbeSetzen(oEvent) oLesen = oEvent.Source.Model.Name FabNr = Val(right(oLesen, len(oLesen) -5)) '-------------------------------------------------------------------------------------------------------------------------- odraw = oPreview.drawpage Form1 = odraw.Forms.getbyIndex(0) oFormularButton = Form1.getbyname("Schaltfläche 1") '-------------------------------------------------------------------------------------------------------------------------- oZellBereich = oPreview.getCellRangeByName("A1:G7") '-------------------------------------------------------------------------------------------------------------------------- if oFarbDialog.getControl("OptionButton3").Model.state = 1 Then oFarbDialog.getControl("Label102").Model.backgroundcolor = FaLi(iFaPal, FabNr -1) oZellBereich.CellBackColor = FaLi(iFaPal, FabNr -1) BackFarbe = FaLi(iFaPal, FabNr -1) BackFarbName = FaLi(iFNa, FabNr -1) oFormularButton.BackgroundColor = FaLi(iFaPal, FabNr -1) oFarbDialog.getControl("Label103").Text = " " & FaLi(iFNa, FabNr -1) '-------------------------------------------------------------------------------------------------------------------------- else if oFarbDialog.getControl("OptionButton4").Model.state = 1 Then oFarbDialog.getControl("Label102").Model.TextColor = FaLi(iFaPal, FabNr -1) oZellBereich.charcolor = FaLi(iFaPal, FabNr -1) FontFarbe = FaLi(iFaPal, FabNr -1) FontFarbName = FaLi(iFNa, FabNr -1) oFormularButton.TextColor = FaLi(iFaPal, FabNr -1) oFarbDialog.getControl("Label104").Text = " " & FaLi(iFNa, FabNr -1) end if '-------------------------------------------------------------------------------------------------------------------------- end if end sub ' '########################################################################################################################### ' Sub LabelLesen(oEvent) oLesen = oEvent.Source.Model.Name LaLe = Val(right(oLesen, len(oLesen) -5)) oFarbDialog.getControl("Label101").Text = " " & FaLi(iFNa, LaLe -1) end sub ' '######################################################################################################## ' Sub LabelOff(oEvent) oFarbDialog.getControl("Label101").Text = "" end sub ' '######################################################################################################## ' sub ArtWechseln(oEvent) oArWe = oEvent.Source.Model.Name ArtWex = Val(right(oArWe, len(oArWe) -12)) if ArtWex = 3 Then OpBu1 = 3 OpBu2 = 4 OptionenWechseln '-------------------------------------------------------------------------------------------------------------------------- else OpBu1 = 4 OpBu2 = 3 OptionenWechseln '-------------------------------------------------------------------------------------------------------------------------- end if end sub ' '######################################################################################################## ' sub PaletteWechseln(oEvent) oPaWe = oEvent.Source.Model.Name PalNr = Val(right(oPaWe, len(oPaWe) -12)) if PalNr = 2 Then OpBu1 = 2 OpBu2 = 1 OptionenWechseln '-------------------------------------------------------------------------------------------------------------------------- iFaPal = 2 iFNa = 3 Fuellen '-------------------------------------------------------------------------------------------------------------------------- else OpBu1 = 1 OpBu2 = 2 OptionenWechseln iFaPal = 0 iFNa = 1 Fuellen '-------------------------------------------------------------------------------------------------------------------------- end if end sub ' '######################################################################################################## ' sub OptionenWechseln oOptBu1 = oFarbDialog.getControl("OptionButton" & OpBu1).Model oOptBu1.backgroundcolor = FaLi(0, 2) '= "&H008000" : FaLi(1, 2) = "Grün" oOptBu1.TextColor = FaLi(0,15) '= "&Hffffff" : FaLi(1,15) = "Weiß" oOptBu2 = oFarbDialog.getControl("OptionButton" & OpBu2).Model oOptBu2.backgroundcolor = -1 oOptBu2.state = 0 oOptBu2.TextColor = 0 end sub ' '######################################################################################################## ' sub Fuellen for lafu = 0 to 99 aLabels(lafu).backgroundcolor = FaLi(iFaPal, lafu) aLabels(lafu).HelpText = " " & FaLi(iFNa, lafu) next lafu end sub ' '######################################################################################################## ' Sub FarbenDialogEnde(oEvent) oFaDiEn = oEvent.Source.Model.Name DlgEnd = Val(right(oFaDiEn, len(oFaDiEm) -13)) If DlgEnd = 1 then bruch = 0 else bruch = 1 endif oHptDialog.setVisible(true) oHptDialog.isVisible(true) oHptDialog.isActive(true) oHptDialog.isEnabled(true) WennFarbeHilfe oFarbDialog.setVisible(false) oFarbDialog.isVisible(false) MonatlicheFarbenBeenden end Sub ' '######################################################################################################## ' sub WennFarbeHilfe if oDlgFarbeHilfe.isVisible() = true then oDlgFarbeHilfe.setVisible(false) oDlgFarbeHilfe.isVisible(false) end if end sub ' '######################################################################################################## ' Sub BruchStatus if bruch = 0 then HintergrundFarbe = BackFarbe SchriftFarbe = FontFarbe '-------------------------------------------------------------------------------------------------------------------------- else HintergrundFarbe = HinterFarbe(XZaehler) SchriftFarbe = TextFarbe(XZaehler) '-------------------------------------------------------------------------------------------------------------------------- end if end sub
von kilix » Do, 08.06.2023 09:32
Nach oben