OpenOffice.info

Vielen lieben Dank 🙏🏻🙏🏻🦶

Ganz liebe Grüße

[quote=VerenaSchuster post_id=298753 time=1667920730 user_id=66385]
...
Ich hätte nicht gedacht, dass das so kompliziert in OpenOffice ist :-/
[/quote]

Du nutzt gerade einen Tabellenrechner und fragst nach Textmanipulation, wobei Du das Prinzip Eine Zeile=ein Datensatz aufbrichst. Das kann kompliziert werden...

Muss aber nicht sein: Bleiben wir beim Datensatz und screiben die ping-Kommandos in die dritte Spalte. (Statt herunterziehen besser den ersten Zelle schreiben, dann in alle Zellen darunter kopieren.)
Die Datei als csv mit tab als Trenner speichern und die csv-Datei in einem Texteditor wie Notepad++ öffnen.
Dort \tping durch \r\nping ersetzen und diesmal mit Dateierweiterung .bat speichern. ( Lässt sich ähnlich auch in Writer machen (\t steht für das Tabulator-Zeichen, dass als Trenner gesetzt wurde, \r\n ist das üblich Zeilenende unter DOS/Windows).

Obige Macro-Lösung würde ich nutzen, wenn ich so etwas dauernd machen muss..

Mfg, Jörn

Hier das angekündigte Makro zum einfügen von Leerzeilen (jede zweite Zeile):

Sub S_insert_rows
osheet = thiscomponent.sheets.getbyname("Tabelle1")
orows = osheet.rows
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(False)
nrow = ocursor.rangeaddress.endrow
for i = nrow to 1 step -1
orows.insertbyindex(i,1)
next i
End Sub

Nein, dazu gab es auch ein Makro in einem anderen Post hier 👍🏻👍🏻👍🏻

Ich füge es gleich noch ein. Für Mitmenschen, die ein ähnliches Problem haben, wie ich.

Ich danke Euch von Herzen und wünsche allen noch eine schöne Rest-Woche 😊

[quote="VerenaSchuster"]Mit diesem Makro funktioniert es:[/quote]
soso… die dazu nötigen Leerzeilen sind dann wohl zwischendurch vom Himmel gefallen!

Mit diesem Makro funktioniert es:

Sub LeereZellenSuchen()
oSelect=ThisComponent.CurrentSelection
oColumn=oselect.Columns
oRow=oSelect.Rows
For n= 0 To oColumn.getCount-1
For m = 0 To oRow.getCount-1
oCell=oselect.getCellByPosition (n, m)
Select Case oCell.String
Case ""
oCell.String = "ping -n 07 127.0.0.1"
End Select
next
next
End Sub

Sub Macro1

End Sub

Ich danke Euch allen und werde mich mal durch arbeiten.

Ich wünsche Euch allen einen wundervollen Abend!!!!!

=WENN(ISTGERADE(ZEILE());{"ping -n 07 127.0.0.1"|""};INDEX(A$1:B$4000;(ZEILE()+1)/2))

Oder nimm in der ersten freien Spalte fürs Beispiel D1:

[code]=WENN(ISTGERADE(ZEILE());{"ping -n 07 127.0.0.1"|""};INDEX(A$1:B$4000;(ZEILE()+1)/2))[/code]
im Formelassistenten mit aktiver [x]matrix-option

Gib im Adressfeld [color=#BF0000]D1:E8000[/color] ein & <enter> und dann [color=#BF0000]→Tabelle→Ausfüllen→unten[/color]


[quote]Ich hätte nicht gedacht, dass das so kompliziert in OpenOffice ist :-/[/quote]

Wer auf [u]diese Weise[/u] solche [u]fragwürdigen [/u]Batch-dateien produzieren möchte, sollte besser still sein!

Okay, da habe ich falsch verstanden. :oops:

Da ich für Calc jetzt keine Möglichkeit gefunden habe (ich denke, @karolus war hier schon auf dem richtigen Weg), würde ich es so lösen.
Achtung! Das ist ein [b][i]nicht-eleganter Workaround.[/i][/b] :oops:

[list][*]Du kopierst deine Spalte mit den 4000 Zeilen in den Writer [b](unformatiert).[/b] Es ergibt dann 4000 Absätze.
[*]Du hängst mit SUCHEN&ERSETZEN[b] (reguläre Ausdrücke[/b] aktivieren) an jeden Absatz einen leeren Absatz dran.
[list][*]SUCHEN: [b].+[/b]
[*]ERSETZEN: [b]&\n[/b]
ALLE ERSETZEN[/list]
[*]Du kopierst den Text (mit den alternierenden leeren Absätzen) wieder nach Calc: Einfügen als [b]unformatierter Text (FESTE BREITE)[/b] - jetzt hast du nach jedem Eintrag (bzw. mit Text gefüllter Zelle/Zeile) eine Zeile frei.
[*]Du wendest den [b]Autofilter[/b] an und zeigst nur die leeren Zellen dieser Spalte an
[*]Die leeren Zellen kannst du jetzt mit deinem ping-Text einfach füllen, dann beendest du den Autofilter wieder. Mission accomplished.
[/list]Bei einer Anzahl von ca. 10 Einträgen hat bei mir jetzt alles funktioniert. Die Calc-Experten können dir aber sicher eine elegantere Methode nennen... ;-)
Viel Erfolg!


EDIT
[quote=VerenaSchuster post_id=298753 time=1667920730 user_id=66385]Ich hätte nicht gedacht, dass das so kompliziert in OpenOffice ist :-/[/quote]
Es sollte in Calc doch eigentlich ganz einfach sein, nach jeder Zeile eine weitere Zeile einzufügen. Finde ich schon auch.

Danke, aber ich habe ja bereits beschriebene Zeilen. Bei dieser Methode klappt es nicht, dass nach jeder beschriebenen Zeile dieselbe Zeile eingefügt wird.

So ist es jetzt:

1. Mein Text in der 1. Zeile
2. Mein Text in der 2. Zeile
3. Mein Text in der 3. Zeile
4. Mein Text in der 4. Zeile

Insgesamt habe ich bereits 4.000 beschriebene Zeilen

Nun möchte ich einfach nach jeder Zeile einen gleich bleibenden Text einfügen:

So soll es danach aussehen:

1. Mein Text in der 1. Zeile
2. ping -n 07 127.0.0.1
3. Mein Text in der 3. Zeile
4. ping -n 07 127.0.0.1
5. Mein Text in der 5. Zeile
6. ping -n 07 127.0.0.1
...

Ich hätte nicht gedacht, dass das so kompliziert in OpenOffice ist :-/

[quote=VerenaSchuster post_id=298748 time=1667903998 user_id=66385]
Meine Tabelle hat ca. 4.000 Zeilen.

Es soll einfach nach jeder Zeile automatisch eine Zeile mit dem Text "ping -n 07 127.0.0.1" eingefügt werden bzw. automatisch dupliziert werden.[attachment=0]JedeZweiteZeileGleicherInhaltErsteZelle.png[/attachment][/quote]

Hallo
oben ist auch ein Link

Leider weiß ich nicht, was ich mit dem Code anstellen soll. Eine Schritt-für-Schritt-Anleitung wäre sehr hilfreich.
Das Ping dient für eine spätere Batch Datei, die aus der Tabelle entstehen soll.

Herzlichen Dank

def ping_zeilen_einfügen(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    rows= sel.Rows
    data = sel.DataArray
    new_data = []
    for row in data[:-1]:
        new_data.extend((row,("ping -c7 127.0.0.1",),))
    new_data.append(data[-1])
    undo = doc.UndoManager
    undo.enterUndoContext("Zeilen_einfügen")
    for i in range(sel.RangeAddress.EndRow,0,-1):
        rows.insertByIndex(i,1)
    sel.Spreadsheet[0:len(new_data),0].DataArray = new_data
    undo.leaveUndoContext()    

Hallo

Darf ich noch fragen weshalb dieser `ping…` 4000 mal in eine Tabellenkalkulation reingewurstelt werden soll?

[u][color=#FF0000]Selektiere A1:A4000 und:
[/color][/u]
[code]def ping_zeilen_einfügen(*_):
doc = XSCRIPTCONTEXT.getDocument()
sel = doc.CurrentSelection
rows= sel.Rows
data = sel.DataArray
new_data = []
for row in data[:-1]:
new_data.extend((row,("ping -c7 127.0.0.1",),))
new_data.append(data[-1])
undo = doc.UndoManager
undo.enterUndoContext("Zeilen_einfügen")
for i in range(sel.RangeAddress.EndRow,0,-1):
rows.insertByIndex(i,1)
sel.Spreadsheet[0:len(new_data),0].DataArray = new_data
undo.leaveUndoContext()
[/code]

[url=https://gitlab.com/jmzambon/apso]nimm apso.oxt zum organisieren von python[/url]

Herzlichen Dank schon mal.

Was meinst Du mit nach unten ziehen?

Meine Tabelle hat ca. 4.000 Zeilen.

Es soll einfach nach jeder Zeile automatisch eine Zeile mit dem Text "ping -n 07 127.0.0.1" eingefügt werden bzw. automatisch dupliziert werden.

Vielen Dank