Visual Basic - Probema con Cadena Vacia VB6.0

Life is soft - evento anual de software empresarial
 
Vista:

Probema con Cadena Vacia VB6.0

Publicado por Mendoza_2012 (2 intervenciones) el 07/01/2012 00:49:26
Estimados tengo el siguiente problema con Visual Basic 6.0, estoy desarrollando una aplicación en la que leo un archivo de texto que contiene 5 columnas y n filas separado por espacios, sin embargo la columna 5 en algunas filas tiene datos de texto y en otras esta vacía, al ejecutar la aplicación el archivo resultante me entrega la última fila vacía y me aparece un mensaje de error 9.

A continuación les dejo una parte del código, la idea es que reconozca los datos de la fila 5 y los refleje en el archivo resultante.

Line Input #1, Cadena
Cadena = Split(Cadena, “ ”)
a = (Cadena(0))
x = Val(Cadena(2))
y = Val(Cadena(1))
z = Val(Cadena(3))
b = (Cadena(4))

De ante mano muchas gracias por su ayuda.
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

Probema con Cadena Vacia VB6.0

Publicado por Mendoza_2012 (2 intervenciones) el 07/01/2012 14:28:57
Consulta resuelta por el usuario ERBUSON de canal viasual basic .net
Gracias.
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

Problema con Cadena Vacia VB6.0

Publicado por JESUS (1 intervención) el 19/01/2012 12:05:44
Supongo que esto te valdrá:

'Entiendo que el fichero es algo parecido a esto:

' "Patatas Azucar Naranjas Rojo Melon"
' "Patatas Azucar Naranjas Azul Melon"
' "Patatas Azucar Naranjas Melon"

'Y que la línea que te da problemas sería similar a la ultima


'Elimino los " " excepto los que separan los campos
While InStr(Cadena, " ") <> 0
Cadena = Replace(Cadena, " ", "")
Wend

lst = Split(Cadena, " ")

cont = 0
For Each aux In lst()
cont = cont + 1
Next aux

If cont = 5 Then
'No hay ningún campo vacio
a = lst(0)
x = Val(lst(2))
y = Val(lst(1))
Z = Val(lst(3))
b = lst(4)
Else
'Hay un campo vacio
a = lst(0)
x = Val(lst(2))
y = Val(lst(1))
Z = Val(lst(3))
b = ""
End If
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