Leer archivo con coma

[Quemero]

hola tengo una pregunta supongamos que tengo un archivo txt que tiene 4 o 5 lineas, y los datos de algunas lineas estan separados por coma y un espacio. El archivo, por ejemplo, seria algo asi:

4
rojo
000, 9999, 34, 467

¿como se hace para que me salga en un msgbox o en un label solamente el 9999? (o el numero que yo elija, segun su lugar de ubicacion en la linea)

bueno muchas gracias a todos saludos

[David]

Iniciado por Quemero

hola tengo una pregunta supongamos que tengo un archivo txt que tiene 4 o 5 lineas, y los datos de algunas lineas estan separados por coma y un espacio. El archivo, por ejemplo, seria algo asi:

4
rojo
000, 9999, 34, 467

¿como se hace para que me salga en un msgbox o en un label solamente el 9999? (o el numero que yo elija, segun su lugar de ubicacion en la linea)

bueno muchas gracias a todos saludos

Pues yo siempre trabajo con Strings parecidos, y por eso creé un módulo completo solo para manejarlos, y una de las funciones es ésta:

Código:

 
Function GetIndex(ByVal Cadena As String, ByVal Separador As String, ByVal Index As Integer) As String
Dim UlParada As Integer
Dim Buscar As Integer
Dim IIndex As Integer
If Right(Cadena, 1) <> Separador Then Cadena = Cadena & Separador
UlParada = 1
Do
	Buscar = InStr(UlParada, Cadena, Separador)
	If Buscar = 0 Then Exit Do
	If IIndex = Index Then
		GetIndex = Mid$(Cadena, UlParada, Buscar - UlParada)
		Exit Do
	End If
	IIndex = IIndex + 1
	UlParada = Buscar + 1
Loop
End Function

Los parámetros son fáciles de comprender, Cadena es el String que quieres separar, Separador en este caso sería ", " y Index es el que quieres leer, por ejemplo si tienes la cadena "10, 20, 30", si especificas Index 0 te devolverá "10".... Espero te sirva, y si quieres las demás funciones que contiene el módulo avísame.....

[GeoAvila]

en las faq's hay un ejemplo tambien..

nos vemos..

[Quemero]

hola gracias por contestar, pero no entiendo mucho asi que te pregunto unas cosas mas.
puse agregar modulo y el codigo que vos me diste lo pegue ahi.. esta bien no?

despues, en todos lados donde dice separador pongo "," ??? que pongo en cadena, ulparada ??? index es la linea que quiero leer??

donde pongo el archivo, por ejemplo "c:\datos.txt"

y lo ultimo...como llamo desde el formulario para que me busque en ese archivo. Es decir, en el formulario pongo un boton...y a ese boton que le pongo para que me haga lo que esta en el modulo???

[David]

Iniciado por Quemero

hola gracias por contestar, pero no entiendo mucho asi que te pregunto unas cosas mas.
puse agregar modulo y el codigo que vos me diste lo pegue ahi.. esta bien no?

despues, en todos lados donde dice separador pongo "," ??? que pongo en cadena, ulparada ??? index es la linea que quiero leer??

donde pongo el archivo, por ejemplo "c:\datos.txt"

y lo ultimo...como llamo desde el formulario para que me busque en ese archivo. Es decir, en el formulario pongo un boton...y a ese boton que le pongo para que me haga lo que esta en el modulo???

noooooo, el procedimiento no necesitas modificar ni mucho menos, solo llama al procedimiento, por ejemplo:

Código:

Variable = GetIndex("10, 20, 30, 40", ", ", 0)

En Variable te devolverá 10 que es el primer Index de la Cadena...

[David]

Y lo del Archivo puedes hacerlo con Open:
Open "MyFile.txt" For Input As #1
Line Input #1, Linea
Close
Te leerá la primera línea del Archivo y te devolverá en la Variable Linea, esa es la forma de manejar archivos...