#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Z:\News\NBC Nightly News\NCB Nightly News.ico
#AutoIt3Wrapper_Outfile_x64=NBC Nightly News.exe
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$aNewFile = ""
$cNewFile = ""
$sNewFile = ""
$bNewFile = ""
$aDateFile = ""
$aNewFile = ""
$tag = ""
$tag1 = ""
Global $aSplit, $aSplit1, $aSplit3
#include <INet.au3>
Local $URL = "www.feedbucket.com/?src=http%3A%2F%2Frss.nbcnews.com%2Fid%2F18424748%2Fdevice%2Frss%2Frss.xml", _
    $Text = "Video: Nightly News Full Broadcast", _
    $Source = _INetGetSource($URL)

If StringInStr($Source, $Text) = 0 Then
    ;; If $Text is different than what's defined..
    Send("{VOLUME_MUTE}")
	ShellExecute($URL)
	Sleep(10000)
	MouseClick("left",340,252,1,0)
	Sleep(25000)
	MouseClick("Left",632,451,1,0)
	Send ("{SPACE}")
	Sleep(10000)
	MouseClick("Left",1551,41,1,0)
	Sleep(10000)
	MouseClick("Left",1420,84,1,0)
	Sleep(10000)
	MouseClick("Left",716,456,1,0)
	Sleep(10000)
	Send("^a")
	Sleep(10000)
	Send("Z:\Nighty FLV")
	Sleep(10000)
	MouseClick("Left",979,538,1,0)
	Sleep(10000)
	MouseClick("Left",1573,8,1,0) ; closes chrome
	Send("{VOLUME_MUTE}")
	Sleep(90000)
EndIf
$hSearch = FileFindFirstFile("Z:\Nighty FLV\*.flv")
Local $sFileName = "", $iResult = 0
$sFileName = FileFindNextFile($hSearch)
$bNewFile = $sFileName
FileClose($hSearch)
; And concatenate in the date/time macros
$aSplit = StringSplit($sFileName, " ")
$aSplit1 = StringSplit($aSplit[9], ")")
$aDateFile = $aSplit1[1] & ","
ConsoleWrite($aSplit)
$file = FileOpen("Z:\Nighty FLV\Data\date1.txt", 2)
FileWrite($file, $aDateFile)
FileClose($file)

#include <File.au3>
#include <Array.au3>
; Declare the 2 arrays
Global $aFile_1, $aFile_2
; Read the 2 files into the arrays
_FileReadToArray("Z:\Nighty FLV\Data\Date.txt", $aFile_1)
_FileReadToArray("Z:\Nighty FLV\Data\date1.txt", $aFile_2)
; For the lines you want
For $i = 2 To $aFile_1[0] - 2
; Does this line in the forst file exist in the second
    _ArraySearch($aFile_2, $aFile_1[$i])
    If @error Then
        ; If not then add to the second
        _ArrayAdd($aFile_2, $aFile_1[$i])
        $aFile_2[0] += 1
    EndIf
Next
; Write the new file = second file plus additional entries
_FileWriteFromArray("Z:\Nighty FLV\Data\Date_Combined.txt",$aFile_2, 0)
$file = FileOpen("Z:\Nighty FLV\Data\Date_Combined.txt", 0)
; Read in lines of text until the EOF is reached
$line = FileReadLine($file, 3)
$input = StringSplit($line, ",")
$sNewFile = $aSplit[1] & " " & $aSplit[2] & " " & $aSplit[3] & " " & $aSplit[4] & " " & $aSplit[5] & " " & $aSplit[6] & " " & $aSplit[7] & " " & $aSplit[8]& " " & $aSplit1[1] & ")"
$cNewFile = "NBC Nightly News" & " " & "-" & " " & "2015" & " " & "-" & " " & $aSplit[7] & " " & $aSplit[8] & " " &  $aSplit1[1] & $input[2] & ")"
FileClose($file)

  Local $iPID = Run("C:\Program Files\Bulk Rename Utility\Bulk Rename Utility.exe", "", @SW_SHOWMAXIMIZED)

    ; Wait 10 seconds for the Notepad window to appear.
   WinWait("Bulk Rename Utility", "", 10)

    ; Wait for 2 seconds.
   Sleep(10000)
	MouseClick("Left",11,32,1,0)
	Sleep(10000)
	MouseClick("Left",73,181,1,0)
	Sleep(10000)
	Send("{F5}")
	Sleep(10000)
	Send("^a")
	Sleep(10000)
	MouseClick("Left",648,571,1,0)
	Send($sNewFile)
	Sleep(10000)
	MouseClick("Left",612,598,1,0)
	Sleep(10000)
	Send($cNewFile)
	Sleep(10000)
	MouseClick("Left",1568,784,1,0)
	Sleep(10000)
    WinClose("Bulk Rename Utility")
	Run('explorer ' & 'Z:\Nighty FLV')
	Sleep(10000)
	MouseClick("Left",190,146,2,0)
	Sleep(300000)
	FileDelete("Z:\Nighty FLV\*.flv")
	Sleep(10000)
	MouseClick("Left",1579,9,1,0)
	Sleep(10000)
	Local $iPID = Run("C:\Program Files\FileBot\filebot.launcher.exe", "", @SW_SHOWMAXIMIZED)
	WinWait("FileBot", "", 10)
	Sleep(10000)
	MouseClick("Left",612,665,1,0)
	Sleep(10000)
	MouseClick("Left",653,308,1,0)
	Sleep(10000)
	Send(" {ENTER} ")
	Sleep(60000)
	MouseClick("Left",1124,666,1,0)
	Sleep(500)
	MouseClick("Left",1115,653,1,0)
	Sleep(60000)
	MouseClick("Left",814,400,1,0)
	Sleep(60000)
	WinClose("FileBot")
	MouseClick("Left",1366,882,2,0)
Exit