OpenOffice.info

von **Edbeck** » Mi, 10.02.2016 21:13

Hallo,

habs jetzt schon geschafft. Das mit der Sicherheit hatte ich bereits verändert, ging aber trotzdem nicht.
Hab jetzt einfach deinen code kopiert.

Da in 2 Tabellen Daten standen, dachte ich du hättest mein Anliegen mißverstanden. Konnts ja auch nicht testen,
da ich das Sicherheitsproblem lösen mußte.
Aber läuft echt bestens, genauso soll es sein.
Also nochmal vielen Dank an Dich und Stephan.
Die For Schleife ist mir schon klar, die ist ja logisch, und den ASCII Code kenn ich auch.
Aber der Rest, naja.
Ist ja erst meine erste Programmierung. Jetzt werd ich mal versuchen, noch die Zahlenauswahl in Calc zu ziehen.

Schönen Gruß
Edbeck

von **mikeleb** » Mi, 10.02.2016 20:34

Hallo,

damit du das Makro starten kannst musst du die Makrosicherheit auf Mittel stellen (Extras -> Optionen -> Sicherheit). Dann wirst du beim Öffnen der Datei gefragt, ob Makros erlaubt sein sollen.
Zum Testen (und sehen, was passiert) würde ich die empfehlen im Code:

Code: Alles auswählen

Sub Main
For i = 65 To 90
  For j = 64 To 90
    If j = 64 Then
        'A-Z  
        bsk = CHR(i)
      Else
        'AA-ZZ
        bsk = CHR(i) & CHR(j)
    End If
    'msgbox bsk
    Add_HTML_AreaLink(bsk)
  Next j
Next i

End Sub

Die Schleifenparameter mal von 90 auf 67 zu setzen, also

Code: Alles auswählen

Sub Main
For i = 65 To 67
  For j = 64 To 67
    If j = 64 Then
        'A-Z  
        bsk = CHR(i)
      Else
        'AA-ZZ
        bsk = CHR(i) & CHR(j)
    End If
    'msgbox bsk
    Add_HTML_AreaLink(bsk)
  Next j
Next i

End Sub

Dann alle Zellen in Tabelle2 löschen ... und dann einfach mal das Makro "Main" starten.
Wenn du danach feststellst, dass ich dich falsch verstanden habe, dann einfach weiterfragen.

von **Edbeck** » Mi, 10.02.2016 18:18

Klar hab ich mir die Datei angeschaut, doch ich seh halt da nicht was es macht...
Nur durch testen und ändern fände ich das raus. Das geht aber grad nicht, aus Sicherheitsgründen, wie
mein PC meint.

Gruß
Edbeck

von **Stephan** » Mi, 10.02.2016 17:27

Welche Daten willst du sammeln?

ich schreibe jetzt wirklich 'mein Gott', weil es nervt, denn offensichtlich hast Du nicht einen Blick in die fertige Datei geworfen, denn dort steht ein komplett fertiges Makro drin das alles erledigt wie gewünscht.

Unterschied zu Deiner Lösung ist einzig das die Daten in Tabelle1 jeweils überschrieben werden, ABER bevor das geschieht die aktuellen Daten in Tabelle2 ans Ende angehängt werden.

Gruß
Stephan

von **Edbeck** » Mi, 10.02.2016 17:18

ich würde es etwas anders machen: Zunächst eine Link herstellen und dann die Daten auf einem 2. Tabellenblatt sammeln.

?
Welche Daten willst du sammeln?
Ich weiß nicht ob ich jetzt was falsch verstehe, aber ich denke, dass du nicht verstanden hast, was ich möchte.
Ziel: Suche nach Buchstabenkombinationen, also z.B Eingabe 1-5 im Link (muß ich dann noch ändern, Eingabe soll in Tabelle sein)
Ausgabe in Calc: Alle Zahlenkombinationen von 1 -5.

Mal Danke an Alle für eure Beteiligung.

von **Stephan** » Mi, 10.02.2016 17:08

ich lese begeistert die Möglichkeiten, die python bietet

In der Tat, so sehe ich das auch. Gleichzeitig fehlt mir die Zeit Python konzentriert zu lernen, sondern ich würde das lieber Schritt für Schritt tun anhand von Fragen die hier Thema sind und wo es sich entsprechend anbietet.

Ich würde mich also sehr freuen, wenn Du, Karolus, hier nicht nur Dein Wissen in Form von Code zur Verfügung stellen, sondern auch immer mal wieder vertiefend notwendige Grundlagen erläutern würdest.
Das Du gerade bei Python ein exzellenter Experte bist steht außer Frage, aber bitte lass uns mehr teilhaben und sein dabei geduldig (ich selbst weiß wie schwer das ist, denn ich bin auch häufig ungeduldig wenn Neulinge bei Basic nerven).

Gerade als Moderator, dem die Weiterentwicklung des Forums am Herzen liegt, würde es mich freuen wenn es hier mehr Python gäbe das so gut erläutert ist das Neulinge davon profitieren können, denn das würde das Ansehen unseres Forums weiter heben.

Gruß
Stephan

von **mikeleb** » Mi, 10.02.2016 16:44

Hallo,

ich würde es etwas anders machen: Zunächst eine Link herstellen und dann die Daten auf einem 2. Tabellenblatt sammeln.
Dazu habe ich die verschiedenen Codeschnipsel mal zusammengefügt.
Das Makro durchläuft nun alle Buchstabenkombinationen, stellt für jede einzelne einen Link in Tabelle1 her und schreibt die Daten fortlaufend auf Tabelle2.
Mit ein paar Kombinatinen habe ich es getestet, für alle wird dein Rechner 'ne Weile beschäftigt sein - also Geduld

von **Stephan** » Mi, 10.02.2016 16:25

oCellAddress = oSheet.getCellRangeByName("B3").CellAddress
ist ja da das Problem. Er schreibt immer in B3.

dann nimm statt dieser einen Zeile die folgenden Zeilen:

Code: Alles auswählen

cur = oSheet.CreateCursor
cur.GotoEndOfUsedArea(True)
tmp_row = cur.RangeAddress.EndRow
oCellAddress = oSheet.getCellByPosition(1, tmp_row + 1).CellAddress

beim ersten Durchlauf kommt da B2 'raus', falls das stört nimm z.B.:

Code: Alles auswählen

cur = oSheet.CreateCursor
cur.GotoEndOfUsedArea(True)
tmp_row = cur.RangeAddress.EndRow
If tmp_row = 0 Then tmp_row = 1
oCellAddress = oSheet.getCellByPosition(1, tmp_row + 1).CellAddress

Gruß
Stephan

von **Edbeck** » Mi, 10.02.2016 14:52

Hab den Python-Vorschlag schon versucht, naja, hatte natürlich dieselben Probleme wie alle anderen.
Bis is mal rausgefunden habe, dass das Python ist...

@Karolus
Dafür, dass ich geschrieben habe, von Programmierung keine Ahnung zu haben, ist deine Antwort respektive deine Frage

muss ich jetzt nicht kommentieren - oder?

eigentlich ein Witz. Sorry.

@Stephan

Wie muß ich goToEndOfUsedArea() einbauen?

Naja, ich möchte ja, dass die einzelnen Ergebnisse nicht überschrieben werden, sondern
dass die Ergebnisse nacheinander geschrieben werden.

oCellAddress = oSheet.getCellRangeByName("B3").CellAddress
ist ja da das Problem. Er schreibt immer in B3.

(("b3:b100") funktioniert auch nicht)
Hab schon alles mögliche versucht, klappt nicht.
kann nicht mal umstellen auf .getcellbyposition(0,0)
Wo scheiterts denn?

im konkreten Falle weiß ich nicht wie (die Prüfung ob schon Inhalt 'erzeut' wurde scheidet m.E. aus da eine 'Anfrage' auch ganz regulär ohne Inhalt sein kann weil alle Kennzeichen bereits vergeben sind)

Wait ist gut!

von **mikeleb** » Mi, 10.02.2016 14:00

Hallo,

auch wenn es nicht zum eigentliche Thread gehört: Mir geht es wie Stephan, ich lese begeistert die Möglichkeiten, die python bietet

, und komme selbst kein Schritt voran ...

Büche rund Quellen zu python gibt es ja genug, aber die Zusammenarbeit Openoffice-Python ist mir immer noch ein Rätsel

.
@Karolus: Deinen Link unter viewtopic.php?f=27&t=64426 habe ich mir mehrfach zu Gemüte geführt und festgestellt: da bin ich blutiger Anfänger und verstehe irgendwie gar nichts. Ich müsste irgendwie ein paar Schritte eher anfangen und weiß nicht wo ...

von **Stephan** » Mi, 10.02.2016 09:21

muss ich jetzt nicht kommentieren - oder?

Viele Mitleser würden sich mutmaßlich freuen zu erfahren wie das Ganze überhaupt zu benutzen ist [1], da es ja über die GUI nicht direkt möglich ist Python-Scripts zu bearbeiten.
Ich selbst scheitere auch mal wieder daran, zwar weiß ich wo die Scripts bei OO im Dateisystem stehen und kann dort ein neues Script hinzufügen, aber OO ignoriert das in der GUI beflissentlich (es wird nur ein Ordner mit dem Scriptnamen, aber unterhalb kein Script angezeigt).

[1]
wahrscheinlich ist das schon häufiger erklärt worden, aber nicht alles merkt man sich und immer wieder kommen neue Leute hinzu die bisher garkeine Chance hatten sich das zu merken

Gruß
Stephan

von **Stephan** » Mi, 10.02.2016 09:06

Kann man pro Abruf eine Pause einfügen

ja, mit Wait, das Folgende wartet 1 Sekunde:

Code: Alles auswählen

Wait 1000

oder besser die Antwort abwarten, bis die nächste Anfrage startet?

im konkreten Falle weiß ich nicht wie (die Prüfung ob schon Inhalt 'erzeut' wurde scheidet m.E. aus da eine 'Anfrage' auch ganz regulär ohne Inhalt sein kann weil alle Kennzeichen bereits vergeben sind)

Wie muß ich goToEndOfUsedArea() einbauen?

ganz normal. Ich habe es gerade überprüft und auch die Links (die ja inhaltlich Felder sind) führen zum richtigen Funktionieren von goToEndOfUsedArea(), ich weiß also nicht worauf Deine Frage zielt.

Gruß
Stephan

von **Karolus** » Di, 09.02.2016 14:57

Hallo

Code: Alles auswählen

from itertools import product
from string import ascii_uppercase as abc
print(', '.join(abc))
print(', '.join(''.join(combi) for combi in product(abc,abc)))

muss ich jetzt nicht kommentieren - oder?

von **Edbeck** » Di, 09.02.2016 10:39

Nachtrag:

Grundsätzlich scheint es zu funktionieren, zumindest gibt er mir schon verschiedene Buchstabenkombinationen aus.
Allerdings dauerts ewig bzw es geht dann gar nix mehr.
Ich vermute, die 702 nahezu gleichzeitigen Anfragen können nicht verarbeitet werden.
Kann man pro Abruf eine Pause einfügen oder besser die Antwort abwarten, bis die nächste Anfrage startet?
Ferner überschreibt er mir meine Einträge. Wie muß ich goToEndOfUsedArea() einbauen?

Gruß
Edbeck

von **Stephan** » Di, 09.02.2016 08:57

Was ich bereits geschafft habe, ist, dass ich in die URL zwei Variablen eingebaut habe.
Wenn ich diesen Variablen im Makro Werte zuweise, werden die freien Kennzeichen im Calc ausgegeben.

Verrate uns doch einmal die Webseite und welchen Code Du bisher benutzt bzw. wo dokumentiert ist wie man die URL parametrieren muss.

Gruß
Stephan

OpenOffice.info

Makro in Calc mit Buchstaben Schleife

Antwort erstellen

Ansicht erweitern Die letzten Beiträge des Themas: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife

Re: Makro in Calc mit Buchstaben Schleife