Работа с текстовым файлом

[Vitek.i]

Всем привет!!! есть у меня такой вот код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Label1.Text = "Выбран файл " & OpenFileDialog1.FileName

???????

Else
Label1.Text = "Файл не выбран"
End If

End Sub


он открывает файл TXT, и мне из него необходимо считать данные, но в определённой последовательности (9 строк нужны 3 нет), и потом по этому отфильтрованному ряду построить график. если с кодом можно помогите

Спасибо за понимание!!!!

[EducatedFool]

Какое отношение ваша проблема имеет к Excel и VBA, который обсуждаются в этом разделе форума?

Не знаете, как считать содержимое текстового файла в переменную?
Не получается распарсить текст, взяв только содержимое нужных строк?
Не выходит вставить данные на лист, или построить по ним диаграмму?

PS: C VB.net помочь не смогу - не знаю синтаксиса...

[doober]

Imports System.IO
Imports System.Collections.Specialized
Public Class Form1
    Dim Rez
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Label1.Text = "Выбран файл " & OpenFileDialog1.FileName
            Rez = MY_Stroka(OpenFileDialog1.FileName)
        Else
            Label1.Text = "Файл не выбран"
        End If
    End Sub

    Function MY_Stroka(ByVal FileName As String) As StringCollection
        Dim myCol As New StringCollection()
        Dim I As Integer = 0
        Dim StreamToDisplay As StreamReader
        StreamToDisplay = New StreamReader(FileName, System.Text.Encoding.Default)
        Dim myratgh As String, CL As Integer
        Do
            Application.DoEvents()
            myratgh = StreamToDisplay.ReadLine
            I = I + 1
            CL = I Mod 12
            Select Case CL
                Case 10, 11, 0
                Case Else
                    myCol.Add(myratgh)
            End Select
        Loop Until StreamToDisplay.EndOfStream = True
        StreamToDisplay.Close()
        Return myCol
    End Function

End Class

[Vitek.i]

изиняюсь за наивнось, прокоментирууте пожалуйста, прям в тексте программы