Поиск текста в строке
Уважаемые форумчане. Нужен VBS скрипт ищущий в текстовом файле строку, а потом в этой строке слово.
Допустим имеем файл text.txt нам известно что где то в нем есть строка которая начинается словами "Имя Сотрудника" надо найти эту строку и если в ней будут слова "Вася" или "Петя" тогда выполнить действие 1, если же в ней встретится слово "Иван" то выполнить действие 2. Заранее благодарен за помощь.
|
Пробуйте:
читать дальше »
Код:
Option Explicit
Dim strSourceFile
Dim arrContent
Dim strLine
strSourceFile = "E:\Песочница\0374\text.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
If .FileExists(strSourceFile) Then
With .OpenTextFile(strSourceFile)
arrContent = Split(.ReadAll(), vbCrLf)
.Close
End With
With WScript.CreateObject("VBScript.RegExp")
.IgnoreCase = True
For Each strLine In arrContent
.Pattern = "^Имя Сотрудника.*(Вася|Петя).*$"
If .Test(strLine) Then
WScript.Echo "действие 1"
End If
.Pattern = "^Имя Сотрудника.*Иван.*$"
If .Test(strLine) Then
WScript.Echo "действие 2"
End If
Next
End With
Else
WScript.Echo "Source file [" & strSourceFile & "] not found."
WScript.Quit 1
End If
End With
WScript.Quit 0
|
Огромное спасибо!!! Вечером буду пробовать.
|
Время: 16:01.
© OSzone.net 2001-
