Мяу.
Требуется в htm файле иЗМЕНИТЬ регистр тегов.
Найти их получается, а дальше затык.
Поделитесь идеей, плз.
Требуется в 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 |