Please solve it

Dibya ranjan

15y1.8k

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

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Satyapriya Nayak15y ago
Accepted 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
Vulpes15y ago
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