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

[mohamed.saber.amer 1]

هذا اول موضوع لي في المنتدى

انا لست مبرمج ولكن اريد مساعدتكم في عمل شئ اظنه بسيط جدا بالنسبه لكم

اريد برنامج اقدر اغيير كلام في النود باد الى كلام اخر

المثال بالمرفق

وشكرا مقدما لسعة صدركم

 

after.txt

before.txt

[KARIMSOFT 311]

 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());

فكرة كود

 

 

[KARIMSOFT 311]

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())

 

[KARIMSOFT 311]

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

 

[mohamed.saber.amer 1]

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

[mohamed.saber.amer 1]

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

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

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

وشكرا

[mohamed.saber.amer 1]

شكرا جزيلا

 

[mohamed.saber.amer 1]

it is ok

تم تعديل 27 Apr 2016 بواسطه mohamed.saber.amer