مساعده من فضلكم

ما الغرض من تغير شكل قراءة الملف

ان الملف يكون ملف ترجمه لفيديو

 string[] sLines = System.IO.File.ReadAllLines("c:\\before.txt");
            List<string> listsLinesOut = new List<string>();

            int nNoLineSubTitel = 1;
            for (int nNoLine = 0; nNoLine < sLines.Count()-3; nNoLine+=2)
            {
                listsLinesOut.Add(nNoLineSubTitel.ToString());
                listsLinesOut.Add(sLines[nNoLine] + ",000 --> " + sLines[nNoLine + 2] + ",000");
                listsLinesOut.Add(sLines[nNoLine + 1]);
                listsLinesOut.Add("");
                nNoLineSubTitel++;
            }
            listsLinesOut.Add(sLines[sLines.Count() - 1]);

            System.IO.File.WriteAllLines("C:\\TEXT1.TXT", listsLinesOut.ToArray());

فكرة كود

شكرا لحضرتك كتير

بس كان عندي طلب صغير

لو ينفع يحول الى كود Vb.net علشان افهموا لوحبيت اعدل فيه حاجه مستقبلا لاني ماعرفش حاجه في C#.net

وشكرا

Dim sLines As String() = System.IO.File.ReadAllLines("c:\before.txt")
Dim listsLinesOut As New List(Of String)()

Dim nNoLineSubTitel As Integer = 1
For nNoLine As Integer = 0 To sLines.Count() - 4 Step 2
	listsLinesOut.Add(nNoLineSubTitel.ToString())
	listsLinesOut.Add(sLines(nNoLine) + ",000 --> " + sLines(nNoLine + 2) + ",000")
	listsLinesOut.Add(sLines(nNoLine + 1))
	listsLinesOut.Add("")
	nNoLineSubTitel += 1
Next
listsLinesOut.Add(sLines(sLines.Count() - 1))

System.IO.File.WriteAllLines("C:\TEXT1.TXT", listsLinesOut.ToArray())

شكرا جزيلا

it is ok