Imprimir Página - Importar a textbox con salto de linea

Título: Importar a textbox con salto de linea
Publicado por: rapbyone en 27 Agosto 2015, 06:06 am

Estimados, recurro a ustedes por que tengo un problema que me tiene de cabeza y no logro dar con la solución, intentaré ser lo mas explicito posible.

a través del control inet extraigo el código de fuente de una web a un archivo .txt, el problema se genera al cargar dicho archivo a un textbox, ya que por alguna razón omite lo saltos de linea del código web.

Al abrirlo en un editor de texto como Notepad+ el código aparece de la siguiente manera:

Código

<!DOCTYPE html>
<html lang="en" dir="ltr" class="client-nojs">
<head>
<meta charset="UTF-8" />
<title>Wikipedia, the free encyclopedia</title>

No obstante al cargarlo al textbox, aparece todo el texto junto de la siguiente manera

Código

<!DOCTYPE html><html lang="en" dir="ltr" class="client-nojs"><head><meta charset="UTF-8" /><title>Norwich City F.C. - Wikipedia, the free encyclopedia</title>

tengo que copiarlo desde el notepad+ y pegarlo al textbox para que aparezcan los saltos de linea y la idea es que se haga de manera automática

este es el código:

Código

Dim Datos As String
Datos = Inet1.OpenURL("https://en.wikipedia.org/wiki/Norwich_City_F.C.")
Dim fnum As Integer
fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\fuente.txt" For Binary Access Write As fnum 'se abre para escritura
 
' Escribe las lineas de texto
Put #fnum, , Datos
Close #fnum 'se cierra el archivo
MsgBox "ok"

Agradezco de <3 su ayuda, ya que agoté los medios y no encontré una posible solución.
Muchas gracias

Título: Re: Importar a textbox con salto de linea
Publicado por: BlackZeroX en 27 Agosto 2015, 06:31 am

Lo mas seguro debas reemplazar el carácter ascii 10 o 13 por 10 y 13...

Primero identifica cual es el carácter que se esta usando para el salto de linea

vbLf = valor ascii 10
vbCr = valor ascii 13

Según sea el caso:

Código

datos = replace(datos, vbLf, vbCrLf)

Código

datos = replace(datos, vbCr, vbCrLf)

Saludos!¡.

Título: Re: Importar a textbox con salto de linea
Publicado por: rapbyone en 27 Agosto 2015, 13:23 pm

Cita de: BlackZeroX (Astaroth) en 27 Agosto 2015, 06:31 am

Código

datos = replace(datos, vbLf, vbCrLf)

Código

datos = replace(datos, vbCr, vbCrLf)

Saludos!¡.

Estimado muchas gracias por responder, se estaba usando "ascii 10" para el salto de linea, ya está solucionado.

Muchas gracias ;-) sin saber nada de programación he aprendido mucho :D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 27 Agosto 2015, 06:06 am