#include <file.au3>
#include <array.au3>
Func _FileCountDefCharacters($file, $character)
	Dim $array
	_FileReadToArray( $file, $array)
	$result = 0
For $i = 1 To $array[0]
	$start = 1
While 1
	$littlestring = StringMid($array[$i], $start)
	$stringsearch = StringInStr ( $littlestring, $character)
If $stringsearch <> 0 Then
	$result = $result + 1
	$start = $stringsearch + $start
Else
	ExitLoop
EndIf
WEnd
Next
Return $result
EndFunc