Visual Basic - mostrar en otro text2 una linea del text1

Life is soft - evento anual de software empresarial
 
Vista:

mostrar en otro text2 una linea del text1

Publicado por maite (6 intervenciones) el 30/05/2007 17:08:56
hola:

He conseguido que en un text1 me muestre la informacion de ficheros binarios, ahora lo que quiero es que en otro text2 me saque unicamente las direcciones de correo que se encuentren en el text1
Alguien me podria ayudar? como lo podria hacer?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mostrar en otro text2 una linea del text1

Publicado por cmgcharli (128 intervenciones) el 30/05/2007 19:24:40
Pon un ejemplo del contenido del Text1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mostrar en otro text2 una linea del text1

Publicado por maite (6 intervenciones) el 31/05/2007 08:19:44
esto es lo que tendria en el text1:

From: <[email protected]>
To: <[email protected]>
Subject: Nueva gama WontaW y WontaGes 2007
MIME-Version: 1.0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Mailer: Microsoft Outlook Express 6.00.2800.1807
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1896

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=3D"Content-Type" content=3D"text/html; =
charset=3Diso-8859-1">
</head>

<body>
<center>
<!-- Cabecera -->
<table width=3D"80%" border=3D"0" cellspacing=3D"0" cellpadding=3D"3">
<tr>=20
<td width=3D"5%" rowspan=3D"2"> </td>
<td width=3D"18%" rowspan=3D"2" align=3D"left" =
valign=3D"middle"><a =
href=3D"http://www.sintra-sl.es/websintra/index.php"><img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/logosintra.=
gif" width=3D"124" height=3D"86" border=3D"0"></a></td>
<td height=3D"52" align=3D"left" valign=3D"bottom"> </td>
<td rowspan=3D"2" align=3D"left" valign=3D"middle"> </td>
<td width=3D"5%" rowspan=3D"2"> </td>
</tr>
<tr>
<td align=3D"left" valign=3D"bottom" =
background=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/fond=
o2.gif"><font color=3D"#6699CC" size=3D"6
" face=3D"Arial, Helvetica, sans-serif"><u>Lanzamiento Gama =
2007</u></font></td>
</tr>
</table>=09
=09
<br>

<!-- Cuerpo -->
<table width=3D"80%" border=3D"0" cellspacing=3D"3" cellpadding=3D"3">
<tr>
<td width=3D"5%"> </td>
<td>
<table width=3D"100%" border=3D"1" cellspacing=3D"5" =
cellpadding=3D"5">
<tr>
<td width=3D"90%" bordercolor=3D"#6699CC" =
background=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/fond=
o1.gif" bgcolor=3D"#EFF4FA"><img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/Sobre.gif">=
</td>
</tr>
<tr> =20
<td width=3D"90%" bordercolor=3D"#6699CC" =
bgcolor=3D"#EFF4FA"><font color=3D"#6699CC" size=3D"2" face=3D"Arial, =
Helvetica, sans-serif">Estimado Usuario:<br><br>
Tenemos el placer de poner a su disposici=F3n <B>la gama 2007 de =
nuestros programas WontaW y WontaGes.</B><br><font size=3D"3"><br>
</font></font><font color=3D"#6F79D0" size=3D"2" =
face=3D"Arial, Helvetica, sans-serif"><font size=3D"3"><CENTER><font =
color=3D"#6699CC"><strong>¡ VERSIÓN DEMO YA DISPONIBLE EN =
NUESTRA WEB !</strong></font></CENTER></font><font =
color=3D"#6699CC"><br>
El 19 de febrero de 2007, El Ministerio de Economía y =
Hacienda acaba de publicar en su página web, <strong>El borrador =
del Nuevo Plan General de Contabilidad</strong> adaptado a las NIIF. =
Dicho borrador, recoge la <strong>obligatoriedad de adaptación a =
dichas normas para todo sujeto pasivo obligado a llevar contabilidad a =
lo largo del ejercicio 2007.</strong><br><br>
<strong>WontaW 2007 está totalmente adaptado</strong> =
a esta importante e ineludible reforma contable, y además, le =
proporciona otra serie de útiles módulos, tales como, =
nóminas, seguridad, ...<br><br>=09
No menores son las novedades de <strong>WontaGes 2007</strong>. =
Esta versión incorpora un completo <strong>módulo de =
comisionistas, vendedores y agentes comerciales, además de, un =
módulo de seguridad, nóminas, ...</strong><br><br>
Entendemos que en su caso, al estar utilizando la gama =
<strong>PLATINUM</strong> desde el a=F1o <strong>2003</strong>, existen =
dos razones fundamentales para que se pase a la gama 2007:
<ol>
<li><strong>La gran cantidad de cambios legislativos</strong> =
ocurridos desde el a=F1o 2003, que afectan, <strong>de forma =
obligatoria, tanto a la contabilidad como a la =
facturación</strong>.</li>
<li><strong>El importante aumento de prestaciones del =
programa</strong>, incluidas en las versiones editadas desde la gama =
PLATINUM (2004, 2006, y ahora, 2007), de las que vd. no dispone =
aún.</li>
</ol>
Le invitamos por tanto, a ver una completa descripción de =
todas las novedades de la gama 2007 o a descargarse las versiones =
desostración, haciendo un “clic” a =
continuación.</font></font></td>
</tr>
<tr>
<td width=3D"90%" bordercolor=3D"#6699CC" =
background=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/fond=
o1.gif" bgcolor=3D"#EFF4FA"><img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/Lupa.gif" =
width=3D"32" height=3D"32"></td>
</tr>
<tr> =20
<td width=3D"90%" align=3D"left" valign=3D"middle" =
bordercolor=3D"#6699CC" bgcolor=3D"#EFF4FA">=20
<table width=3D"100%" border=3D"0">
<tr>
=
<td><strong>          &=
nbsp;    </strong></td>
<td> <img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/azul.gif" =
width=3D"16" height=3D"16"><strong> <a =
href=3D"http://www.sintra-sl.es/websintra/productos.php#NovedadesWW2007">=
<font color=3D"#6699CC" size=3D"2" face=3D"Arial, Helvetica, =
sans-serif">Relación de Novedades WontaW =
2007.</font></a></strong><br>
<img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/naranja.gif=
" width=3D"16" height=3D"16"><strong> <a =
href=3D"http://www.sintra-sl.es/websintra/productos.php#NovedadesWG2007">=
<font color=3D"#6699CC" size=3D"2" face=3D"Arial, Helvetica, =
sans-serif">Relación de Novedades WontaGes =
2007.</font></a></strong><br>
<img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/cdWW.gif" =
width=3D"16" height=3D"16"><strong> <a =
href=3D"ftp://sintra-sl.com:[email protected]/Html/Descargas=
/Demos/DemoWW2007.exe"><font color=3D"#6699CC" size=3D"2" face=3D"Arial, =
Helvetica, sans-serif">Descarga Demo WontaW =
2007.</font></a></strong><br>
<img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/cdWG.gif" =
width=3D"16" height=3D"16"><strong> <a =
href=3D"ftp://sintra-sl.com:[email protected]/Html/Descargas=
/Demos/DemoWG2007.exe"><font color=3D"#6699CC" size=3D"2" face=3D"Arial, =
Helvetica, sans-serif">Descarga Demo WontaGes =
2007.</font></a></strong><br>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=3D"90%" valign=3D"middle" bordercolor=3D"#6699CC" =
background=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/fond=
o1.gif" bgcolor=3D"#EFF4FA"><img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/Comprar.gif=
" width=3D"32" height=3D"32"> 
<div style=3D"position:absolute;"><font color=3D"#6699CC" =
size=3D"6" face=3D"Arial, Helvetica, sans-serif"><font =
size=3D"5"><strong>Comprar</strong></font> - <strong><font =
size=3D"3">Haga su reserva <a =
href=3D"#Comprar2006">aquí</a></font></strong></font></div></td>
</tr>
</table>
</td>
<td width=3D"5%"> </td>
</tr>
</table>

<br>

<!-- Pie --> =20
<table width=3D"80%" border=3D"0" cellspacing=3D"0" cellpadding=3D"3">
<tr>=20
<td width=3D"5%"> </td> =20
<td align=3D"left" valign=3D"middle">
<table width=3D"100%" border=3D"1" cellspacing=3D"5" =
cellpadding=3D"5">
<tr>=20
<td width=3D"88%" bordercolor=3D"#6699CC" =
bgcolor=3D"#EFF4FA"> <div align=3D"left"><font color=3D"#6699CC" =
size=3D"2" face=3D"Verdana"><strong>Dto.=20
Comercial de Sintra Gestión S.L.</strong><br>
Pedro Asua, 31 - Bajo<br>
01008 - VITORIA<br>
Tlfno: 902 24 25 00 Fax 902 11 96 38<br>
E-mail: <strong>[email protected]</strong> - Web: =
<strong>www.sintra-sl.es</strong></font></div></td>
<td width=3D"12%" align=3D"center" valign=3D"middle" =
bordercolor=3D"#6699CC" bgcolor=3D"#EFF4FA"><img =
src=3D"http://www.sintra-sl.es/websintra/Imagenes/2007/Emails/Movil.gif" =
width=3D"48" height=3D"48"></td>
</tr>
</table> =20
</td>
<td width=3D"5%"> </td>
</tr>
</table>=09
<table width=3D"80%" border=3D"0" cellspacing=3D"0" cellpadding=3D"3">
<tr>=20
<td width=3D"5%"> </td> =20
<td align=3D"left" valign=3D"middle">
<table width=3D"100%" border=3D"1" cellspacing=3D"5" =
cellpadding=3D"5">
<tr>=20
<td bordercolor=3D"#6699CC" bgcolor=3D"#EFF4FA"><div =
align=3D"left"><font color=3D"#6699CC" size=3D"1" =
face=3D"Verdana"><strong>
* Realice su pedido por Fax, Correo, Email ó Teléfono =
a la dirección que le indicamos a continuación.<br>
* Para pedidos telefónicos, el horario es de 9:30 a =
13:30 y de 15:30 a 18:30. A la extesión 1 o extensión =
2.</strong></font></div></td>
</tr>
</table> =20
</td>
<td width=3D"5%"> </td>
</tr>
</table>=09

</center>
</body>
</html>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar