Открытие блокнота с кнопки в VB.net

Я хочу создать кнопку в VB.net, которая позволяет мне просматривать мой жесткий диск для указанного файла блокнота, который я хочу открыть, и получить из него содержимое, я только пытался использовать FileStream и StreamReader, но это не позволит мне вручную выбрать блокнот вместо этого я должен объявить имя файла по умолчанию. Буду признателен за любые примеры кодов заранее, мне просто нужна отправная точка. Я действительно застрял в этом.

Этот код я использую прямо сейчас, но я должен указать на нем правильное имя файла:

        Dim fStream As New System.IO.FileStream("messages.txt", IO.FileMode.Open)
        Dim sReader As New System.IO.StreamReader(fStream)
        Dim Index As Integer = 0
        Do While sReader.Peek >= 0
            ReDim Preserve sArray(Index)
            sArray(Index) = sReader.ReadLine
            Index += 1
        Loop

vb.net notepad
person Marc Intes    schedule 10.07.2013    source источник
comment
Вы хотите открыть Блокнот или блокнот файл? Эти два очень разные, и ваш вопрос не ясно, что вы имеете в виду.   -  person RoadieRich    schedule 10.07.2013

Ответы (2)


arrow_upward
0
arrow_downward

Я думаю, вы можете использовать неправильный подход с FileStream. Вместо этого позвольте пользователю выбрать файл, а затем используйте Process.Start, чтобы открыть Блокнот.

Взгляните на здесь примеры выбора файла. На странице здесь приводится подробная информация о Process.Start.

Я рад предоставить больше примеров кода прямо здесь, но этих двух страниц должно быть достаточно.

person Nick    schedule 10.07.2013
comment
Спасибо, чувак, это действительно мне очень помогло. теперь я могу продолжать свою работу. - person Marc Intes; 10.07.2013

arrow_upward
1
arrow_downward

Если я правильно понимаю ваш вопрос, вы хотите иметь возможность выбрать, какой текстовый файл открывать, если это так, вы можете попробовать это:

Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    Try
        stream = openFileDialog1.OpenFile()
        If (stream IsNot Nothing) Then
            //do your loop here
        End If
    Catch Ex As Exception
        MessageBox.Show(Ex.Message)
    Finally
        If (stream IsNot Nothing) Then
            stream.Close()
        End If
    End Try
End If
person jomsk1e    schedule 10.07.2013
comment
Большое спасибо, я буду использовать это как одно из моих руководств. - person Marc Intes; 10.07.2013