Imports System
Imports System.Text
Imports System.Collections.Generic
Public Class Program
Public Shared Function GetCommonCharacters(ByVal str1 As String, ByVal str2 As String) As String
Dim commonChars As HashSet(Of Char) = New HashSet(Of Char)()
For Each ch As Char In str1
If ch <> " "c AndAlso str2.Contains(ch) Then
commonChars.Add(ch)
End If
Next
Dim sb As StringBuilder = New StringBuilder()
For Each ch As Char In commonChars
sb.Append(ch)
Next
Return sb.ToString()
End Function
Public Shared Sub Main(ByVal args As String())
Dim str1 As String = "c c++ c# java go"
Dim str2 As String = "python nodejs php javascript"
Dim strcommon As String = GetCommonCharacters(str1, str2)
Console.WriteLine("Same letters are: " & strcommon)
End Sub
End Class
' run:
'
' Same letters are: cjavo
'
