[Данные, строки] Проверка на наличие файлов, на которые есть ссылка в html

#include <Array.au3>
Global $aMatches[0], $aNotExistingFiles[0], $hFile
Global $sCode = '"<span ID="ACH-LINK" class="pic_ill/picture/Илл.9.1.47.Задание^на^тест.png_name_Илл.^9.1.47.^Задание^на^тест" title="">(см. илл. 9.1.47)</span>"'

$aMatches = StringRegExp($sCode, '<span.*?class="(.*?)_name_.*?"', 3)
If @error Then Exit 1
_ArrayDisplay($aMatches, "matches")
For $i = 0 To UBound($aMatches) - 1
	If Not FileExists($aMatches[$i]) Then _ArrayAdd($aNotExistingFiles, $aMatches[$i])
Next
If Not IsArray($aNotExistingFiles) Or UBound($aNotExistingFiles) = 0 Then Exit 2
_ArrayDisplay($aNotExistingFiles, "not existing files")
$hFile = FileOpen("not_existing_files.txt", 2)
FileWrite($hFile, _ArrayToString($aNotExistingFiles, @CRLF))
FileClose($hFile)

#include <Array.au3>
#include <File.au3>
Global $aHtmlFiles
$aHtmlFiles = _FileListToArrayRec(@ScriptDir, "*.html;*.htm", 1, 1)
If @error = 9 Then Exit MsgBox(16, "error", "Not found")
If @error Then Exit MsgBox(16, "error", "error_code=" & @error & ", extended_code=" & @extended)
;_ArrayDisplay($aHtmlFiles,"html_files")
For $f = 1 To $aHtmlFiles[0]
	_main(FileRead($aHtmlFiles[$f]))
Next

Func _main($sCode, $sFile = "not_existing_files.txt")
	Local $aMatches[0], $aNotExistingFiles[0], $hFile
	$aMatches = StringRegExp($sCode, '<span.*?class="(.*?)_name_.*?"', 3)
	If @error Then Return SetError(1)
	;_ArrayDisplay($aMatches, "matches")
	For $i = 0 To UBound($aMatches) - 1
		If Not FileExists($aMatches[$i]) Then _ArrayAdd($aNotExistingFiles, $aMatches[$i])
	Next
	If Not IsArray($aNotExistingFiles) Or UBound($aNotExistingFiles) = 0 Then Return SetError(2)
	;_ArrayDisplay($aNotExistingFiles, "not existing files")
	$hFile = FileOpen($sFile, 2)
	FileWrite($hFile, _ArrayToString($aNotExistingFiles, @CRLF))
	If @error Then Return SetError(3)
	FileClose($hFile)
	Return 1
EndFunc   ;==>_main

#include <Array.au3>
#include <File.au3>
Global $aHtmlFiles
$aHtmlFiles = _FileListToArrayRec(@ScriptDir, "*.html;*.htm", 1, 1)
If @error = 9 Then Exit MsgBox(16, "error", "Not found")
If @error Then Exit MsgBox(16, "error", "error_code=" & @error & ", extended_code=" & @extended)
_ArrayDisplay($aHtmlFiles, "html_files")
For $f = 1 To $aHtmlFiles[0]
	_main(FileRead($aHtmlFiles[$f]))
Next

Func _main($sCode, $sFile = "not_existing_files.txt")
	Local $aMatches[0], $aNotExistingFiles[0], $hFile, $sCheckFilePath
	$aMatches = StringRegExp($sCode, '<span.*?class="pic_ill\/picture\/(.*?)_name_.*?"', 3)
	If @error Then Return SetError(1)
	_ArrayDisplay($aMatches, "matches")
	For $i = 0 To UBound($aMatches) - 1
		$sCheckFilePath = "ill\picture\" & $aMatches[$i]
		If Not FileExists($sCheckFilePath) Then _ArrayAdd($aNotExistingFiles, $sCheckFilePath)
	Next
	If Not IsArray($aNotExistingFiles) Or UBound($aNotExistingFiles) = 0 Then Return SetError(2)
	_ArrayDisplay($aNotExistingFiles, "not existing files")
	$hFile = FileOpen($sFile, 2)
	FileWrite($hFile, _ArrayToString($aNotExistingFiles, @CRLF))
	If @error Then Return SetError(3)
	FileClose($hFile)
	Return 1
EndFunc   ;==>_main

"D:\test\Garrett.au3" (31) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
If Not FileExists(StringFormat('%s\ill\picture\%s', @ScriptDir, $aListSpan[3])) Then
If Not FileExists(StringFormat('%s\ill\picture\%s', @ScriptDir, ^ ERROR

If Not FileExists(StringFormat('%s\ill\picture\%s', @ScriptDir, $aListSpan[3])) Then

ConsoleWrite(StringFormat('file: %s\n', $sFileName))

#include<Array.au3>

$oDoc = ObjCreate("HTMLFILE")

$hFirstFile = FileFindFirstFile(StringFormat('%s\html\*.html', @ScriptDir))
If $hFirstFile = -1 Then
	MsgBox(16, @ScriptName, "No files/directories")
	Exit
EndIf

While 1

	$iCount = 0
	$sFileName = FileFindNextFile($hFirstFile)
	If @error Then ExitLoop

	$oDoc.open
	$sHtml = FileRead(StringFormat('%s\html\%s', @ScriptDir, $sFileName))
	$oDoc.write($sHtml)
	$oDoc.close

	$oSpan = $oDoc.getElementsByTagName("span")

	Local $aPic[1000]
	; проверка битых ссылок
	For $i = 0 To $oSpan.length-1
		If $iCount = UBound($aPic) Then
			ReDim $aPic[UBound($aPic)+1000]
		EndIf

		$aListSpan = StringSplit($oSpan.item($i).className, '/_', 2)
		If UBound($aListSpan) <= 2 Then ContinueLoop
		If Not FileExists(StringFormat('%s\ill\picture\%s', @ScriptDir, $aListSpan[3])) Then
			$aPic[$iCount] = $aListSpan[3]
			$iCount +=1
		EndIf
	Next

	$aListSpan = 0
	If $iCount Then
		; если есть битые ссылки записываем в файл отчёта. иначе файл не создаётся.
		ReDim $aPic[$iCount]
		$hFile = FileOpen(StringFormat('%s\html\%s.not_existing.log', @ScriptDir, $sFileName), 2)
		For $i = 0 To UBound($aPic) -1
			FileWriteLine($hFile, $aPic[$i])
		Next
		FileClose($hFile)
	Else
		; если все ссылки поправили, то при повторном анализе файл отчёта удаляется (если таковой существует)
		If FileExists(StringFormat('%s\html\%s.not_existing.log', @ScriptDir, $sFileName)) Then
			FileDelete(StringFormat('%s\html\%s.not_existing.log', @ScriptDir, $sFileName))
		EndIf
	EndIf

	$aPic = 0
	Sleep(10)
WEnd