Please solve it

Question

Dear friends In one of my interview i was asked this question. I have a string as Cognizant Technology Services I want to get the output as CTS How to get it Please give me the solution thanks

Satyapriya Nayak · Answer

Hi You can do it in two ways using Mid and Substring keyword. Mid way:- Dim x As String Dim x1 As String Dim x2 As String Dim x3 As String Dim x4 As String x = Cognizant Technology Services x1 = Mid(x 1 1) x2 = Mid(x 11 1) x3 = Mid(x 22 1) x4 = x1 + x2 + x3 MsgBox(x4) Substring way: Dim y As String Dim y1 As String Dim y2 As String Dim y3 As String Dim y4 As String y = Cognizant Technology Services y1 = y.Substring(0 1) y2 = y.Substring(10 1) y3 = y.Substring(21 1) y4 = y1 + y2 + y3 MsgBox(y4) Thanks

Vulpes · Answer

Here's another way to do it which works whatever the length of the individual words and regardless of how many spaces there are between the words: Dim text As String = Cognizant Technology Services Dim words As String() = text.Split(New Char() { c} StringSplitOptions.RemoveEmptyEntries) Dim firstLetters(words.Length) As Char For i As Integer = 0 To words.Length - 1 firstLetters(i) = words(i).Chars(0) Next Dim result As String = New String(firstLetters) Console.WriteLine(result) 'CTS