Ayuda Como puedo Pasar Valores de texto a numero

[agus0]

Buenas....
Un consulta les queria hacer alguie tiene idea como Puedo Hacer para pasar letras a numeros
Por ejemplo yo tengo el codifo

rl3245-1245 me quede 9123224501235

quedarian los originale 912[32245]0[1235] y el resto seria los que transformamos a Nnumero

En realidad estoy tratando de hacer un algoritmo con numeros de Serie que apartir de este numero de serie y despues de ciertos calculos matematicos obtener la serial que le pediria al usuario.

Desde ya muchas Gracias...

[FTech]

Si se puede.
Ahora bien, supongo que "rl" = 912, tu sabes su equivalencia, es decir la formula matemática para convertirlo, con eso bastará.

[agus0]

Pero como lo utrilizo por que supongamos que establesco la constante rl = 512 por ejemplo cuando el programa me devuelva rl va a poner "rl" no 512.

Por ejemplo: si yo pongo text1.text= "rl7788" el textbox no va a decir 512 + "7788"

[FTech]

Mira te dejo un ejemplo, espero que te sirva:

Código vb:

Dim eqstr as integer
Dim pos as integer
Dim mystring, str as string
Dim seqstr as string
mystring="HOLA MUNDO"
str="MU"
eqstr=512
sqestr=CStr(eqstr)
mystring=replace(mystring,str,sqestr,,,vbTextCompare)
msgbox mystring
 

[agus0]

Me sirvio! 100 Gracias!

[agus0]

Tengo una duda como hago para asignarle a cada letra del abcdario un numero...?

Me explico?

[FTech]

Puedes crearte un array con el abecedario completo. Te doy un ejemplo:

Array()= {A,B,C,D,E....,Z}

Puedes ver que a la letra A le corresponde un 1 o 0 dependiendo en que lenguaje trabajes.

O sino directamente trabaja con ASCII.

Un Saludo!

[agus0]

Disculpa soy nuevo en esto no entiendo como le asignaria el valor me puedes dar un pequeño ejemplo
suponiendo que a valla a ser 1 b sea 2.

Muchas gracias

[FTech]

Te dejo un ejemplo:

Código vb:

Private Sub Command1_Click()
Dim a(4) As String
Dim i As Integer
Dim e As Boolean
a(0) = "A"
a(1) = "B"
a(2) = "C"
a(3) = "D"
i = 0
e = False
While i < 4 And Not e
    If a(i) = Text1.Text Then
        e = True
    End If
    i = i + 1
Wend
If e Then
    Label1.Caption = Label1.Caption & "Encontrado: " & Text1.Text & " =" & i
End If
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Command1.Caption = "Traducir"
End Sub
 

Un saludo!

[agus0]

graciasssS!

[agus0]

gRACias pero...

Con ese codigo no es muy uutil por que solo me cabia el numero si esta solo es decir "A" pone 1 pero si Pongo "ARBOL" NO ME PONE "1r2ol", no pone nada...:S

Desde ya Muchisimismas gracias...

[FTech]

Es que claro. ARBOL es una cadena, y A es un carácter. ¿Entonces que podrías hacer? Pues simplemente separar cada caacter buscarlo en tu "abecedario" y luego utilizar replace.

Un saludo!