Alternating toUpper

[Flubleah]

Hi there,

I'm trying to create a function to make alternating uppercase and lowercase letters of a string using loops. e.g: funny = FuNnY or judge = JuDge

Dim a As String = TextBox9.Text
Dim b As String
Dim d As String
For i As Integer = 0 To a.Length - 1 Step 2
Dim c As String = a(i)
b = b & d & c.ToUpper
For o As Integer = 1 To a.Length - 1 Step 2
Dim f As String = a(o)
d = d & f.ToLower
Next
Next
TextBox9.Text = b

(in a private sub for a button click)

unfortunately this only works for 3 letter words... I'm stuck.. any advice is MUCH appreciated!!

thanks!

[ubentook]

Are you really sure the code you posted worked?

Function NotFunny(ByRef strText As String) As String
 On Error GoTo HandleError
 Dim n As Long
 Dim lngDivisor As Long
 Dim strTemp As String
 strTemp = strText
 lngDivisor = 2
 
 For n = 1 To Len(strTemp)
  If n Mod lngDivisor <> 0 Then
     Mid$(strTemp, n, 1) = UCase(Mid$(strTemp, n, 1))
  Else
     Mid$(strTemp, n, 1) = LCase(Mid$(strTemp, n, 1))
  End If
 Next
 
 NotFunny = strTemp
 Exit Function
HandleError:
 MsgBox "There is no hope."
End Function

[QVeen72]

Hi,

Try This :

Dim a As String = TextBox9.Text
Dim b As String = ""
For i As Integer = 0 To a.Length - 1
    If i Mod 2 = 0 Then
        b = b & a.SubString(i,1).ToUpper
    Else
        b = b & a.SubString(i,1).ToLower
    End If
Next
TextBox9.Text = b
 

Regards
Veena