[بدري]

بعد اذن استاذنا elgokr اشرح له الحل

الخطوه الاولى اقرا الملف ويكون في مصفوفه نصيه مثل
Dim arr1() As String=IO.File.ReadAllLines("file.txt")

الخطوه الثانيه تنشئ قاءمه نصيه List مثل
Dim lst As new List(Of String)

الخطوه الثاله تعمل حلقه For على المصفوفه مع قفزتين Step 2 مثل
For i=0 To arr1.Count-1 Step 2

داخل الحلقه تضع شرط التاكد من عدم وجود السؤال في القائمه List مثل
If Not lst.Contains(arr1(i)) Then

هنا يتم اضافه السؤال والجواب للقائمه List مثل
lst.Add(arr1(i))
lst.add(arr1(i+1))

الخطوه الاخيره بعد حلقه For اي بعد Next تقوم بحفظ محتوى القائمه في ملف نصي باسم اخر مثل
IO.File.WriteAllLines("file_2.txt",lst)