Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBScript Zeichen am Ende eines Strings löschen

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

13.08.2008, aktualisiert 18:56 Uhr, 16379 Aufrufe, 3 Kommentare

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
Mitglied: AndreasHoster
13.08.2008 um 13:32 Uhr
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.
Bitte warten ..
Mitglied: bastla
13.08.2008 um 13:34 Uhr
Hallo waldgnarf!

Wenn Du Dich auf 4 Zeichen festlegen willst, dann
01.
S = Left(S, Len(S) - 4)
Wenn Du alles ab dem letzten "." entfernen willst, dann
01.
S = Left(S, InStrRev(S, ".") - 1)
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:
01.
If Len(S) >=4 Then S = Left(S, Len(S) - 4) 
02.
If InStrRev(S, ".") > 0 Then S = Left(S, InStrRev(S, ".") - 1)
Grüße
bastla
Bitte warten ..
Mitglied: waldgnarf
13.08.2008 um 18:55 Uhr
Achso geht das hatte ich nicht gefunden, Danke schön
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst In allen Textdateien eines bestimmten Pfades die Zeilen x bis Ende löschen (2)

Frage von Schloth zum Thema Batch & Shell ...

Hyper-V
Hyper-V Prüfpunkte lassen sich nicht löschen (4)

Frage von gFACEk zum Thema Hyper-V ...

Batch & Shell
gelöst Löschen von Dateien nach bestimmten Zeitmuster (8)

Frage von NetzwerkDude zum Thema Batch & Shell ...

Windows 7
gelöst Batch für User-TEMP-Ordner und Inhalte löschen (2)

Frage von planetIT2016 zum Thema Windows 7 ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
MS: Update-Server-Adressen OHNE Wildcards (16)

Frage von mrserious73 zum Thema Windows Update ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (10)

Frage von Matsushita zum Thema Microsoft Office ...

Multimedia & Zubehör
Laptop per HDMI an TV - einer geht, einer nicht (10)

Frage von dreizehneinhalb zum Thema Multimedia & Zubehör ...