VB Script soll text Datei nach einem Wort durchsuchen
Habe ein VB Script erstellt was eine exe Startet (Festplattenüberprüfung) u. danach eine txt Datei erstellt.
Ich will, wenn in dieser Text Datei das Wort "Not aligned" auftaucht soll mir das Script eine Meldung geben "Your Disk is not Aligned, pleace aligned the Disk"
Bitte um unterstützung
Hier das Script
Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
'Informationsfenster mit dem "!"
Msgbox "Advanced Format Prüfung wurde erfolgreich durchgeführt und eine Log Datei in C:\test.txt angelegt. Bitte bestätigen um fortzufahren", vbInformation
'Festplatten werden i. Hintergrund geprüft und es wird eine log Datei "test.txt" angelegt
WshShell.Run "%comspec% /k c:\diskat.exe > test.txt", 0, True
Ich will, wenn in dieser Text Datei das Wort "Not aligned" auftaucht soll mir das Script eine Meldung geben "Your Disk is not Aligned, pleace aligned the Disk"
Bitte um unterstützung
Hier das Script
Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
'Informationsfenster mit dem "!"
Msgbox "Advanced Format Prüfung wurde erfolgreich durchgeführt und eine Log Datei in C:\test.txt angelegt. Bitte bestätigen um fortzufahren", vbInformation
'Festplatten werden i. Hintergrund geprüft und es wird eine log Datei "test.txt" angelegt
WshShell.Run "%comspec% /k c:\diskat.exe > test.txt", 0, True
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 193999
Url: https://administrator.de/forum/vb-script-soll-text-datei-nach-einem-wort-durchsuchen-193999.html
Ausgedruckt am: 18.06.2025 um 06:06 Uhr
4 Kommentare
Neuester Kommentar
Hallo Yuecell und willkommen im Forum!
Sieh Dir die Funktion "
Außerdem ist es wenig elegant, für das Ergebnis eigens eine Textdatei (falls sie nur dem Ermitteln der Ausgabe dienen sollte) zu erstellen - wie es anders ginge, zeigen Dir die Scripting Guys ...
... und wie Du eine vernünftige Formatierung (auch nachträglich) von gepostetem Code erreichen kannst, findest Du hier beschrieben.
Grüße
bastla
P.S.: "Habe eiin VBScript" ist eine etwas ungewöhnliche Begrüßung (relativiert sich aber durch das, was am Ende Deiner Frage (also nach "0, True" steht) ...
Sieh Dir die Funktion "
InStr()" an.Außerdem ist es wenig elegant, für das Ergebnis eigens eine Textdatei (falls sie nur dem Ermitteln der Ausgabe dienen sollte) zu erstellen - wie es anders ginge, zeigen Dir die Scripting Guys ...
... und wie Du eine vernünftige Formatierung (auch nachträglich) von gepostetem Code erreichen kannst, findest Du hier beschrieben.
Grüße
bastla
P.S.: "Habe eiin VBScript" ist eine etwas ungewöhnliche Begrüßung (relativiert sich aber durch das, was am Ende Deiner Frage (also nach "0, True" steht) ...
Hi Bastla,
danke für deine Antwort...
hättest du evtl. ein paar Beispiele?
bin noch neu i. VB Scripting
Danke
danke für deine Antwort...
hättest du evtl. ein paar Beispiele?
bin noch neu i. VB Scripting
Danke
Hallo Yuecell!
Abgesehen davon, dass das verlinkte Script ja ziemlich genau für Deinen Zweck passt: Beispiele wofür?
Grüße
bastla
Abgesehen davon, dass das verlinkte Script ja ziemlich genau für Deinen Zweck passt: Beispiele wofür?
Grüße
bastla
Hab es gelöst....
' Textdatei durchsuchen
Const ForReading = 1
txt = "NOT aligned"
found = false
Set objTextFile = objFSO.OpenTextFile("C:\Windows\logs\DiskatResult.txt", ForReading)
Do While objTextFile.AtEndOfStream <> True
If InStr(objTextFile.Readline, txt) <> 0 Then
found = true
End If
Loop
If found Then
wscript.echo "PLEACE aligned your DISK and check the File C:\Windows\logs\DiskatResult.txt"
End If
' Textdatei durchsuchen
Const ForReading = 1
txt = "NOT aligned"
found = false
Set objTextFile = objFSO.OpenTextFile("C:\Windows\logs\DiskatResult.txt", ForReading)
Do While objTextFile.AtEndOfStream <> True
If InStr(objTextFile.Readline, txt) <> 0 Then
found = true
End If
Loop
If found Then
wscript.echo "PLEACE aligned your DISK and check the File C:\Windows\logs\DiskatResult.txt"
End If
