#Include <File.au3>
Dim $text

$FileList = _FileListToArray(@ScriptDir, "*.MIF", 1)
If @error = 4 Then
	MsgBox(0, "", "No MIF Files Found.")
	Exit
EndIf

For $i = 1 To $FileList[0]
	ProcessFile($FileList[$i])
Next
MsgBox(0, "", "Updated " & $i-1 & " MIF files.")

Func ProcessFile($filefromlist)
	$file = FileOpen($filefromlist,0)
    ;Read the first 9 lines which we don't want
      For $j = 1 To 9
		 FileReadLine($file)
      Next
	While 1
		$line = FileReadLine($file)
		    If @error = -1 Then ExitLoop
			$text = $text & $line & @CRLF
	Wend
	  ;Write the new MIF file.
	  $file = FileOpen($filefromlist,2)
	  FileWrite($file, $text)
	  FileClose($file)
EndFunc   ;==>ProcessFile