2

openfiledialog を使用してファイルを開く方法

以下は私のコードです：

Dim Fs As StreamReader
    With OpenFD
        .FileName = ""
        .Title = "Open Text File"
        .InitialDirectory = "c:\"
        .Filter = "Text files|*.txt"
        .ShowDialog()
    End With
    Dim path As String = OpenFD.FileName
    txtin.Text = OpenFD.FileName
    Fs = New StreamReader(path)

ファイルのパスを取得できます。しかし、ファイルを開くことができません。誰でも助けることができます。前もって感謝します

4

3 に答える 3

2

テキスト ファイル全体を読みたい場合は、System.IO.File.ReadAllLines. 次のように行うことができます。

Dim readText() As String = System.IO.File.ReadAllLines(path)

ファイルは文字列配列に格納され、インデックスで各行にアクセスできます。

于 2013-03-26T18:24:51.657 に答える
0

これを試して。それはうまくいくはずです。

Dim sr As StreamReader

'Supposing you haven't already set these properties...
    With OFD
        .FileName = ""
        .Title = "Open a text file..."
        .InitialDirectory = "C:\"
        .Filter = "Text Files|*.txt"
    End With

    If OFD.ShowDialog() = DialogResult.OK Then
        Try
            sr = New StreamReader(OFD.Filename)
            txtInFile.Text = OFD.Filename
        Catch ex As Exception
            MsgBox("The file specified could not be opened." & VbNewLine & "Error message:" & VbNewLine & VbNewLine & ex.Message, MsgBoxStyle.OK, "File Could Not Be Opened!")
        End Try
    End If
于 2013-03-25T19:21:51.860 に答える
0

ストリームを使用してテキスト ファイルを読み取らないでください。単純に File.ReadAllText() を使用してください。

Private Sub OpenFileButton_Click(sender As Object, e As EventArgs) Handles OpenFileButton.Click
    OpenFileDialog1.Title = "Please Select TEXT File"
    OpenFileDialog1.Filter = "Text File|*.txt"
    OpenFileDialog1.FileName = "Query"
    If OpenFileDialog1.ShowDialog = DialogResult.OK Then
        RichTextBox1.Text = File.ReadAllText(OpenFileDialog1.FileName)
    End If
End Sub
于 2022-01-15T12:24:39.380 に答える