Auto Incrementing letters

Question

1.00/5 (1 vote)

See more:

I am currently busy on a program in which when a record is added i need to increment a letter in a text box. Please could someone help me with incrementing letters , have never done it before?

thanks

Posted 13-Nov-12 1:55am

isi19

Add a Solution

3 solutions

Solution 1

Hi
You will need to load the the alphabet in an array

VB

Dim letters(25) As String

letters(0) = "A"
letters(1) = "B"
letters(2) = "C"
letters(3) = "D"
letters(4) = "E"
etc.

Then You will need to grab the Text box's contents.

VB

Dim letterGrab As String

letterGrab = tbLetter.Text

Now get the letter's index

VB

Dim found As Boolean = False
Dim FoundIndex As Integer = 0
For i As Integer = 0 To 25

    If letters(i) = letterGrab Then
        found = True
        FoundIndex = i
        Exit For
    End If
Next

Finally get the new Letter and put it in the text box

VB

If found = True Then
    FoundIndex = FoundIndex + 1
    tbLetter.Text = letters(FoundIndex)
        
Else
'What to do if end of array reached
End If

If you need case insensitive comparison, change code block 3 to this:

VB

Dim found As Boolean = False
Dim FoundIndex As Integer = 0
For i As Integer = 0 To 25
Dim CaseDiff As Integer  = String.Compare(letters(i), letterGrab, True)

    If CaseDiff = 0 Then
        found = True
        FoundIndex = i
        Exit For
    End If
Next

Hope This Helps
Jacques

Posted 13-Nov-12 2:58am

Jacques Loubser

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CPallini · Accepted Answer · 2012-11-13T03:15:00

Try this code
(for sake of simplicity it assumes the input string being uppercase)

VB

Public Function Increment(ByVal s As String) As String
    Dim index As Integer = s.Length - 1
    Dim n As Integer
    While index > 0 And s.Chars(index) = "Z"
        index = index - 1
    End While

    Increment = ""
    For n = 0 To index - 1
        Increment = Increment + s.Chars(n)
    Next

    If index > 0 Then
        Increment = Increment + Microsoft.VisualBasic.ChrW(Microsoft.VisualBasic.AscW(s.Chars(index)) + 1)


        For n = index + 1 To s.Length - 1
            Increment = Increment + "A"
        Next
    Else
        Increment = "A" + s
    End If

End Function


Sub Main()
    Dim nxt As String
    nxt = Increment("ZZABZZ")
End Sub

isi19 · Accepted Answer · 2012-11-13T03:30:00

Solution 3

Thanks for all the help
i have found an easier solution

Dim letter As String = "A"
letter = Chr(Asc(letter) + 1)
Me.letter.Text = letter

Posted 13-Nov-12 3:30am