Como: Gravar texto em um arquivo
O exemplo a seguir mostra como gravar texto em um arquivo de texto. Ele lê os arquivos de texto do que o usuário Meus documentos pasta usando um "*.txt" padrão de pesquisa e os grava em um arquivo de texto grande.
Observação
Os usuários de Visual Basic podem optar por usar os métodos e propriedades fornecidas pelo Microsoft.VisualBasic.FileIO.FileSystem classe para arquivo de e/S.
Exemplo
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();
}
Consulte também
Tarefas
Como: Criar uma listagem de diretório
Como: Ler e gravar em um arquivo de dados recém-criado
Como: Abrir e anexar um arquivo de Log
Como: Ler texto de um arquivo.
Como: Caracteres de leitura de uma seqüência
Como: Gravar uma seqüência de caracteres