Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 16702 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
VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

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 ...

Visual Studio
gelöst VBScript und WMI (Win32-NetworkAdapterConfiguration) (3)

Frage von MaxMoritz6 zum Thema Visual Studio ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(4)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...