VBScript: 2 TXT Dateien auf Übereinstimmungen vergleichen

[b.jim]

Hallo zusammen,

ich habe folgendes Problem. 2 TXT Dateien (beinhalten Namen) sollen mittels VBS eingelesen und auf Übereinstimmungen geprüft werden. Die erste Datei beinhaltet Namen nach den gesucht werden soll, die zweite Datei soll nach diesen Namen durchsucht werden. Wird der Name gefunden soll er in eine dritte TXT geschrieben werden.

Problem: Die Schleife ruft die Function für den ersten Datensatz nur einmal auf. Die restlichen Name werden mir zwar mittels "MsgBox aarMy(0)" angezeigt aber nicht in die Function übergeben und somit nicht mehr überprüft. Für eure Hilfe wäre ich sehr dankbar.

Grüße

  
  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.OpenTextFile("F:\Test VBS\it.txt")  
Set objFile1 = objFSO.OpenTextFile("F:\Test VBS\bekannt.txt")  
Set objFile2 = objFSO.CreateTextFile("F:\Test VBS\ausgabe.txt")  
  
Do until objFile1.AtEndOfStream  
	Zeile1 = objFile1.ReadLine  
	arrMy = split(Zeile1, " ")  
	MsgBox arrMy(0)  
	TestSub  
loop  
  
Public Function TestSub  
  
        Do until objFile.AtEndOfStream  
			Zeile = objFile.ReadLine  
			MsgBox Zeile  
			If InStr(Zeile, arrMy(0)) > 0 Then  
				objFile2.writeLine Zeile  
		  
			   Else  
				MsgBox "nix"  
			End If  
	loop  
		  
End Function