Cita:
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.....