none
Чтение из текстового файла Visual Basic 2008 експрес выпуск RRS feed

  • Вопрос

  • Используя код для чтения из текстового файла

    Dim

     

    myStream As Stream

     

     

    Dim openFileDialog1 As New OpenFileDialog()

    openFileDialog1.Filter =

     

    " (*.txt)|*.txt| (*.rtf)|*.rtf|All files (*.*)|*.*"

    openFileDialog1.FilterIndex = 2

    openFileDialog1.RestoreDirectory =

    True

     

    If openFileDialog1.ShowDialog() = DialogResult.OK Then

    myStream = openFileDialog1.OpenFile

     

    If (myStream IsNot Nothing) Then

    myStream.Close()

     

    End If

     

    End If

    файл не читается. Как ето исправить?

    • Перемещено SachinW 1 октября 2010 г. 21:28 MSDN Forums Consolidation (От:Начинающие разработчики)
    13 июля 2010 г. 19:00

Ответы

  • Всмысле не читается?

    Dim myStream As Stream
    Dim openFileDialog1 As New OpenFileDialog()
    openFileDialog1.Filter = " (*.txt)|*.txt| (*.rtf)|*.rtf|All files (*.*)|*.*"
    openFileDialog1.FilterIndex = 2
    openFileDialog1.RestoreDirectory = True
    If openFileDialog1.ShowDialog() = DialogResult.OK Then
      myStream = openFileDialog1.OpenFile
      If (myStream IsNot Nothing) Then
        Using sr As New StreamReader(myStream)
          MessageBox.Show(sr.ReadToEnd())'читаем и выводим
        End Using
        myStream.Close()
      End If
    End If
    


    • Помечено в качестве ответа I.Vorontsov 15 июля 2010 г. 5:10
    14 июля 2010 г. 16:29