Сделать из двух файлов третий

@@  IF EXIST __%~N0.exe ( __%~N0.exe %* & EXIT /B ERRORLEVEL ) 
@@  FOR /F %%X IN ('DIR /B /S %WINDIR%\Microsoft.NET\Framework\VBC.EXE') DO @@(SET COMPILER=%%X)
@@  IF NOT DEFINED COMPILER (ECHO No .NET Compiler !! Goodbye & EXIT/B -1)
@@  FINDSTR /B /VC:@@  "%~F0" > %~N0.vb
@@  %COMPILER% %~N0.vb /OUT:__%~N0.exe /TARGET:exe && __%~N0.exe %* 
@@  EXIT/B ERRORLEVEL
 
 
imports System
imports System.IO
imports System.Text.Encoding
 
Module M
Sub main ()
 
    Dim reader1 As New StreamReader("file1.txt", GetEncoding(1251))
    Dim reader2 As New StreamReader("file2.txt", GetEncoding(1251))
    Dim N as Integer = 1
 
    Using writer As New StreamWriter ("file3.txt", false, GetEncoding(1251))
 
        Do Until reader1.EndOfStream or reader2.EndOfStream  
            
            Dim line1 = reader1.ReadLine
            Dim line2 = reader2.ReadLine
            
            If N mod 5 Then
                writer.WriteLine( line1 )
            Else
                writer.WriteLine( line2 )
            End If
 
            N = N + 1
        Loop 
 
    End Using
 
    Console.WriteLine("Result in file3.txt") 
 
End Sub
End Module

@echo off
setlocal enabledelayedexpansion
set /A summ_1=0
set /A summ_2=0
set /A schetchik=5
for /f "delims=" %%a in (file1.txt) do (
    set /A summ_1+=1
    echo !summ_1! %%a>>file1work.txt
)
for /f "delims=" %%a in (file2.txt) do (
    set /A summ_2+=1
    echo !summ_2! %%a>>file2work.txt
)
if !summ_1!==0 (
    if !summ_2!==0 (
        echo В file1.txt и в file2.txt отсутствуют строки. Сценарий будет завершен
        pause
        exit
    )
)
if !summ_2! lss !schetchik! (
    if !summ_1!==0 (
        del file2work.txt
        echo В файле file1.txt отсутствуют строки. В файле file2.txt менее 5-ти строк. Сценарий будет завершен
        pause
        exit
    )
)
if !summ_2! lss !schetchik! (
    for /f "delims=" %%a in (file1.txt) do (
        echo %%a>>file3.txt
    )
    del file1work.txt
    if exist file2work.txt (
        del file2work.txt
    )
    if !summ_2!==0 (
        echo В файле file2.txt строки отсутствуют. Все строки из file1.txt скопированы в file3.txt. Сценарий будет завершен
    ) else (
        echo В file2.txt менее 5-ти строк. Все строки из file1.txt скопированы в file3.txt. Сценарий будет завершен
    )   
    pause
    exit
)
:step_3
if defined raznost (
    set /A raznost=!raznost!-!schetchik!
) else (
    set /A raznost=!summ_2!-!schetchik!
)
if !raznost! gtr 0 (
    set /A oborot+=1
    goto step_3
)
if !raznost! equ 0 (
    set /A oborot+=1
    goto step_1
)
if !raznost! lss 0 (
    goto step_1
)
:step_1
if !summ_1!==0 goto step_2
for /f "tokens=1*" %%a in (file1work.txt) do (
    if defined granica (
        if %%a equ !granica! (
            echo %%b>>file3.txt
        )
        if %%a gtr !granica! (
            if %%a lss !schetchik! (
                echo %%b>>file3.txt
            )
        )
        if %%a equ !schetchik! (
            goto step_2
        )
    ) else (
        if %%a lss !schetchik! (
            echo %%b>>file3.txt
        )
        if %%a equ !schetchik! (
            goto step_2
        )
    )
)
:step_2
if not defined celoe (
    if !summ_2! lss !summ_1! (
        if !raznost! leq 0 (
            set /A celoe=!oborot!*5
        )
    )
)
if not defined celoe (
    if !summ_2! gtr !summ_1! (
        if !raznost! leq 0 (
            set /A celoe=!oborot!*5
        )
    )
)
if not defined celoe (
    if !summ_2! equ !summ_1! (
        if !raznost! leq 0 (
            set /A celoe=!oborot!*5
        )
    )
)
if defined schetchik (
    set /A schetchik_oborotov+=1
)
for /f "tokens=1*" %%a in (C:\zadacha5\file2work.txt) do (
    if %%a equ !schetchik! (
        echo %%b>>file3.txt
        if !schetchik_oborotov! equ !oborot! goto step_4
        set /A granica=!schetchik!+1
        set /A schetchik+=5
        goto step_1
    )
)
:step_4
if !summ_2!==!summ_1! (
    if !raznost! lss 0 (
        set /A final=!celoe!+1
        for /f "tokens=1*" %%a in (file1work.txt) do (
            if %%a geq !final! (
                if %%a leq !summ_1! (
                    echo %%b>>file3.txt
                )
            )
        ) 
        del file1work.txt
        del file2work.txt
        exit
    )
)
if !summ_2!==!summ_1! (
    del file1work.txt
    del file2work.txt
    exit
)
if !summ_2! gtr !summ_1! (
    if !raznost! lss 0 (
        set /A final=!celoe!+1
        for /f "tokens=1*" %%a in (file1work.txt) do (
            if %%a geq !final! (
                if %%a leq !summ_1! (
                    echo %%b>>file3.txt
                )
            )
        )
    )
)   
if !summ_2! gtr !summ_1! (
    for /f "tokens=1*" %%a in (file2work.txt) do (
        set /A schetchik+=5
        if %%a equ !schetchik! (
            echo %%b>>file3.txt
        )
    )
    del file1work.txt
    del file2work.txt   
    goto eof
)
set /A final=!celoe!+1
for /f "tokens=1*" %%a in (file1work.txt) do (
        if %%a geq !final! (
            if %%a leq !summ_1! (
                echo %%b>>file3.txt
            )
        )
)
del file1work.txt
del file2work.txt