Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Gogun_Beokz am 25.07.05 - 13:52:26

Titel: Replace in LS
Beitrag von: Gogun_Beokz am 25.07.05 - 13:52:26

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

Titel: Re: Replace in LS
Beitrag von: Glombi am 25.07.05 - 13:57:02

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

Titel: Re: Replace in LS
Beitrag von: diali am 25.07.05 - 14:06:45

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," ")

Titel: Re: Replace in LS
Beitrag von: Thomas Schulte am 25.07.05 - 14:10:37

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)

Titel: Re: Replace in LS
Beitrag von: Gogun_Beokz am 25.07.05 - 14:39:48

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

dankeschön

Titel: Re: Replace in LS
Beitrag von: diali am 25.07.05 - 14:44:24

Welche Variante hast Du jetzt verwendet?