كيفية القيام بما يلي: كتابة نص في ملف
يلي مثال يوضح كيفية كتابة نص إلى ملف نصي. يقوم بقراءة الجميع ملفات نصية من المجلد مستندات للمستخدم باستخدام "*.txt"نمط بحث، و لهم بالكتابة إلى ملف نصي كبير.
![]() |
---|
قد يختار المستخدمون Visual أساسى إلى استخدام الوظائف والخصائص التي يوفرها Microsoft.VisualBasic.FileIO.FileSystemفئة لملف الادخال/الاخراج. |
مثال
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());
}
}
}
راجع أيضًا:
المهام
كيفية القيام بما يلي: إنشاء سرد الدليل
كيفية القيام بما يلي: القراءة والكتابة إلى ملف مُنشأ حديثاً
كيفية القيام بما يلي: افتح ثم إلحاق ملف سجل
كيفية القيام بما يلي: قراءة نص من ملف.
كيفية القيام بما يلي: قراءة الأحرف من سلسلة
كيفية القيام بما يلي: كتابة الأحرف في سلسلة