3
VBScript Zeichen am Ende eines Strings löschen
Hallo,
mit Mid,Left,Right ist es nur möglich Zeichen am Anfang zu löschen oder am Anfang Stellen stehen zu lassen.
Gibt es eine Möglichkeit in VBScript die letzten 4 stellen zu löschen, wenn der String Dateinamen sind die Untereinander stehen?
STRING vor Script:
test.txt
o.txt
STRING nach Script:
test
o
Gruß waldgnarf
mit Mid,Left,Right ist es nur möglich Zeichen am Anfang zu löschen oder am Anfang Stellen stehen zu lassen.
Gibt es eine Möglichkeit in VBScript die letzten 4 stellen zu löschen, wenn der String Dateinamen sind die Untereinander stehen?
STRING vor Script:
test.txt
o.txt
STRING nach Script:
test
o
Gruß waldgnarf
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 94337
Url: https://administrator.de/contentid/94337
Printed on: April 20, 2024 at 00:04 o'clock
3 Comments
Latest comment
Was ist eigentlich am Anfang stehen lassen anderes als am Schluß zu löschen (außer der Formulierung)?
left(STRING,len(STRING)-4) löscht die letzten 4 Zeichen raus, bzw. lässt alles außer den letzten 4 Zeichen stehen.
Und produziert einen Fehler, falls der String zu kurz ist.
left(STRING,len(STRING)-4) löscht die letzten 4 Zeichen raus, bzw. lässt alles außer den letzten 4 Zeichen stehen.
Und produziert einen Fehler, falls der String zu kurz ist.
Hallo waldgnarf!
Wenn Du Dich auf 4 Zeichen festlegen willst, dann
Wenn Du alles ab dem letzten "." entfernen willst, dann
Im ersten Fall solltest Du eigentlich noch kontrollieren, ob der String mindestens 4 Zeichen lang ist, im zweiten Fall, ob es überhaupt einen "." gibt - daher jeweils verbesserter Ansatz:
Grüße
bastla
Wenn Du Dich auf 4 Zeichen festlegen willst, dann
S = Left(S, Len(S) - 4)S = Left(S, InStrRev(S, ".") - 1) If Len(S) >=4 Then S = Left(S, Len(S) - 4)
If InStrRev(S, ".") > 0 Then S = Left(S, InStrRev(S, ".") - 1) bastla
Achso geht das hatte ich nicht gefunden, Danke schön
