Seite 1 von 1

zeichen anfügen hinter letztes wort

Verfasst: Di 26. Jun 2012, 18:44
von libreofficefan
Hallo,

ich möchte an die inahlte einer spalte Spalte .jpg an das ende einfügen.
Da die Spalte verschiedene Inhalte hat kann ich leider nicht suchen und ersetzen.
Gibt es da eine einfache Möglichkeit ohne Formatierungen zu ändern da es eine csv datei ist

Re: zeichen anfügen hinter letztes wort

Verfasst: Di 26. Jun 2012, 20:32
von F3K Total
Hi,
das geht sicherlich mit regulären Ausdrücken, ich kann es nicht, daher hier ein Makro für die Aufgabe:

Code: Alles auswählen

Sub S_ADD_JPG
'Vorgaben
sTabelle = "Tabelle1"
sSpalte = "A"
sText = ".jpg"
nstartrow = 1'mit Spaltenüberschrift sonst 0

osheet = thiscomponent.sheets.getbyname(sTabelle)
ocursor = osheet.createcursor
ocursor.gotoendofusedarea(false)
nrow = ocursor.RangeAddress.endrow
ocolumn = osheet.columns.getbyname(sSpalte)
aRangeAddress = ocolumn.RangeAddress
nColumn = aRangeAddress.StartColumn
for i = nstartrow to nrow
ocell = osheet.getcellbyposition(nColumn,i)
 if ocell.string > "" then
  sCellstring = ocell.string
  ocell.string = sCellstring+sText
 endif
next i

End Sub
Viel Erfolg R

Re: zeichen anfügen hinter letztes wort

Verfasst: Di 26. Jun 2012, 20:56
von libreofficefan
Hallo,

vielen Dank, wo kann ich diesen Code eingeben? *duck*

Re: zeichen anfügen hinter letztes wort

Verfasst: Di 26. Jun 2012, 21:19
von theindless
Hallo,

wenn der Text in eine neue Spalte darf, kannst du auch einfach folgendes schreiben:

=A1&".jpg"

und das nach unten ziehen.

theindless

Re: zeichen anfügen hinter letztes wort

Verfasst: Di 26. Jun 2012, 21:25
von F3K Total
... Extras/Makros/Makros verwalten/Basic ... hier in ein Modul hineinkopieren, speichern, dann ... Extras/Makros/Makro ausführen und das Makro wählen ...
Gruß R

Re: zeichen anfügen hinter letztes wort

Verfasst: Mi 27. Jun 2012, 07:24
von karolus
Hallo

→Suchen ^.*$ und ersetzen durch $0.jpg
[x]regulärer Ausdruck
[x]nur in Selektion

Karo

Re: zeichen anfügen hinter letztes wort

Verfasst: Mi 27. Jun 2012, 09:27
von libreofficefan
so viele lösungen,

vielen dank, die einfachste ist die von karo :) funzt bestens!