Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Изменить регистр тегов
 
Мяу.
Требуется в htm файле иЗМЕНИТЬ регистр тегов.
Найти их получается, а дальше затык.
Поделитесь идеей, плз.
Код
Sub ww()
'strStream = [b27].Value
    strStream = "<td><b>Политов Владимир </b></td></tr></tbody></table>"
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True: objRegExp.IgnoreCase = True: objRegExp.MultiLine = False
    objRegExp.Pattern = "(<\/?[a-z]+?>)"
    'objRegExp.Pattern = "<\/?([a-z]+?)>"
    a = objRegExp.test(strStream)
    Set oMathes = objRegExp.Execute(strStream)
    strStream1 = objRegExp.Replace(strStream, UCase("$1"))
    'strStream1 = UCase(objRegExp.Replace(strStream, "#$1"))
End Sub
 
С циклами можно. Вначале oMathes переносим в массив/коллекцию/словарь. А потом из массива/коллекции/словаря делаем цикл с Substitute.
Вот именно через RegExp - ничего не могу придумать.

UPD В общем-то я не далек от истины. На СтэкОверфло подобным макаром отвечают.
Изменено: Все_просто - 2 Мар 2015 12:50:24
С уважением,
Федор/Все_просто
 
Не надо переносить. Вместо 10 строки:
Код
    For Each x In oMathes
      Mid$(strStream, x.firstindex + 1) = UCase$(Mid$(strStream, x.firstindex + 1, x.Length))
    Next
 
Благодарствую, поспособствовало.
Страницы: 1
Читают тему (гостей: 1)