how can I use two txtbox to enter aphanumeric value and change it

[cipher2079]

how can I use two txtbox to enter aphanumeric value and taking the first value of the textbox and placing it in the second txtbox with the numbers value being change to the actual wording (1,2 changes to one, two).

[willakawill]

how can I use two txtbox to enter aphanumeric value and taking the first value of the textbox and placing it in the second txtbox with the numbers value being change to the actual wording (1,2 changes to one, two).

Hi. What limits did you have in mind for these numbers?
For instance, do you want to have "one million five hundred thousand and forty two"

[cipher2079]

Hi. What limits did you have in mind for these numbers?
For instance, do you want to have "one million five hundred thousand and forty two"

up to 10 is fine

[cipher2079]

up to 10 is fine

can someone please help me I having such a hard time.

[willakawill]

can someone please help me I having such a hard time.

You can do it this way using an array and the Split() function

This works though there are no checks on the user input

    Dim stAr(10) As String
    Dim arInput As Variant
    Dim stOutput As String
    Dim intLoop As Integer
 
    stAr(0) = "zero"
    stAr(1) = "one"
    stAr(2) = "two"
    stAr(3) = "three"
    stAr(4) = "four"
    stAr(5) = "five"
    stAr(6) = "six"
    stAr(7) = "seven"
    stAr(8) = "eight"
    stAr(9) = "nine"
    stAr(10) = "ten"
 
    arInput = Split(Me.txtInput.Text, ",")
    For intLoop = 0 To UBound(arInput) - 1
        stOutput = stOutput & stAr(CInt(arInput(intLoop))) & ", "
    Next intLoop
    stOutput = stOutput & stAr(CInt(arInput(intLoop)))
    Me.txtOutput.Text = stOutput
 

[cipher2079]

You can do it this way using an array and the Split() function

This works though there are no checks on the user input

    Dim stAr(10) As String
    Dim arInput As Variant
    Dim stOutput As String
    Dim intLoop As Integer
 
    stAr(0) = "zero"
    stAr(1) = "one"
    stAr(2) = "two"
    stAr(3) = "three"
    stAr(4) = "four"
    stAr(5) = "five"
    stAr(6) = "six"
    stAr(7) = "seven"
    stAr(8) = "eight"
    stAr(9) = "nine"
    stAr(10) = "ten"
 
    arInput = Split(Me.txtInput.Text, ",")
    For intLoop = 0 To UBound(arInput) - 1
        stOutput = stOutput & stAr(CInt(arInput(intLoop))) & ", "
    Next intLoop
    stOutput = stOutput & stAr(CInt(arInput(intLoop)))
    Me.txtOutput.Text = stOutput
 

Thanks but can I actually use this with vb
I am actually trying to run it in VB 2005 express edition

[cipher2079]

Thanks but can I actually use this with vb
I am actually trying to run it in VB 2005 express edition

I really appreciate your help

Thanks again

[willakawill]

Thanks but can I actually use this with vb
I am actually trying to run it in VB 2005 express edition

I have no idea if this runs on .NET or not. Why not test it and see.
Put a couple of textboxes on a form with a button and paste this code into the button_click event. I tested the code with VB6

Let us know if it works.
Good luck

[cipher2079]

I have no idea if this runs on .NET or not. Why not test it and see.
Put a couple of textboxes on a form with a button and paste this code into the button_click event. I tested the code with VB6

Let us know if it works.
Good luck

Thanks for your reply,

everything seems to be fine however, I get an error "variable 'stOutput' is used before it has been assigned a value. A null refference exception could result at runtime" and is this vb coding? I think it is.

[willakawill]

Thanks for your reply,

everything seems to be fine however, I get an error "variable 'stOutput' is used before it has been assigned a value. A null refference exception could result at runtime" and is this vb coding? I think it is.

Try this just after the last Dim statement
stOutput = ""