Код

Пример: href=aaa.php...<a href=index.php>Пример: href=aaa.php показывает...</a>Пример: href=aaa.php показывает...
 

Код

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "Пример: href=aaa.php...<a href=index.php>Пример: href=aaa.php показывает...</a>Пример: href=aaa.php показывает..."
objRegExp.Pattern = "(<[\s\S]*?>)|(href=[\s\S]*?\.php)"
Set objMatches = objRegExp.Execute(Str)
For Each objMatch In objMatches
    If Left(objMatch.Value, 1) <> "<" Then WScript.Echo objMatch.Value
Next
 

Код

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "Пример: href=aaa.php...<a href=index.php>Пример: href=aaa.php показывает...</a>Пример: href=aaa.php показывает..."
objRegExp.Pattern = "(?:>[^><]*?)(href=[\s\S]*?\.php)"
Set objMatches = objRegExp.Execute(Str)
For Each objMatch In objMatches
    WScript.Echo objMatch.Value
Next
 

Код

Sub MakeHelps2( psPath, psAllText)
	Set objIE = CreateObject("InternetExplorer.Application")
	objIE.Navigate psPath
	While objIE.Busy
	    Wscript.Sleep 200
	Wend

	set Document = objIE.Document
	set coll = document.all.tags("A")
	if Not IsObject(coll) Then
		exit sub
	end if
stop
	tPathDoc = Document.location.pathname
	' "/D:/Progekts/chm/OpenNET_docs/_%20No_CHM/autoconf-prog/index.html"
	tPathDocA = Split(tPathDoc,"/")
	tPathDoc1 = ""
	for i=1 To UBound(tPathDocA)-1
		tPathDoc1 = tPathDoc1 + tPathDocA(i) + "/"
	Next
	nnn = ""
	for i=0 to  coll.length-1
		set item = coll.item(i)
		nnn = nnn + item.title + vbcrlf
		'	item.href	aphy"	String
		'item.outerText	"Ссылки"	String
		'item.pathname	"D:/Progekts/chm/OpenNET_docs/_%20No_CHM/XML-web/index.html"	String
		' Мне нужен путь относительно переданного, но только файлы, следовательно:
		If Left(item.href,8) = "file:///" Then
			textRef = Replace(item.href,"file:///","")
			textRef = Replace(textRef, tPathDoc1,"")
			' теперь в textRef чистая ссылка...
			textTitle = item.outerText
			' и в принцыпе можно запускать генерацию текста
			psAllText = psAllText + GetTextArticle( textRef, textTitle, "	" )

		End If



	next
End Sub
 

Код

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "Пример1: href=aaa1.php...><a href=index.php>Пример2: href=aaa2.php показывает...</a>Пример3: href=aaa3.php показывает..."

'  вне конструкции, это значит, непосредственно слева от тебя - либо ничего, либо только закрывающая, а справа - ничего или открывающаяся, т.е. шаблон такой:
'  начало строки ИЛИ закрывающая - любые символы кроме открывающей - наша строка - любые символы, кроме закрывающей - открывающая ИЛИ конец строки
objRegExp.Pattern = "(^|>)[^<]*?(href=[^<>]*?\.php)[^>]*?(<|$)"

Set objMatches = objRegExp.Execute(Str)
For Each objMatch In objMatches
    WScript.Echo objMatch.Submatches(1)
Next