Convertir alfanumérico a numérico

[acuellar]

Amigos

Existe alguna función
Ej:
Para convertir "AB12345" a 12345
"K1234#" a 1234
"1234H1.1" a 123411

Con Val retorna siempre 0

Gracias por la ayuda.

Saludos,


Adhemar

[cnavarro]

Adhemar, no se si existe alguna funcion, pero esto lo uso yo

Code: Select all  Expand view

#include "fivewin.ch"


Function Main()

        ? uCharToVal( "AB123K45" )
Return nil

Function uCharToVal( cCad )

   Local x
   Local cTmp
   Local cVal  := ""
   
   For x = 1 to len( cCad )
       cTmp := Substr( cCad, x, 1 )
       if Asc( cTmp ) >= 48 .and. Asc( cTmp ) <= 57
          cVal += cTmp
       endif
   Next x
   
Return Val( cVal )

 

[acuellar]

Gracias Cristobal

Algo parecido tengo

Code: Select all  Expand view

   nNIT:=""
   cNIT:="1AB123.455h"
   For I=1 to Len(cNIT)
      Car:=Subs(cNit,I,1)
      nNIT+=If(Asc(Car)>47 .and. Asc(car)<58,Car,"")
   Next I
   nNIT:=Val(nNIT)
 

Lo dejaré así.

Quizas Antonio incorpore una Función que se llame StrToVal()

Saludos,

Adhemar