[SOLUCIONADO] Importación txt a excel celda a celda, No coge todas las líneas(VB.net)

[The_Crab]

Buenas tardes,

Tengo un problema a ver si me podéis ayudar.

La cuestión es que estoy haciendo un programa que me pase una cadena de texto (leo el TXT línea a línea) a una hoja de excel después de dividir dicha cadena con "substring" por donde me conviene.

Mi dolor de cabeza viene en el While y el For que estoy usando

Código:

 
                 While Not fileReader.EndOfStream
                    For numero = 2 To 4
                       lineRead = fileReader.ReadLine()

                    cadena1 = lineRead.Substring(0, 11)
                    oSheet.Range(A & numero).Value = cadena1
                    cadena2 = lineRead.Substring(11, 11)
                    oSheet.Range(B & numero).Value = cadena2
                    cadena3 = lineRead.Substring(22, 5)
                    oSheet.Range(C & numero).Value = cadena3
                    cadena4 = lineRead.Substring(27, 40)
                    
                        Next
                        End While

Problema1: No me coge todas las líneas del texto, solo me pinta las 3 últimas
Problema2: El "to" del "For", lo tengo que modificar a mano ya que si hay menos líneas el programa muere.

Preguntas:
¿Que está mal para que no me coja el total de las líneas? (las que exporta las traspasa correctamente)
¿Sabéis como puedo hacer para que me encuentre automáticamente la última línea e indicarla en el "To"?

Gracias de antemano y un saludo

[lucasmoadr]

hola, una pregunta. de donde sacas el For numero = 2 To 4.

por lo que veo es el rango del excel, por lo tanto, como pueden ser menos? ahi me perdi en tu explicacion. podrias explicarlo mejor a ver si puedo ayudarte.

Saludos!

[Drako_18]

Buenas compañeros,

Comencemos por el principio...
Porqué tienes el For¿?
Con el While lees cada línea, pero.. ¿Y el For?

Lo que sí tienes que hacer es tener un contador de número de línea externo al While...
Y el código terminaría siendo algo así:

Dim iNumLinea As Integer = 0

While Not fileReader.EndOfStream
iNumLinea += 1 'Sumo 1 al contenido que ya tenga iNumLinea.
lineRead = fileReader.ReadLine()

cadena1 = lineRead.Substring(0, 11)
oSheet.Range(A & iNumLinea).Value = cadena1

cadena2 = lineRead.Substring(11, 11)
oSheet.Range(B & iNumLinea).Value = cadena2

cadena3 = lineRead.Substring(22, 5)
oSheet.Range(C & iNumLinea).Value = cadena3

cadena4 = lineRead.Substring(27, 40)
oSheet.Range(D & iNumLinea).Value = cadena4
End While


Es muy probable que el While en sí se pueda sustituir por algo más conveniente... Es cuestión de revisar más ejemplos en Inet..


Un saludo!!!

[The_Crab]

Gracias por vuestras respuesta.

El For está ahí porque soy novato y los bucles en si no se me dan muy bien xD, de hecho la verdad es que este es el primero que hago.

La cosa está en que necesitaba aumentar la variable numero en 1 con cada línea y pensaba que con esto se hacía con FOR...

Al final basándome en la respuesta de "Drako_18" lo he conseguido de la siguiente forma

Código:

Dim numero As Integer = 2

            While Not fileReader.EndOfStream


                lineRead = fileReader.ReadLine()

                cadena1 = lineRead.Substring(0, 11)
                oSheet.Range(A & numero).Value = cadena1
                cadena2 = lineRead.Substring(11, 11)
                oSheet.Range(B & numero).Value = cadena2
                cadena3 = lineRead.Substring(22, 5)
                oSheet.Range(C & numero).Value = cadena3
                cadena4 = lineRead.Substring(27, 40)
                numero = numero + 1

            End While

Con esto el programa hace exactamente lo que necesito.

Un saludo