RegExp

[fungo]

Ho un problema con il codice sotto.
Non ho mai lavorato con le RegExp, cerco un'esperto.

<%
Function RegExpMap(str)
  Dim objRegExp
  Set objRegExp = New RegExp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<img id=carteDyn((.|\n)*?)>"
  Set objRegExp = Nothing
End Function

'l'url da scaricare
url_pagina = "http://www.pagina.it"

Set Objxml = Server.CreateObject("Msxml2.ServerXMLHTTP") 

Objxml.Open "Get", url_pagina, False 

Objxml.Send 

stringa = Objxml.responseText 

Set Objxml = Nothing 

'Response.Write(stringa) 
Dim myFile 
myFile = "temp_map.asp" 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
Set ts = fs.CreateTextFile(Server.MapPath(myfile), True) 
ts.WriteLine RegExpMap(stringa)
ts.Close 
set ts=Nothing 
set fso = Nothing 

%>

Il codice recupera una pagina in remoto, estrae solo il tag <img con id="noneID" e lo scrive in un file.
Tutto sembra funzionare ma all'interno del file non c'è scritto niente.
Qualche esperto in materia di RegExp può aiutarmi.
Grazie

[weppos]

Non è un problema di regexp ma di funzione.

Function RegExpMap(str)
  Dim objRegExp
  Set objRegExp = New RegExp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<img id=carteDyn((.|\n)*?)>"
  Set objRegExp = Nothing
End Function

Se il valore non lo restituisci... come fa il codice fuori dalla funzione a leggerlo?

Non solo, hai preparato la regexp ma l'hai distrutta prima di usar.a

Dopo al pattern devi dirgli che fare.. un test? un replace? un execute?

[fungo]

Ecco il nuovo risultato...
Il problema è che non riesco a scrivere l'estrazione della RegExp nel file.Hai dei suggerimenti.

Cmq grazie per l'aiuto.

<%
' REGEXP PER ESTRAZIONE TAG IMG
Function RegExpMap(str)
	Dim strTemp, objMatch
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "<img id=carteDyn((.|\n)*?)>"
	For Each objMatch in objRegExp.Execute(str)
  		Response.Write(objMatch.Value)
	Next
	Set objRegExp = Nothing
End Function

'URL DA LEGGERE IN REMOTO
url_pagina = "http://www.viamichelin.it/viamichelin/ita/dyn/controller/mapPerformPage?strAddress=Lungomare+trieste&strCP=30021&strLocation=caorle&strCountry=EUR&image2.x=24&image2.y=10"

Set Objxml = Server.CreateObject("Msxml2.ServerXMLHTTP") 

Objxml.Open "Get", url_pagina, False 

Objxml.Send 

stringa = RegExpMap(Objxml.responseText)

Set Objxml = Nothing 

' CODICE PER SALVATAGGIO FILE
'Dim myFile 
'myFile = "temp_map.asp" 
'Set fs=Server.CreateObject("Scripting.FileSystemObject") 
'Set ts = fs.CreateTextFile(Server.MapPath(myfile), True) 
'ts.WriteLine stringa
'ts.Close 
'set ts=Nothing 
'set fso = Nothing 

%>