FileInfo.OpenText Methode

public:
 System::IO::StreamReader ^ OpenText();

public System.IO.StreamReader OpenText();

member this.OpenText : unit -> System.IO.StreamReader

Public Function OpenText () As StreamReader

Retouren

Een nieuw StreamReader met UTF8-codering.

Uitzonderingen

Voorbeelden

In het volgende voorbeeld wordt tekst uit een bestand gelezen.

using System;
using System.IO;
using System.Text;

class Test
{
    public static void Main()
    {
        string path = @"c:\MyTest.txt";

        FileInfo fi = new FileInfo(path);

        // Check for existing file
        if (!fi.Exists)
        {
            // Create the file.
            using (FileStream fs = fi.Create())
            {
                Byte[] info =
                    new UTF8Encoding(true).GetBytes("This is some text in the file.");

                // Add some information to the file.
                fs.Write(info, 0, info.Length);
                fs.Close();
            }
        }

        // Open the stream and read it back.
        using (StreamReader sr = fi.OpenText())
        {
            string s = "";
            while ((s = sr.ReadLine()) != null)
            {
                Console.WriteLine(s);
            }
        }
    }
}
//This code produces output similar to the following;
//results may vary based on the computer/file structure/etc.:
//
//This is some text in the file.
//

Imports System.IO
Imports System.Text

Public Class OpenTextTest
    Public Shared Sub Main()
        Dim path As String = "c:\MyTest.txt"

        Dim fi As New FileInfo(path)

        ' Check for existing file
        If fi.Exists = false Then
            ' Create the file.
            Dim fs As FileStream = fi.Create()
            Dim info() As Byte = _
                    New UTF8Encoding(true).GetBytes("This is some text in the file.")

            ' Add some information to the file.
            fs.Write(info, 0, info.Length)
            fs.Close()
        End If

        ' Open the stream and read it back.
        Dim sr As StreamReader = fi.OpenText()
        Dim s As String = ""
        While sr.EndOfStream = false
            s = sr.ReadLine()
            Console.WriteLine(s)
        End While
        sr.Close()
    End Sub
End Class
'This code produces output similar to the following;
'results may vary based on the computer/file structure/etc.:
'
'This is some text in the file.
'

Zie ook

• UTF8
• StreamReader
• Bestands- en Stream-I/O
• Procedure: Tekst uit een bestand lezen
• Procedure: Tekst naar een bestand schrijven
• Procedure: lezen en schrijven naar een nieuw gegevensbestand