Не получается подсчитать число слов "Исполнение" на web странице. Код элемента, в котором "Исполнение" прописано приведен ниже. Еще ниже - vba код неудачной попытки подсчета
[vba]
Код
<dd class="execution current ">Исполнение</dd>"
[/vba]
[vba]
Код
Set ofCollection = IE.document.getElementsByTagName("dd") count = 0 i = 0 While i < ofCollection.Length If ofCollection(i).class = "execution" Then count = count + 1 End If i = i + 1 Wend
Не получается подсчитать число слов "Исполнение" на web странице. Код элемента, в котором "Исполнение" прописано приведен ниже. Еще ниже - vba код неудачной попытки подсчета
[vba]
Код
<dd class="execution current ">Исполнение</dd>"
[/vba]
[vba]
Код
Set ofCollection = IE.document.getElementsByTagName("dd") count = 0 i = 0 While i < ofCollection.Length If ofCollection(i).class = "execution" Then count = count + 1 End If i = i + 1 Wend
Вы подсчитываете слова "Исполнение" или всё же количество классов, начинающихся с "execution"? Если второе, то попробуйте условие проверки имени прописать как: [vba]
Код
If Left(ofCollection(i).class, 9) = "execution" Then
[/vba]
Вы подсчитываете слова "Исполнение" или всё же количество классов, начинающихся с "execution"? Если второе, то попробуйте условие проверки имени прописать как: [vba]
Код
If Left(ofCollection(i).class, 9) = "execution" Then
вроде бы соответствует решению, поэтому спрошу тут. Не подскажите, как правильно закодировать в .regexp фразу для поиска: currentPage">2< без кавычек, т.к. именно так она указана в html Заранее спасибо!
вроде бы соответствует решению, поэтому спрошу тут. Не подскажите, как правильно закодировать в .regexp фразу для поиска: currentPage">2< без кавычек, т.к. именно так она указана в html Заранее спасибо!roskoshenko
Скажем.Два в одной. Текущая страница и максимальное их количество.[vba]
Код
Function currentPage(ByVal ss) Dim Rez(1) As Integer ss = Replace(ss, Chr(34), "") Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Global = True objRegExp.IgnoreCase = True objRegExp.Pattern = "currentPage>(\d+)<" bRes = objRegExp.test(S) If bRes Then Set objMatches = objRegExp.Execute(S) Rez(0) = objMatches(0).subMatches(0) End If objRegExp.Pattern = "javascript:goToPage\((\d+)\)" bRes = objRegExp.test(S) If bRes Then Set objMatches = objRegExp.Execute(S) Rez(1) = 0 For n = 0 To objMatches.count - 1 Rez(1) = IIf(Rez(1) > objMatches(n).subMatches(0), Rez(1), objMatches(n).subMatches(0)) Next End If currentPage = Rez End Function
[/vba]
Скажем.Два в одной. Текущая страница и максимальное их количество.[vba]
Код
Function currentPage(ByVal ss) Dim Rez(1) As Integer ss = Replace(ss, Chr(34), "") Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Global = True objRegExp.IgnoreCase = True objRegExp.Pattern = "currentPage>(\d+)<" bRes = objRegExp.test(S) If bRes Then Set objMatches = objRegExp.Execute(S) Rez(0) = objMatches(0).subMatches(0) End If objRegExp.Pattern = "javascript:goToPage\((\d+)\)" bRes = objRegExp.test(S) If bRes Then Set objMatches = objRegExp.Execute(S) Rez(1) = 0 For n = 0 To objMatches.count - 1 Rez(1) = IIf(Rez(1) > objMatches(n).subMatches(0), Rez(1), objMatches(n).subMatches(0)) Next End If currentPage = Rez End Function