Recoger nºcaracteres de una cadena

[astrow25]

Hola, tengo una cadena tipo:

ABC2540, y lo quisiera coger es el nº de caracteres de 2540 y eso restarlo un nº de caracteres recogidos en un textbox.

Como lo haria, es decir

Si tengo ABC2540, 2540 tiene 4 y le resto 20, me dara 16 caracteres

GRacias

[David]

Iniciado por astrow25

Hola, tengo una cadena tipo:

ABC2540, y lo quisiera coger es el nº de caracteres de 2540 y eso restarlo un nº de caracteres recogidos en un textbox.

Como lo haria, es decir

Si tengo ABC2540, 2540 tiene 4 y le resto 20, me dara 16 caracteres

GRacias

??? I don't understand... a ver, se supone que tienes ABC2540 y quieres tomar 2540, esto seria:

Código:

 
Dim Parte As String
Parte = Right("ABC2540",4)

[Ultra Putrefactus]

Por lo que entendi yo haria lo siguiente:

Sub Main()
dim StrAuz As String

StrAux="ABC2540"
Msgbox LargoParteNumerica

End Sub
Private Function LargoParteNumerica(Byval s As String) As Integer
dim a As String
dim I As Integer

a=""
For I=1 To Len(s)

If Isnumeric(Mid(s,I,1)) then

a=a & Mid(s,I,1)

End If

Next I
LargoParteNumerica=Len(Trim(a))

End Function

[David]

Esto seria que quiere extraer la parte numerica del String, ahi si se entiende un poco, a ver:

Código:

 
Function TheFunction()
Dim I As Integer
Dim NumericPart As String
For I = 1 To Len("ABC1234")
    If Not IsNumeric(Right("ABC1234",I)) Then
         NumericPart = Right("ABC1234", I-1)
         Exit For
    End If
Next I
TheFunction = Len(Text1) - Len(NumericPart)
End Function