Script Examples vbscript autoit php batch

Search for Textstring in file

(1)
Artikel
bewerten
(1)

kommt Suchtext in einer Datei vor

Const ForReading = 1
strdatei = Wscript.Arguments(0)
suche = Wscript.Arguments(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTest = objFSO.GetFile(strdatei)
If objTest.Size > 0 Then
    Set objFile = objFSO.OpenTextFile(strdatei, ForReading)
    strText = objFile.ReadAll
    objFile.Close

    found = InStr(1, strText,suche)
    if found > 0 then
      WScript.Echo "gefunden"
    End If
End If
<<< read file in vbscript vbscript - Textstellen einer Textdatei ersetzten >>>


neue Themen

Stichwortsuche auf dieser Seite:
03.09.2010 15:57 zZ 14 Leser online
Powered by cms.libe.net 2004-2010