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
Please also mark the comments that contributed to the solution of the article
Content-Key: 94337
Url: https://administrator.de/contentid/94337
Printed on: April 24, 2024 at 02:04 o'clock
3 Comments
Latest comment
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