$fileA = loadfile("fileA.txt")

$fileb = loadfile("fileb.txt")



$ = Open(1,"Filec.txt",5)



For Each $line In $fileB

	If AScan($filea,$line)+1

		? "A line In file b was found In file a, writting the line To file c"

		$ = WriteLine(1,$line+@CRLF)

	EndIf

Next





Function loadfile($file)

	DIM $fso,$f,$fs

	$fso = CreateObject("Scripting.FileSystemObject")

	$f = $fso.GetFile($file)

	If @ERROR Exit(2) EndIf

	$fs = $f.OpenAsTextStream(1)

	$loadfile = Split($fs.Read($f.size),@CRLF)

	Exit(@ERROR)

EndFunction