[Aly El-Haddad]

خادم الدين كتب :على خيارين

الأول

أن يستبدال بالترتيب

السطر الاول بالثاني
والثالث بالرابع
والخامس بالسادس
والخيار الثاني

ان يستبدال بالترتيب من ملفين

يستبدل السطر الاول من ملف 1 بالسطر الاول من ملف 2
بحيث يكون ملف للأصل وملف للاستبدال
ويغنينا عن تكرار الاكواد
بحيث يكون واحد معناه انه يستبدل السطر في ملف 1 بالسطر الذي يقابله في ملف 2

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.File.WriteAllText("مسار الملف النصي", ReplaceWithMethodOne(System.IO.File.ReadAllText("مسار الملف النصي")))
    End Sub

    Public Function ReplaceWithMethodOne(ByVal txt As String) As String
        Dim lines As String() = txt.Split(vbCrLf)
        For I As Integer = 0 To lines.Length - 1 Step 2
            If (I + 1) = lines.Length Then Exit For
            lines(I) = lines(I + 1)
        Next
        lines = InsertLine(lines)
        Return String.Concat(lines)
    End Function

    Private Function InsertLine(ByVal strArr As String()) As String()
        If strArr.Length > 1 Then
            For I As Integer = 0 To strArr.Length - 2
                strArr(I) &= vbCrLf
            Next
            Return strArr
        Else
            Return strArr
        End If
    End Function