Replace in LS

[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)

[Gogun_Beokz]

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

dankeschön

[diali]

Welche Variante hast Du jetzt verwendet?