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

VBS String in Datei suchen und Nachfolgendes löschen

Frage Entwicklung

Mitglied: ph0rl2

ph0rl2 (Level 1) - Jetzt verbinden

11.08.2010, aktualisiert 10:25 Uhr, 7346 Aufrufe, 3 Kommentare

Hallo,

ich möchte folgendes realiesieren:

ich habe eine Textdatei, die beispielsweise so aussieht:
01.
asddd 
02.
asdaga 
03.
dsfas 
04.
dfas 
05.
ghasg 
06.
er 
07.
asdaf 
08.
asdsa
Jetzt suche ich nach "er" und speicher die zeilennummer in der das "er" vorkommt. In diesem Beispiel "6".
Nun möchte ich alles was nach "er" kommt löschen.

Wie kann ich mit VBS alles ab einer bestimmten Zeile löschen?
Viele Grüße und Danke
Mitglied: 76109
11.08.2010 um 10:25 Uhr
Hallo ph0rl2!

Sollte in etwa so gehen:
01.
Const Path = "E:\Test.txt" 
02.
 
03.
Dim Fso, File, Text, Suchtext 
04.
     
05.
Set Fso = CreateObject("Scripting.FileSystemObject") 
06.
 
07.
Suchtext = InputBox("Bitte Suchtext eingeben:", "Suchen") 
08.
     
09.
If Suchtext = "" Then WScript.Quit 
10.
    
11.
Text = Split(Fso.OpenTextFile(Path).ReadAll, Suchtext) 
12.
 
13.
Set File = Fso.CreateTextFile(Path) 
14.
 
15.
If UBound(Text) > 0 Then File.Write Text(0) & Suchtext Else File.Write Text(0) 
16.
 
17.
File.Close
wobei die Datei überschrieben wird.

Gruß Dieter

PS. Aha, Beitrag nochmal schnell geändert , sollte aber vom Kontext her das gleiche sein
Bitte warten ..
Mitglied: ph0rl2
11.08.2010 um 11:35 Uhr
Super funktionier bestens
Danke
Bitte warten ..
Mitglied: 76109
11.08.2010 um 11:51 Uhr
Yepp, gern geschehen

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Poweshell Script soll String ersetzen und die leere Zeile löschen (4)

Frage von Mars123 zum Thema Batch & Shell ...

VB for Applications
gelöst If exist - if not exist in .vbs - Datei (24)

Frage von Komoran12 zum Thema VB for Applications ...

VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

VB for Applications
gelöst VBS Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht (7)

Frage von Nexxudus zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Windows Server
Zertifikat am DC erneuern funktioniert nicht (14)

Frage von takvorian zum Thema Windows Server ...