s="иду.налево=20110224" это ведь константа в данных примерах, c которой и идет сравнение текущей даты, а нужно прочитать файл. То есть найти в файле "иду.налево=" дата после "=" всегда будет меняться.
«s="иду.налево=20110224"» — это очередная строка, которая читается из файла. Т.е., наподобие:
Do Until objFile.AtEndOfStream
s = objFile.ReadLine
…Лучше сравнивать даты с помощью встроенных функций.
Мне кажется, что результат CStr(Now) существенно зависит от языковых настроек в системе. Лучше сравнивать даты с помощью встроенных функций.
]]>s="иду.налево=20110224"
Set objRegExp = CreateObject("VBScript.RegExp") 'создается объект регулярных выражений
objRegExp.IgnoreCase = True 'независимость от регистра символов
objRegExp.Pattern = "^иду.налево=(\d{4})(\d\d)(\d\d)"
If objRegExp.Test(s) Then
a = CStr(Now)
b = Mid(a,1,2)&Mid(a,4,2)&Mid(a,7,4)
Set q = objRegExp.Execute(s).Item(0).Submatches
e = q.Item(2)&q.Item(1)&q.Item(0)
If e = b Then
MsgBox "Даты совпали"
Else
MsgBox "Даты не совпали"
End If
Else
MsgBox "Строки со словами 'иду.налево' не найдена"
End Ifs = "иду.налево=20110224"
p = InStr(s, "=")
if p = 1 then
WScript.Echo "Nothing"
WScript.Quit
end if
sdate = Mid(s, p + 1, 8)
y = Left(sdate, 4)
m = Mid(sdate, 5, 2)
d = Right(s, 2)
d1 = CDate(y & "/" & m & "/" & d)
d2 = Now
WScript.Echo d1
WScript.Echo d2
WScript.Echo DateDiff("d", d1, d2)Мне кажется, что такие вещи решаются с помощью регулярных выражений. Код становится гораздо компактнее и понятнее.
]]>sdate = "20110224"
sday = Right(sdate, 2)Так как строка всегда имеет строгий формат, в конце всегда стоит день. В принципе мне достаточно будет сравнить текущий день с днем в строке и если отличаются то сгенерить некое событие. Не знаю можно ли сравнивать только день.
То есть прочитать вторую строчку, как то так что ли)) (не знаю как прочитать именно вторую строку и именно последние два символа)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("С:\test.txt", ForReading)
Const ForReading = 1
Dim arrFileLines()
i = 0
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For [b]second [/b] strLine in arrFileLines
sdate = "иду.налево=20101221"
sday = Right(sdate, 2)
NextМожет кому-то придет в голову интересное решение.
Буду признателен за любую помощь.
А вот как распарсить? то есть передать CDate не всю строку, а символы начиная с 15 например? Сам формат файла и количество символов в нем не меняется.
]]>Это возможно сделать средствами VBS? у меня наибольшее затруднение вызывают 3 и 4-ый пункт. Подскажите куда копать. Спасибо.
]]>