Html a Texto (Ayuda)
Publicado: 19 Mar 2014, 07:13
Recientemente estoy iniciándome con esto de autoit
pero me doy con un problema
resulta que quiero leer un archivo que esta en Html
lo cual al abrir esta pagina con un explorador da como resultado el siguiente
Mis Datos
Nombre EDSON JARIB
Apellido VALLECILLO LAGOS
Tipo de documento CIP Identidad
Número de documento 05061840000
Telefono de contacto 9999999
Correo [email protected]
resulta que este scrip me da la solución que quiero pero no me sirve si se trata de un archivo
Este es mi scrip que tengo hasta el momento pero no se como tendría que hacer para lograr el resultado
De antemano gracias por su ayuda, Que Dios los llene de bendiones
pero me doy con un problema
resulta que quiero leer un archivo que esta en Html
Código: Seleccionar todo
<html>
<head>
<title>Datos</title>
</head>
<body>
<h1>Mis Datos</h1>
<div id="article">
<div id="mis-datos">
<div class="items">
<ul>
<li>
<span class="label">Nombre</span>
<span class="value">EDSON JARIB</span>
</li>
<li>
<span class="label">Apellido</span>
<span class="value">VALLECILLO LAGOS</span>
</li>
<li>
<span class="label">Tipo de documento</span>
<span class="value">CIP Identidad</span>
</li>
<li>
<span class="label">Número de documento</span>
<span class="value">05061840000</span>
</li>
<li>
<span class="label">Telefono de contacto</span>
<span class="value">9999999</span>
</li>
<li>
<span class="label">Correo</span>
<span class="value">[email protected]</span>
</li>
</ul>
</div>
</div>
</div>
</body>
</html>
Mis Datos
Nombre EDSON JARIB
Apellido VALLECILLO LAGOS
Tipo de documento CIP Identidad
Número de documento 05061840000
Telefono de contacto 9999999
Correo [email protected]
resulta que este scrip me da la solución que quiero pero no me sirve si se trata de un archivo
Código: Seleccionar todo
#include <IE.au3>
Local $oIE2 = _IE_Example("basic")
Local $sText2 = _IEBodyReadText($oIE2)
MsgBox(0, "", $sText2)
Código: Seleccionar todo
#include <IE.au3>
$oIE1 = FileRead("Pagina.html")
$sText1 = _IEBodyReadText($oIE1)
MsgBox(0, "", $sText1)