Visual Basic

Faruk Ansari wrote:

The results were as expected, but when I added this form to my MDI app, where it is supposed to be used, it does not display the groups, but the rest of the column data is displayed fine. I have tried everything I knew off but no luck.

string[] lines = File.ReadAllLines( <FILEPATH> );

<br />
        Dim FILE_NAME As String = "C:\test.txt"<br />
        Dim tmpLine As String = ""<br />
<br />
<br />
        If System.IO.File.Exists(FILE_NAME) = True Then<br />
<br />
            Dim objReader As New System.IO.StreamReader(FILE_NAME)<br />
<br />
            Do While objReader.Peek() <> -1<br />
<br />
                tmpLine = objReader.ReadLine()<br />
                If Mid(tmpLine, 1, 1) = "1" Then<br />
                    ' Your code for command 1<br />
                ElseIf Mid(tmpLine, 1, 1) = "2" Then<br />
                    ' Your code for command 2<br />
                Else<br />
                    ' Your code for anything else<br />
                End If<br />
            Loop<br />
<br />
<br />
<br />
        Else<br />
<br />
            MsgBox("File Does Not Exist")<br />
<br />
        End If<br />

SELECT COUNT( DISTINCT( CityName ) ) AS DistinctCities FROM myTable

<br />
Dictionary<integer, integer=""> dictMaxAndIndex = new Dictionary<integer, integer=""><br />
For zahl = 0 To Intens_Array.GetUpperBound(0)<br />
If Intens_Array(zahl) = 0 Then<br />
dictMaxAndIndex.Add(Max, zahl)<br />
Max = 0<br />
Else<br />
If Max < Intens_Array(zahl) Then<br />
Max = Intens_Array(zahl)<br />
End If<br />
End If<br />
Next<br />
</integer,></integer,>

<br />
Dim Intens_Array() As Double = {0, 0, 0, 0, 0, 0, 2, 3, 9, 8, 1, 4, 5, 0, 0, 0, 0, 0, 0, 0, 5, 4, 9, 4, 8, 4, 3, 0, 0, 0, 0, 0, 0, 5, 4, 3, 2, 2, 6, 0, 0, 0}<br />
        Dim Intens_Array1() As Double<br />
        Dim Max As Integer = 0<br />
        Dim zahl, zahl1 As Integer<br />
        Dim Index As Integer = 0<br />
        Dim dictMaxAndIndex As New Dictionary(Of Int16, Int16)<br />
<br />
        'Dictionary(dictMaxAndIndex = New Dictionary)<br />
        For zahl = 0 To Intens_Array.GetUpperBound(0)<br />
            If Intens_Array(zahl) = 0 Then<br />
                dictMaxAndIndex.Add(zahl, Max)<br />
                Max = 0<br />
            Else<br />
                If Max < Intens_Array(zahl) Then<br />
                    Max = Intens_Array(zahl)<br />
                End If<br />
            End If<br />
        Next<br />
        For zahl1 = 0 To dictMaxAndIndex.Count - 1<br />
            Console.WriteLine("For key = ""3"", value = {0}.", _<br />
                        dictMaxAndIndex("3"))<br />
        Next<br />
                System.Console.ReadLine()<br />