29/07/2004, 04:10
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 1.438
Antigüedad: 23 años, 9 meses Puntos: 0 | |
| Function GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = instr(1, strText, strStartTag, vbtextcompare)
if intStart then
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart + 1,
strText,
strEndTag,
vbtextcompare)
GetText = Mid(strText,
intStart + 1,
intEnd - intStart - 1)
else
GetText = " "
end if
End Function |