¿Seria posible extraer una porción del texto de un cuadro de texto si se desconoce su tamaño?
Seria posible extraer una porción del texto de un cuadro de texto si se desconoce el tamaño de la porción que queremos extraer, por ejem. Del texto "X:\DOCS\AMIGAS\xpxpxpxp.JPG", extraer "xpxpxpxp" sin la extensión. Muchas gracias por vuestra ayuda.
1 Respuesta
Respuesta de Elsa Matilde
1
Si es posible utilizando un par de funciones.
El ejemplo que te desarrollo, fue hecho en un form, donde tengo un campo descripción y otro cuadro de texto donde envío lo extraído.
El evento que ejecuta esta rutina es al perder el foco del campo descripción pero ya verás en que evento te resulte mejor.
Private Sub descripcion_LostFocus()
Dim pos1 As Integer, pos2 As Integer, total As Integer
Dim busco As String
'la variable guarda el contenido total del campo
busco = Me.descripcion
'busca la posicìón de la última barra
pos1 = InStrRev(busco, "\", -1, 1)
'busca la posición del punto
pos2 = InStrRev(busco, ".", , 1)
'calcula el largo del texto resultante
total = pos2 - pos1
Texto2.Value = Mid(busco, pos1 + 1, total - 1)
End Sub
Pruébalo y si te resulta no olvides finalizar.
El ejemplo que te desarrollo, fue hecho en un form, donde tengo un campo descripción y otro cuadro de texto donde envío lo extraído.
El evento que ejecuta esta rutina es al perder el foco del campo descripción pero ya verás en que evento te resulte mejor.
Private Sub descripcion_LostFocus()
Dim pos1 As Integer, pos2 As Integer, total As Integer
Dim busco As String
'la variable guarda el contenido total del campo
busco = Me.descripcion
'busca la posicìón de la última barra
pos1 = InStrRev(busco, "\", -1, 1)
'busca la posición del punto
pos2 = InStrRev(busco, ".", , 1)
'calcula el largo del texto resultante
total = pos2 - pos1
Texto2.Value = Mid(busco, pos1 + 1, total - 1)
End Sub
Pruébalo y si te resulta no olvides finalizar.
