Domino 9 und frühere Versionen > ND6: Entwicklung

Replace in LS

(1/2) > >>

Gogun_Beokz:
hi @all,

Habe folgendes Problem:

ich habe einen Textstring
z.B. 192.168.4.123 asd
nun möchte ich alle Buchstaben hinten gelöscht haben. Dazu benutze ich diese Formel

text = 192.168.14.123 fds
source = text
finda = "a"
replacea = " "
text1 = Replace(source, finda, replacea)

das a wird auch ersetzt, ich möchte aber das ganze alphabet ersetzt haben und wenn ich die Liste mit & erweitere wird garnichts ersetzt. Wäre sahne wenn mir einer helfen könnte.

MfG

G0gUn_B3okZ

Glombi:
Ich nehme an, Du arbeitetest noch an diesem Problem:
http://www.atnotes.de/index.php?topic=24497.0

Falls ja, dann solltest Du strleft( <string>, " ") nehmen.

Andreas

diali:
willst Du die Einträge ersetzen oder entfernen?

Mit Instr(text, " ") findest Du die Position des ersten Leerzeichens und kannst dann mit Left abschneiden.
text = "192.168.14.123 fds"
text1 = left(text, instr(text," ")

Thomas Schulte:
Und mit Replace würde es auch gehen wenn du das so machst ...

--- Code: --- Dim text As Variant
Dim newtext As Variant
Dim finda(4) As Variant
Dim replacea As Variant

text= Ucase("192.168.36.191 abcd")
finda(0) = "A"
finda(1) = "B"
finda(2) = "C"
finda(3) = "D"
finda(4)= " "
replacea=""
newtext= Replace(text,finda,replacea)

--- Ende Code ---

Gogun_Beokz:
Ja funzt danke ich hatte auch schon an arrays gedacht hab die dann nur falsch deklariert....naja,

dankeschön

Navigation

[0] Themen-Index

[#] Nächste Seite