fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
		Function GetTopLevelAreas(areas As String) As String
	Dim topLevelAreas = New System.Collections.Generic.List(Of String)()
	Dim areasList = New System.Collections.Generic.List(Of String)()
 
	Dim areasCollection = areas.Split(","C)	
 
	For Each area As String In areasCollection
		areasList.Add(area)
	Next
 
	While areasList.Count > 0
		For Each topLevelArea As String In GetCurrentTopLevelAreas(areasList)
			topLevelAreas.Add(topLevelArea)
 
			For i As Integer = areasList.Count - 1 To 0 Step -1
				If areasList(i).StartsWith(topLevelArea) Then
					areasList.Remove(areasList(i))
				End If
			Next
		Next
	End While
 
	Dim str = String.Empty
 
	For Each topLevelArea As String In topLevelAreas
		str += topLevelArea + ","
	Next
 
	Return str.Remove(str.LastIndexOf(","))
End Function
 
Function GetCurrentTopLevelAreas(areas As System.Collections.Generic.List(Of String)) As System.Collections.Generic.List(Of String)
	Dim currentTopLevelAreas = New System.Collections.Generic.List(Of String)()
	Dim min = 0
 
	For Each area As String In areas
		Dim count = area.Split("\"C).Length - 1
 
		If min = 0 Then
			min = count
		ElseIf count < min Then
			min = count
		End If
	Next
 
	For Each area As String In areas
		If area.Split("\"C).Length - 1 = min Then
			currentTopLevelAreas.Add(area)
		End If
	Next
 
	Return currentTopLevelAreas
End Function
 
	End Sub
End Class

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/9llP0H/prog.vb (5,28) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/9llP0H/prog.vb (5,28) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/9llP0H/prog.vb (59,9) : Error VBNC90019: Expected 'Class'.
Error recovery not implemented yet.
/home/9llP0H/prog.vb (59,9) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/9llP0H/prog.vb (59,9) : Error VBNC30203: Not valid as identifier.
/home/9llP0H/prog.vb (60,10) : Error VBNC30203: Not valid as identifier.
There were 6 errors and 0 warnings.
Compilation took 00:00:00.6880140

Standard output is empty