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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 94337
Url: https://administrator.de/contentid/94337
Ausgedruckt am: 20.11.2024 um 11:11 Uhr
3 Kommentare
Neuester Kommentar
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
