[SOLUCIONADO] Coger parte de un string

[maialenlopez]

Hola,
Necesito vuestra ayuda. Tengo un str1 con lo siguiente 12_NA_GSC_201_GFIAT y necesito coger en una variable (valor) el valor que se encuentra entre la segunda "_" y la tercera "_" es decir que valor = GSC y si str1 = 28_UN_APS_851_GFIAT que la variable valor = APS.

Como puedo hacerlo?

Gracias

[erbuson]

Hola:
Suponiendo que pudieses delimitar distintos separadores, podrías utilizar algo similar a esto:

Código vb:

Private Function DatoEntre(Origen As String, Desde As String, Hasta As String) As String
  Dim Inicio As Integer, Fin As Integer
  Inicio = InStr(Origen, Desde) 
  Fin = InStr(Origen, Hasta)
  If Inicio = 0 Or Fin = 0 Then Exit Function
  Inicio = Inicio + Len(Desde)
  DatoEntre = Trim$(Mid(Origen, Inicio, Fin - Inicio - 1))
End Function
 

Esta funcion te permite 'coger' el dato contenido entre dos palabras, por ejemplo, pero en tu caso dudo que te sirva, de todos modos al desconocer si todos los registros tienen la misma extructura es dificil darte una solución.

Si son todos iguales en forma, simplemente debes utilizar la funcion MID$ para conseguir los datos deseados.

Saludos

[maialenlopez]

Siempre tienen la misma estructura pero pueden ser de distinta longitud. Lo único que se es que tengo que coger lo que esta entre el segundo "_" y el tercer "_".

[erbuson]

Hola:

Si el primer _ siempre esta en la misma posicion, simplente debes utilizar la sentencia Mid$ para extraer el dato que necesitas.

En el ejemplo que pones, suponiendo que Registro = "12_NA_GSC_201_GFIAT"

Valor = MID$(Registro, 7, 3) entonces Valor = "GSC"

Si no es así, pon un ejemplo de unas cuantas de las lineas que puedes encontrar y lo comentamos.

Un saludo

[maialenlopez]

Iniciado por erbuson

Hola:

Si el primer _ siempre esta en la misma posicion, simplente debes utilizar la sentencia Mid$ para extraer el dato que necesitas.

En el ejemplo que pones, suponiendo que Registro = "12_NA_GSC_201_GFIAT"

Valor = MID$(Registro, 7, 3) entonces Valor = "GSC"

Si no es así, pon un ejemplo de unas cuantas de las lineas que puedes encontrar y lo comentamos.

Un saludo

Así si me vale!!! Gracias. Si, siempre el segundo _ esta en la misma posición.
Muchisimas gracias!! eso es lo que necesito.

Un saludo

[pkj]

Solo tienes que currartelo un poco con instr y sacarlo con mid$

Código vb:

Private Sub Command1_Click()
  Dim Cadena As String
  Dim Resultado As String
  Cadena = "12_NA_GSC_201_GFIAT"
  Resultado = Extraer_De(Cadena)
  If Resultado = "" Then
    MsgBox "No se ha encontrado la referencia"
  Else
    MsgBox Resultado
  End If
End Sub
 
Private Function Extraer_De(ByVal Cadena As String) As String
  Dim Pos1 As Long
  Dim Pos2 As Long
  On Local Error GoTo Error1
  Pos1 = InStr(1, Cadena, "_")
  If Pos1 <> 0 Then
    Pos1 = InStr(Pos1 + 1, Cadena, "_")
    If Pos1 <> 0 Then
      Pos2 = InStr(Pos1 + 1, Cadena, "_")
      If Pos2 <> 0 Then
        Extraer_De = Mid$(Cadena, Pos1 + 1, Pos2 - Pos1 - 1)
      End If
    End If
  End If
Error1:
  Err.Clear
End Function
 

Esto te sirve con cualquier longitud de cadena.