String Pattern : Alternet Character Capital

[abhideshpande001]

Hi, I need help from you guys.

Input String: abhijit abhijit
O/p String: aBhIjIt AbHiJiT

I need a script to get alternate character Capital.

[supputuri]

Quick Snippet

Code:

input = "abhijit abhijit" For i = 1 To len(input) Step 1 If i mod 2 = 0 Then outPut = output & Ucase(Mid(input,i,1)) Else outPut = output & Mid(input,i,1) End If Next msgbox output

[abhideshpande001]

Thanks for Reply. But this code is not handling space. It should not consider space and should make next character Capital/Small

Input: a a a a
O/p: a A a A

[supputuri]

here is the updated code.

Code:

input = "abhijit abhijit" charCounter = 1 For i = 1 To len(input) Step 1 char = Mid(input,i,1) If char <> " " Then If charCounter mod 2 = 0 Then outPut = output & Ucase(char) Else outPut = output & lcase(char) End If charCounter = charCounter + 1 else output = output & char End If Next msgbox output

Note:- I have done it based on the pure requirement in this query. Ideally we have to check if the value is an alphabet and then change the case.

[abhideshpande001]

Thanks a Ton