Importar a textbox con salto de linea

Iniciado por rapbyone, 27 Agosto 2015, 06:06 AM

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

rapbyone

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 (vb) [Seleccionar]
<!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 (vb) [Seleccionar]
<!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 (vb) [Seleccionar]
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

BlackZeroX

#1
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 (vb) [Seleccionar]
datos = replace(datos, vbLf, vbCrLf)

Código (vb) [Seleccionar]
datos = replace(datos, vbCr, vbCrLf)

Saludos!¡.
The Dark Shadow is my passion.

rapbyone

#2
27 Agosto 2015, 13:23 PM
Cita de: BlackZeroX (Astaroth) 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 (vb) [Seleccionar]
datos = replace(datos, vbLf, vbCrLf)

Código (vb) [Seleccionar]
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
Imprimir
Ir Arriba Páginas1
Acciones del Usuario