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

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, 7357 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
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 Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht (7)

Frage von Nexxudus 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 ...

Batch & Shell
Hochkomma im String vom Bash shell (7)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Batch & Shell ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(6)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

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

Frage von liquidbase zum Thema Voice over IP ...

Monitoring
Netzwerk-Monitoring Software (16)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Windows 10 Ordnerfreigabe (15)

Frage von Xaero1982 zum Thema Windows 10 ...