Proof of Concept

#include "Array.au3"

HotKeySet("^!e", "EndProgram")
$sFileName = @ScriptDir &"\Key Working.txt"
$hFilehandle = FileOpen($sFileName, $FO_APPEND)
MouseMove(564, 428)
MouseClick($MOUSE_CLICK_LEFT)
Local $aArray1
_FileReadToArray(@ScriptDir &"\Array1.txt", $aArray1)
Local $aArray2
_FileReadToArray(@ScriptDir &"\Array2.txt", $aArray2)
Local $aArray3
_FileReadToArray(@ScriptDir &"\Array3.txt", $aArray3)
Local $aArray4
_FileReadToArray(@ScriptDir &"\Array4.txt", $aArray4)
Local $aArray5
_FileReadToArray(@ScriptDir &"\Array5.txt", $aArray5)

Func EndProgram()
    Exit
EndFunc

Local $a1 = 0
Local $a2 = 0
Local $a3 = 0
Local $a4 = 0
Local $a5 = 0
Local $jump1 = 1
Local $jump2 = 1
Local $jump3 = 1
Local $jump4 = 1

While 1
   While 1
      If $jump4 = 1 Then
         If $a1 <> 5315000 Then
            $a1 += 1
            Local $aExtract1 = _ArrayExtract($aArray1, $a1, $a1)
            $aExtract1 = StringRegExpReplace($aExtract1[0], ",", "")
            $jump4 = 0
         Else
            $jump4 = 0
            $a1 = 0
            ExitLoop 2
         EndIf
      EndIf

      If $jump3 = 1 Then
         If $a2 <> 2000000 Then
            $a2 += 1
            Local $aExtract2 = _ArrayExtract($aArray2, $a2, $a2)
            $aExtract2 = StringRegExpReplace($aExtract2[0], ",", "")
            $jump3 = 0
         Else
            $jump4 = 1
            $a2 = 0
            ExitLoop
         EndIf
      EndIf

      If $jump2 = 1 Then
         If $a3 <> 1000000 Then
            $a3 += 1
            Local $aExtract3 = _ArrayExtract($aArray3, $a3, $a3)
            $aExtract3 = StringRegExpReplace($aExtract3[0], ",", "")
            $jump2 = 0
         Else
            $jump3 = 1
            $a3 = 0
            ExitLoop
         EndIf
      EndIf

      If $jump1 = 1 Then
         If $a4 <> 2000000 Then
            $a4 += 1
            Local $aExtract4 = _ArrayExtract($aArray4, $a4, $a4)
            $aExtract4 = StringRegExpReplace($aExtract4[0], ",", "")
            $jump1 = 0
         Else
            $jump2 = 1
            $a4 = 0
            ExitLoop
         EndIf
      EndIf

      While 1
            If $a5 <> 300000 Then
               $a5 += 1
               Local $aExtract5 = _ArrayExtract($aArray5, $a5, $a5)
               $aExtract5 = StringRegExpReplace($aExtract5[0], ",", "")
               $clip = $aExtract1 & $aExtract2 & $aExtract3 & $aExtract4 & $aExtract5
               $aTxt = StringSplit ($clip, "", $STR_NOCOUNT)
               $aTxt = _ArrayUnique ($aTxt)
                  If $aTxt[0] > 18 Then
                     ContinueLoop
                  Else
                     ;Nothing
                  EndIf
                  If $aTxt[0] < 18 Then
                     ContinueLoop
                  Else
                  ClipPut($clip)
                  EndIf
                  Send("^v")
                  MouseMove(930, 526)
                  Sleep(100)
                  MouseClick($MOUSE_CLICK_LEFT)
                  $Start = 0
                  While $Start = 0
                     $iColor = PixelGetColor(1159, 598)
                        If $iColor = "16777215" Then
                           FileWrite($hFilehandle, $clip & @CRLF)
                           MouseMove(1046, 482)
                           MouseClick($MOUSE_CLICK_LEFT)
                           MouseMove(426, 346)
                           MouseClick($MOUSE_CLICK_LEFT)
                           $Start = 1
                        EndIf
                        $iColor = PixelGetColor(663, 622)
                           If $iColor = "16776960" Then
                              $Start = 1
                           EndIf
                  WEnd
               Send("^a")
               Send("{BACKSPACE}")
            Else
               $jump1 = 1
               $a5 = 0
               ExitLoop
            EndIf
      WEnd
   WEnd
WEnd