vb Dictionary, Linq examples | C# Online Compiler

vb Dictionary, Linq examples by TrukDeutschbein

Imports System
Imports System.Collections.Generic
Imports System.Linq

				
Public Module Module1
	Public Sub Main()
		
		Dim content as New Dictionary(Of String,List(Of String))
		Dim temp as String = "zh-CN,de-DE"
		Dim mList as List(Of String) 
		mList = (From s In temp.Split(",") Select s).ToList()
		
		content.Add("1",(From s In temp.Split(",") Select s).ToList())
				
				temp = ""
				
		content.Add("2",(From s In temp.Split(",") Select s).ToList())
		
		if content.ContainsKey("1") then 
			Console.WriteLine("Yes, it has one.")
		end if	
		
					for each item in content
					Console.WriteLine(item.Key + " :: " + item.value(0))
				next
				mList.Sort()
				Dim tmpStr as string = "<body data-lang=""" + String.Join(" ", mList.ToArray())+ """>"
					
				Console.WriteLine("<body data-lang=""cd-FD zh-CN  de-DE"">")
				Console.WriteLine(tmpStr)
	End Sub
End Module

​x
 
Imports System
Imports System.Collections.Generic
Imports System.Linq
​
                
Public Module Module1
    Public Sub Main()
        
        Dim content as New Dictionary(Of String,List(Of String))
        Dim temp as String = "zh-CN,de-DE"
        Dim mList as List(Of String) 
        mList = (From s In temp.Split(",") Select s).ToList()
        
        content.Add("1",(From s In temp.Split(",") Select s).ToList())
                
                temp = ""
                
        content.Add("2",(From s In temp.Split(",") Select s).ToList())
        
        if content.ContainsKey("1") then 
            Console.WriteLine("Yes, it has one.")
        end if  
        
                    for each item in content
                    Console.WriteLine(item.Key + " :: " + item.value(0))
                next
                mList.Sort()
                Dim tmpStr as string = "<body data-lang=""" + String.Join(" ", mList.ToArray())+ """>"
                    
                Console.WriteLine("<body data-lang=""cd-FD zh-CN  de-DE"">")
                Console.WriteLine(tmpStr)
    End Sub
End Module

Yes, it has one.
1 :: zh-CN
2 ::
<body data-lang="cd-FD zh-CN de-DE">
<body data-lang="de-DE zh-CN">

Cached Result
Last Run:	11:19:22 pm
Compile:	0.296s
Execute:	0.004s
Memory:	0b
CPU:	0s

View IL Code