12,071,437 members (33,447 online)
Rate this:
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 2:55am
isi19520

Rate this:

## Solution 2

Try this code
(for sake of simplicity it assumes the input string being uppercase)
```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```
Rate this:

## 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
Rate this:

## Solution 1

Hi

You will need to load the the alphabet in an array
```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.
```Dim letterGrab As String

letterGrab = tbLetter.Text```
Now get the letter's index
```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
```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:

```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

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

Top Experts
Last 24hrsThis month
 OriginalGriff 375 Dave Kreskowiak 240 F-ES Sitecore 180 Richard MacCutchan 155 Sergey Alexandrovich Kryukov 108
 Dave Kreskowiak 2,396 OriginalGriff 1,799 Richard MacCutchan 1,675 CHill60 1,219 CPallini 1,212

Advertise | Privacy | Mobile
Web04 | 2.8.160208.1 | Last Updated 13 Nov 2012