Gewusst wie: Schreiben von Text in eine Datei

Im folgenden Codebeispiel wird das Schreiben von Text in einer Textdatei veranschaulicht. Dabei werden alle Textdateien im Ordner Eigene Dateien des Benutzers mit dem Suchmuster "*.txt" gelesen und in eine umfangreiche Textdatei geschrieben.

Hinweis
Benutzer von Visual Basic können auch die von der Microsoft.VisualBasic.FileIO.FileSystem-Klasse für Datei-E/A bereitgestellten Methoden und Eigenschaften verwenden.

Beispiel

Imports System
Imports System.IO
Imports System.Text
Imports System.Collections.Generic

Class Program

    Public Shared Sub Main(ByVal args As String())

        Dim mydocpath As String = _
        Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim sb As New StringBuilder()

        For Each txtName As String _
            In Directory.EnumerateFiles(mydocpath, "*.txt")
            Using sr As New StreamReader(txtName)
                sb.AppendLine(txtName.ToString())
                sb.AppendLine("= = = = = =")
                sb.Append(sr.ReadToEnd())
                sb.AppendLine()
                sb.AppendLine()

            End Using
        Next

        Using outfile As New StreamWriter(mydocpath & "\AllTxtFiles.txt")
            outfile.Write(sb.ToString())
        End Using
    End Sub
End Class

using System;
using System.IO;
using System.Text;
using System.Collections.Generic;

class Program
{

    static void Main(string[] args)
    {

        string mydocpath = 
            Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);
        StringBuilder sb = new StringBuilder();

        foreach (string txtName in Directory.EnumerateFiles(mydocpath,"*.txt"))
        {
            using (StreamReader sr = new StreamReader(txtName))
            {
                sb.AppendLine(txtName.ToString());
                sb.AppendLine("= = = = = =");
                sb.Append(sr.ReadToEnd());
                sb.AppendLine();
                sb.AppendLine();
            }

        }

        using (StreamWriter outfile = 
            new StreamWriter(mydocpath + @"\AllTxtFiles.txt"))
        {
            outfile.Write(sb.ToString());
        }
    }
}

using namespace System;
using namespace System::IO;
using namespace System::Text;
using namespace System::Collections::Generic;

ref class Program
{
public:
    static void Main()
    {
        String^ mydocpath =
            Environment::GetFolderPath(Environment::SpecialFolder::MyDocuments);
        StringBuilder^ sb = gcnew StringBuilder();

        for each (String^ txtName in Directory::EnumerateFiles(mydocpath, "*.txt"))
        {
            StreamReader^ sr = gcnew StreamReader(txtName);
            sb->AppendLine(txtName->ToString());
            sb->AppendLine("= = = = = =");
            sb->Append(sr->ReadToEnd());
            sb->AppendLine();
            sb->AppendLine();
            sr->Close();
        }

        StreamWriter^ outfile = gcnew StreamWriter(mydocpath + "\\AllTxtFiles.txt");
        outfile->Write(sb->ToString());
        outfile->Close();
    }
};

int main()
{
    Program::Main();
}

Siehe auch

Aufgaben

Gewusst wie: Erstellen einer Verzeichnisauflistung

Gewusst wie: Lesen und Schreiben einer neu erstellten Datendatei

Gewusst wie: Öffnen und Anfügen an eine Protokolldatei

Gewusst wie: Lesen aus einer Textdatei

Gewusst wie: Lesen von Zeichen aus einer Zeichenfolge

Gewusst wie: Schreiben von Zeichen in eine Zeichenfolge

Referenz

StreamWriter

File.CreateText

Konzepte

Grundlegende Datei-E/A