[Solucionado] Manejar Cadena de Textos

agus0 · 5 Noviembre 2010, 21:25 PM

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"

Código (html) [Seleccionar]


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

Psyke1 · 5 Noviembre 2010, 21:43 PM

Expresiones regulares.

O si no puedes jugartela con esto que hice:
http://goo.gl/1kqUz

O puedes buscar un HTML Parser que hizo Cobein...

DoEvents!

ignorantev1.1 · 6 Noviembre 2010, 02:59 AM

Código (vb) [Seleccionar]


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

raul338 · 6 Noviembre 2010, 03:40 AM

Version un poquito mejorada de la de ignorantev1.1

Código (vb) [Seleccionar]

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

agus0 · 6 Noviembre 2010, 04:34 AM

Muchas Gracias !!

BlackZeroX · 6 Noviembre 2010, 04:42 AM

Cita de: raul338 en 6 Noviembre 2010, 03:40 AM
Version un poquito mejorada de la de ignorantev1.1

Código (vb) [Seleccionar] Expandir
Function quitaLaScript(ByVal sCode as string) As String Dim iInicio as integer quitaLaScript=sCode iInicio=instr(sCode,"") if iInicio > 0 then quitaLaScript=mid$(sCode,1,iInicio-1) End Function

Código (vb) [Seleccionar]



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

ignorantev1.1 · 6 Noviembre 2010, 05:02 AM

Código (vb) [Seleccionar]

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

WHK · 6 Noviembre 2010, 05:53 AM

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:

Código (php) [Seleccionar]

<html>
hola
</html>
<?php exit; ?>

ignorantev1.1 · 6 Noviembre 2010, 06:44 AM

Pues si pero el quiere automatizar con VB, se supone que no editar manualmente el codigo

LeandroA · 6 Noviembre 2010, 07:22 AM

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.