FileInfo.OpenText Metod
Definition
Viktigt
En del information gäller för förhandsversionen av en produkt och kan komma att ändras avsevärt innan produkten blir allmänt tillgänglig. Microsoft lämnar inga garantier, uttryckliga eller underförstådda, avseende informationen som visas här.
Skapar en StreamReader med UTF8-kodning som läser från en befintlig textfil.
public:
System::IO::StreamReader ^ OpenText();
public System.IO.StreamReader OpenText();
member this.OpenText : unit -> System.IO.StreamReader
Public Function OpenText () As StreamReader
Returer
En ny StreamReader med UTF8-kodning.
Undantag
Anroparen har inte den behörighet som krävs.
Det går inte att hitta filen.
Name är skrivskyddad eller är en katalog.
Den angivna sökvägen är ogiltig, till exempel på en ommappad enhet.
Exempel
I följande exempel läss text från en fil.
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.
'