VB.NET reversing a string without using the string Reversal functions

[steezli]

Hi,

Brand new to VB.NET and I'm having a problem figuring out this program. I'll try and be descritive as possible.


I have to create a Windows application that contains a single top-level form with two textboxes on it, on positioned above the other. As each character is entered into the upper textbox, the string that has been entered into the upper textbox must appear in the lower textbox, but in reverse. If the input field contains any digits (0 through 9), each such digit must be translated into its corresponding English name reading in correct left-to-right order, followed by a space character. For example, if the string that has been entered into the upper textbox is “abc123def” the string displayed in the lower textbox must be “fedThree Two One cba” I can't use of any string reversal functions that are included so I'm guessing I have to do a recursive reversal?


I'm using WinXP and Visual Studio 2005

[Shashi Sadasivan]

try this.

Array.Reverse(textBox1.text.ToCharArray())

if you then want to convert 1 to One and 2 to Two, etc....
use the replace method of the string.

cheers

[classic244]

Hey this should do...

One way:

Public Function ReverseString(B yRef strToReverse As String) As String
Dim result As String = ""
For i As Integer = 0 To strToReverse.Le ngth - 1
result += strToReverse(st rToReverse.Leng th - 1 - i)
Next
Return result
End Function

Another Way :

Public Function ReverseString(B yRef strToReverse As String) As String
Dim swap as Char = ""
For i As Integer = 0 To strToReverse.Le ngth/2
swap = strToReverse(i)
strToReverse(i) = strToReverse(st rToReverse.Leng th - 1 - i)
strToReverse(st rToReverse.Leng th - 1 - i) = swap
Next
End Function

[jamesd0142]

Reverse a textbox.text

 TextBox2.Clear()
        Dim j As Integer = Len(TextBox1.Text)
        For i As Integer = 0 To Len(TextBox1.Text) - 1
            TextBox2.Text += Mid(TextBox1.Text, j - i, 1)
        Next
 

This should be what you need though...

   Dim a As String
        TextBox2.Clear()
        Dim j As Integer = Len(TextBox1.Text)
        For i As Integer = 0 To Len(TextBox1.Text) - 1
            a = Mid(TextBox1.Text, j - i, 1)
            If a = "1" Then
                TextBox2.Text += "ONE "
            ElseIf a = "2" Then
                TextBox2.Text += "TWO "
                'elsif...(add all umbers like this...
            Else
                TextBox2.Text += Mid(TextBox1.Text, j - i, 1)
            End If
        Next