RegExp pattern for retrieving data between 2 Tags

[crackoo]

Hi
I need your help about this script.
What I want to do is just get the data between the <title>Data to extracted </title> and <!-Mfunc->Data to be extracted<!--/mfunc-->
So if someone here is kind enough to correct me the syntax pattern to achieve my goal.
Thank you !

Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches
	Titre = "Notification de Giveawayoftheday © Hackoo © 2013"
	URL = "[URL unfurl="true"]http://fr.giveawayoftheday.com/"[/URL]
	Set ie = CreateObject("InternetExplorer.Application")
	Set Ws = CreateObject("wscript.Shell")
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	ie.Navigate (URL)
	ie.Visible=false
	DO WHILE ie.busy
		wscript.sleep 100
	LOOP
	Data = ie.document.documentElement.innerHTML
	ie.Quit
	Question = MsgBox(RegExp("<title>(.*?)</title>")&vbcr&vbcr&_
	" Le temps restant est :" &vbcr&vbcr&_
	RegExp("<!--mfunc-->(.*?)<!--/mfunc-->")&vbcr&vbcr&_
	"Voulez-vous accéder au site : [URL unfurl="true"]http://fr.giveawayoftheday.com/[/URL]  ?",VBYesNO+VbQuestion,Titre)
    If Question = VbYes then
        Ws.Run "[URL unfurl="true"]http://fr.giveawayoftheday.com/",1,False[/URL]
    else
        Wscript.Quit
    end if
	Set ie = Nothing
	 
Function RegExp(Motif)	
Set objRegex = new RegExp
objRegex.Pattern = Motif 'Motif pour y extraire le code source
objRegex.Global = False 'une seule instance
objRegex.IgnoreCase = True 'Ignorer la casse
Set Matches = objRegex.Execute(Data) 'Execution du la RegExp
For Each Match in Matches  
    strMatchValue = Match.Value
	RegExp = strMatchValue
Next
End Function

 

[Geates]

escape your forward slashes

<title>(.*?)<[red]\[/red]/title>

-Geates

http://raqxtr.sstar.com/caspdoc/html/chapter_5__developer_s_reference.htm

 

[Geates]

scratch that ... entirely

instead, don't quit IE and use the DOM

strTitle = ie.document.getElementsByTagName("title")(0).text

not sure about the commented [partial] tags

-Geates

http://raqxtr.sstar.com/caspdoc/html/chapter_5__developer_s_reference.htm

 

[jges]

The first sample regular expression on this page is about getting text between HTML tags.

 

[strongm]

I'd go with geates eminently sensible suggestion of using the DOM

Question = MsgBox(ie.document.getElementsByTagName("title")(0).innerText & vbCr & vbCr & " Le temps restant est :" & vbCr & vbCr & ie.document.getElementsByTagName("!")(11).nextSibling.Data & vbCr & vbCr & "Voulez-vous accéder au site :

http://fr.giveawayoftheday.com/

?", vbYesNo + vbQuestion)

 

[crackoo]

Thank you for all your reply !
So i solved the problem like this :

Option Explicit
Dim Titre,URL,ie,Ws,Question,Data,objRegex,Match,Matches,i
	Titre = "Notification de Giveawayoftheday © Hackoo © 2013"
	URL = "[URL unfurl="true"]http://fr.giveawayoftheday.com/"[/URL]
	Set ie = CreateObject("InternetExplorer.Application")
	Set Ws = CreateObject("wscript.Shell")
	ie.Navigate(URL)
	ie.Visible=false
	DO WHILE ie.busy
		wscript.sleep 100
	LOOP
	Data = ie.document.documentElement.innerHTML
	ie.Quit
	Set ie = Nothing
	Question = MsgBox(RegExp("<title>(.*)</title>",Data)& vbcr & vbcr &_
    " Le temps restant est : " & RegExp("<!--mfunc-->(.*)<!--/mfunc-->",Data)& vbcr & vbcr &_
    "Voulez-vous accéder au site : ""[URL unfurl="true"]http://fr.giveawayoftheday.com""[/URL] ?",VBYesNO+VbQuestion,Titre)
    If Question = VbYes then
        Ws.Run "[URL unfurl="true"]http://fr.giveawayoftheday.com/",1,False[/URL]
    else
        Wscript.Quit
    end if
    
Function RegExp(Motif,Data)	 
 Set objRegex = new RegExp
 objRegex.Pattern = Motif  
 objRegex.Global = False 'une seule instance  
 objRegex.IgnoreCase = True 'Ignorer la casse  
 Set Matches = objRegex.Execute(Data)  
 If Matches.Count > 0 Then
      Set Match = Matches(0)
   If Match.SubMatches.Count > 0 Then
        For i = 0 To Match.SubMatches.Count-1
	        RegExp = Match.SubMatches(i)
        Next
    End If
 End If
 Set Matches = Nothing  
 Set objRegex = Nothing  
End Function

 

[strongm]

I think you are making a mistake, but if it works for you then hurrah.