Finde den Fehler

Das folgene Script soll jede halbe Minute in eine Datei schreiben, welches Programm im Vordergrund ist.
Eigentlich soll die Nummer hinter dem Fensternamen um 1 erhöht werden, aber stattessen wird der wieder neu aufgeschrieben. Ich hab leider nicht herausgefunden wieso. Kann mir jemand helfen?

#Include <Date.au3>
$Path=@TempDir&"\WP_Prog.txt"
$Date="2010/01/30 11:00:00"
While 1
$Diff=_DateDiff("h",$Date,_NowCalc())
If $Diff>="0" And $Diff<"10" Then
$ActWin=WinGetTitle("")
$ContentNow=FileRead($Path)
StringRegExp($ContentNow,$ActWin&"(.*?)",3)
If @error Then
FileWrite($Path,$ActWin&": 1"&@CRLF)
Else
$ActNum=StringRegExp($ContentNow,$ActWin&": (.*?)\z",3)
FileDelete($Path)
FileWrite($Path,StringRegExpReplace($ContentNow,$ActWin&": (.*?)\z",$ActNum[0]+0.5))
EndIf
Sleep(0.5*60000)
Else
Exit
EndIf
WEnd

Niemand? Oder weiß jemand, wie man überprüfen kann ob ein String in einem String vorkommt?

@Sprenger:
Das ist ja so gut wie egal - ich möchte nur einfach das Fenster nicht doppelt aufgeschrieben werden, sondern dahinter die Nummer um eins erhöht wird. Und das geht mysteriöserweise nicht bei meinem Script.

Zitat von Oscar

Das geht mit einer Inidatei viel einfacher:

Spoiler anzeigen

[autoit]

#include <Process.au3>
HotKeySet('{ESC}', '_End')
Global $sInifile = @ScriptDir & '\ActiveProcess.ini'
AdlibRegister('_SaveProcessname', 30000)

[/autoit] [autoit][/autoit] [autoit]

While Sleep(50)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _SaveProcessname()
Local $sProcessName, $iCount
$sProcessName = _ProcessGetName(WinGetProcess(''))
$iCount = IniRead($sInifile, $sProcessName, 'Count', 0)
$iCount += 1
IniWrite($sInifile, $sProcessName, 'Count', $iCount)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _End()
Exit
EndFunc

[/autoit]

Alles anzeigen

Was soll den

AdlibRegister

sein?!
Edit: AdlibEnable?

Danke, es funktioniert

Edit: Wenn man statt _ProcessGetName WinGetTitle benutzt, geht es nichtmehr. Naja, egal