Hola Gente del Foro. quería hacerles una consulta.
resulta que mediante una función obtengo el código fuente (HTML) de una página web
y copio ese código HTML a una Variable. pero resulta que el servidor es de "000.webhost.com" entonces al final del código agrega unas lineas de un Script.
Como puedo hacer para "Limpiar" de la variable esas lineas y que me quede en limpio el código Fuente Original?
Ejemplo:
este es un código extraído de la web en "000webhost.com"
Hola Mundo!
<!-- www.000webhost.com Analytics Code -->
<script type="text/javascript" src="http://analytics.hosting24.com/count.php"></script>
<noscript><a href="http://www.hosting24.com/"><img src="http://analytics.hosting24.com/count.php" alt="web hosting" /></a></noscript>
<!-- End Of Analytics Code -->
en la Variable quedaría Todo eso, ¿Como puedo hacer para que Solo quede "Hola Mundo!" en la Variable?
Muchas Gracias
Expresiones regulares. :D
O si no puedes jugartela con esto que hice:
http://goo.gl/1kqUz
O puedes buscar un HTML Parser que hizo Cobein... :P
DoEvents! :P
function quitaLaScript(byval sCode as string) as string
dim iInicio as integer
quitaLaScript=sCode
if instr(sCode,"<!-- www.000webhost.com Analytics Code -->") then
iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
quitaLaScript=mid(sCode,1,iInicio-1)
end if
end function
Version un poquito mejorada de la de ignorantev1.1 :)
Function quitaLaScript(ByVal sCode as string) As String
Dim iInicio as integer
quitaLaScript=sCode
iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
if iInicio > 0 then quitaLaScript=mid$(sCode,1,iInicio-1)
End Function
Muchas Gracias !!
Cita de: raul338 en 6 Noviembre 2010, 03:40 AM
Version un poquito mejorada de la de ignorantev1.1 :)
Function quitaLaScript(ByVal sCode as string) As String
Dim iInicio as integer
quitaLaScript=sCode
iInicio=instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
if iInicio > 0 then quitaLaScript=mid$(sCode,1,iInicio-1)
End Function
Function quitaLaScript(ByVal sCode as string) As String
Dim lng_Pos as long
lng_Pos = instr(sCode,"<!-- www.000webhost.com Analytics Code -->")
if iInicio > 0 then
quitaLaScript = Right$(sCode,lng_Pos-1)
else
quitaLaScript = sCode
end if
End Function
Sub quitaLaScript(sCode As String)
Dim iInicio As Integer
iInicio = InStr(sCode, "<!-- www.000webhost.com Analytics Code -->")
If iInicio > 0 Then sCode = Mid$(sCode, 1, iInicio - 1)
End Sub
mas fácil... al final del archivo php ponle exit; y no cargará ese texto, ya lo he hecho antes, lo que usan es un perpendfile y un appendfile pero se quita con un exit, no se alcanza a ejecutar el appendfile.
Ejemplo:
<html>
hola
</html>
<?php exit; ?>
Pues si pero el quiere automatizar con VB, se supone que no editar manualmente el codigo
si mal no recuerdo si renombras la pagina no te agrega el script por ejemplo
paginaweb.dat o paginaweb.zip
total vos seguro que noqueres mostrar una web solo queres los datos del servidor.
saludos.
:xD
Pensaba que no era solo para este caso en concreto!! :laugh:
DoEvents! :P
Gracias a todos. voy a tener en cuenta lo de Finalizar el programa php con exit. pero igual vos a utilizar un metodo de "Limpiado" en vb para no tener que agregar el exit en todas las paginas ademas hay algunas que las tengo en html y tendria que cambiar todos los link. ademas capas que lo uso para una web que no esta bajo mi administracion.
G-R-A-C-I-A-S