elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con saltos de línea
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con saltos de línea  (Leído 1,780 veces)
TheH4ck

Desconectado Desconectado

Mensajes: 23


Me das tu password?


Ver Perfil WWW
Ayuda con saltos de línea
« en: 28 Febrero 2015, 02:28 am »

Hola! Pues tengo el siguiente código:
Código:
Sub AbrirLista(List As ListBox, FileName As String)
Dim LineaTexto As String
Open FileName For Input As #1

While Not EOF(1)
Line Input #1, LineaTexto
List.AddItem LineaTexto, 0
Wend

Close #1
End Sub

Pero en el listbox me carga el archivo asi:

 " PRUEBA PRUEBA PRUEBA "

Que en realidad debería ser así:
 "Prueba
  Prueba
  Prueba"

Ayuda PLS!  :-\


En línea

Flamer


Desconectado Desconectado

Mensajes: 1.036


crack, crack y mas crack...


Ver Perfil WWW
Re: Ayuda con saltos de línea
« Respuesta #1 en: 28 Febrero 2015, 03:12 am »

Código
  1. Sub AbrirLista(List As ListBox, FileName As String)
  2. Dim LineaTexto As String
  3. Open FileName For Input As #1
  4.  
  5. While Not EOF(1)
  6. Line Input #1, LineaTexto
  7. List.AddItem LineaTexto & vbcrlf, 0
  8. Wend
  9.  
  10. Close #1
  11. End Sub
  12.  

saludos Flamer y dime si te funciono


En línea

TheH4ck

Desconectado Desconectado

Mensajes: 23


Me das tu password?


Ver Perfil WWW
Re: Ayuda con saltos de línea
« Respuesta #2 en: 28 Febrero 2015, 05:02 am »

No me anda , por que el txt que carga el listbox está en una página web , cuando vb6 descarga el archivo me los descarga con el formato "PRUEBAPRUEBAPRUEBAPRUEBAPRUEBA" , no hay alguna forma de descargar el archivo sin que lo descarge todo junto , el código para descargar que tengo es:

Código:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Código:
Dim Reply As Long
Reply = URLDownloadToFile(0, "http://www.midominio.com/prueba/prueba2/list.txt", App.path & "\other\temp\terrain.dat", 0, 0)
If Reply = 0 Then
AbrirLista listact, App.path & "\other\temp\terrain.dat"
Else
MsgBox "Error: Compruebe su conexión a internet , vbCritical, "Error"
End If
En línea

Brian1511

Desconectado Desconectado

Mensajes: 267


¿Quien soy esa es la gran pregunta?


Ver Perfil WWW
Re: Ayuda con saltos de línea
« Respuesta #3 en: 28 Febrero 2015, 19:17 pm »

Puedes yo uso esto en mis proyectos:
Pero separo los string con una coma o un guion

Si en el archivo esta "PRUEBAPRUEBAPRUEBA"
Cambialo por "PRUEBA-PRUEBA-PRUEBA" o "PRUEBA,PRUEBA"....

Código
  1. Sub AbrirLista(List As ListBox, FileName As String)
  2. Dim LineaTexto As String
  3. Dim I as Integer
  4. Dim Separador() as String
  5. Open FileName For Input As #1
  6.  
  7. While Not EOF(1)
  8. Line Input #1, LineaTexto
  9. Separador = Split(LineaTexto,"-")
  10. For I = 0 to UBound(Separador())
  11. List.AddItem Separador(I), 0
  12. Next I
  13. Wend
  14.  
  15. Improvise un poco con el codigo de  Flamer espero que si funcione y que te sirva ;)
  16.  
  17. Close #1
  18. End Sub
  19.  
En línea



Creador de BrainMind
HdM


Desconectado Desconectado

Mensajes: 1.674



Ver Perfil
Re: Ayuda con saltos de línea
« Respuesta #4 en: 28 Febrero 2015, 21:52 pm »

Hola.

Aprovechando un poco lo indicado por Flamer y Brian, esto debería funcionarte:

Código
  1. Sub AbrirLista(FileName As String)
  2. Dim LineaTexto As String
  3. Dim I As Integer
  4. Dim Separador() As String
  5.  
  6. Open FileName For Input As #1
  7. Line Input #1, LineaTexto
  8. Separador = Split(LineaTexto, vbLf)
  9. For I = 0 To UBound(Separador)
  10.      List.AddItem Separador(I)
  11. Next I
  12. Close #1
  13.  
  14. End Sub

Saludos.
En línea

- Nice to see you again -
Brian1511

Desconectado Desconectado

Mensajes: 267


¿Quien soy esa es la gran pregunta?


Ver Perfil WWW
Re: Ayuda con saltos de línea
« Respuesta #5 en: 1 Marzo 2015, 07:00 am »

Hola HdM mira creo que te confundiste aqui en la linea 8


Citar
Separador = Split(LineaTexto, vbLf)

No seria de esta forma?:

Citar
Separador = Split(LineaTexto, vbcrlf)

En línea



Creador de BrainMind
HdM


Desconectado Desconectado

Mensajes: 1.674



Ver Perfil
Re: Ayuda con saltos de línea
« Respuesta #6 en: 2 Marzo 2015, 12:23 pm »

Hola.

No, no me confundí. Si las líneas en el txt hubiesen estado separadas por vbCrLf, entonces TheH4ck no habría creado este hilo, ya que habría importado el fichero sin problemas.

Saludos.
En línea

- Nice to see you again -
okik


Desconectado Desconectado

Mensajes: 462


Ver Perfil
Re: Ayuda con saltos de línea
« Respuesta #7 en: 13 Marzo 2015, 18:58 pm »

Hola
Lo que hay que hacer es primero cargar el texto en  una variable, tal cual  y luego mediante Split, se lee linea por linea. En lugar de leer linea por lína a medida que se leen los datos. Se meten tal cual en la variabla y luego ya se puede leer con Split sin problemas.


Código
  1. Sub AbrirLista(List As ListBox, FileName As String)
  2. Dim LineaTexto As String
  3. Dim File As Integer
  4. Dim Cont As Integer
  5. Dim cDato As String
  6. File = FreeFile
  7.  
  8.  'Abre el archivo
  9.    Open FileName For Binary Access Read Write Lock Write As #File
  10.    cDato = String(1, " ")
  11.        While Not EOF(File)
  12.            Get #File, , cDato
  13.           LineaTexto = LineaTexto & cDato 'Carga el texto en una variable
  14.        Wend
  15.        Close #1
  16.  'Lee linea por linea y las mete en el ListBox
  17. Dim Lineas() As String
  18. Dim i As Integer
  19. Lineas = Split(LineaTexto, vbNewLine)
  20. For i = LBound(Lineas) To UBound(Lineas)
  21. If Lineas(i) > "" Then
  22.    List1.AddItem Lineas(i)
  23. End If
  24. Next
  25. End Sub
« Última modificación: 13 Marzo 2015, 19:05 pm por okik » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
contar saltos de linea RichTextBox VB
Programación Visual Basic
Carlosnuel 5 10,834 Último mensaje 6 Abril 2007, 01:55 am
por CeLaYa
Saltos de linea
PHP
zhynar_X 2 4,491 Último mensaje 8 Septiembre 2007, 17:59 pm
por дٳŦ٭
Saltos de linea en PHP.
PHP
Akise 2 1,179 Último mensaje 25 Junio 2013, 03:33 am
por Akise
[AYUDA] Como se concatenan saltos de linea en el codigo de PHP .= o && « 1 2 »
PHP
Graphixx 12 5,935 Último mensaje 6 Septiembre 2014, 15:52 pm
por Graphixx
Buffer i saltos de linea en C
Programación C/C++
proterva 1 486 Último mensaje 16 Agosto 2018, 14:44 pm
por MAFUS
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines