separar cadena en texto y numeros

[lexus]

Hola
como puedo separar una cadena en dos partes
la parte textual y la parte numerica?
ejemplo:

AAJRI123457

para guardarlo asi:
texto = "AAJRI"
numero = 123457

[lexus]

me auto respondo

Código:

 
function separarCadena(cadena, queRetornar)
 dim  largo,i, caracter,  strNumero, strLetra
 largo = len(cadena)
 for i = 1 to largo
  caracter = right(left(cadena,i),1)
  if isnumeric(caracter) then
   strNumero = strNumero&caracter
  else
   strLetra = strLetra&caracter
  end if
 next
 if queRetornar = 1 then
  separarCadena =  strLetra
 else
  separarCadena = strNumero
 end if
end function

[Myakire]

mmmmmmmmmmmmmm

Primero, esa función te regresa los números o lo que no es número de un parámetro string que le mandes, no te separa la cadena de texto conforme el ejemplo como lo solicitas en tu primer post (parece un RFC o algo así). Si tu cadena es "ABC1212CB334" te regresa con un 1 en el segundo parámetro un "ABCCB", si eso es lo que ocupas pues esta bien.

Segundo, si tienes que separar tanto los caracteres como los números para darles uso a cada uno, así como está, debes llamarla dos veces, lo que no es muy optimizado que digamos. Yo usuaria parámetros por referencia:

Código asp:

function Separar(ByVal Cadena, ByRef sNumeros, ByRef sCadena)
For i=1 To Len(Cadena)
  c = MID(Cadena,i,1)
  if IsNumeric(c) Then 
       sNumeros = sNumeros & c
    else 
       sCadena = sCadena & c
    End If  
Next
End function
 
cadena = "ABC123DEF123G"
 
call Separar(cadena, sNumeros, sCadena)
Response.write sCadena & "<br>"
Response.write sNumeros & "<br>"
 

Ya si usas Option Explicit pues debes definir primero los parámetros como variables.

Saludos

[lexus]

hola gracias por la colaboracion..
la verdad si lo que necesito es separar en un lado las letras o caracteres y en el otro lado los numeros..

y la funcion solo la usare una vez, solo cuando necesite mostrar los numeros la llamo
la parte de letras casi no la usare pero lo puse ahi por si algun dia la necesito llamar.

asi tal cual como esta me sirvio para mis fines.. de todos modos te agradezco muchisimo el interes y la ayuda..