Überprüfen ob Eintrag ungleich Remote Eintrag ist

Kazuto

Hallo Leute,

ich arbeite derzeit an meinem Dashboard und wollte nun überprüfen ob ein neuer Eintrag vorhanden ist und falls ein neuer vorhanden ist, den alten mit diesem ersetzen.
Jedoch spuckt er mir immer die MsgBox aus, auch wenn der Eintrag übereinstimmt

AutoIt

Func _Follower($username)
	Local $sHTML = BinaryToString(InetRead("http://api.hitbox.tv/followers/user/"&$username&"?offset=0&limit=1"))
	$aUsername = StringRegExp($sHTML, 'user_name":"([^"]+)', 3)
	$hFileOpen = FileOpen(@ScriptDir & "\Follower_Usernames.txt", $FO_OVERWRITE)
	If FileReadLine($hFileOpen) <> $aUsername[0] Then
		If IsArray($aUsername) Then
			For $i = 0 To UBound($aUsername) - 1
				FileWrite($hFileOpen, $aUsername[$i] & @CRLF)
				MsgBox(0, "New one", "New follower added", 10)
			Next
		EndIf
		FileClose($hFileOpen)
	EndIf
EndFunc

Alles anzeigen

Mag mir vielleicht einer helfen?

~EDIT~
Habe den Fehler gefunden.
Es lag am $FO_OVERWRITE.

~EDIT 2~
Entferne ich $FO_OVERWRITE, so ersetzt er mit den Eintrag nicht mehr mit dem aktuellsten.

Mit freundlichen Grüßen,
Kazu

shadow667

wenn du das $FO_OVERWRITE weglässt wird die Datei per default im Read-Modus geöffnet
Um in die Datei schreiben zu können kannst du daher das Handle der in diesem Modus geöffneten Datei nicht verwenden

Lösung: Datei nach dem Lesen schließen (Fileclose) und erneut zum Beschreiben öffnen

Kazuto

Vielen Dank für deinen Tipp. Habe es dadurch lösen können

AutoIt

Func _Follower($username)
	Local $sHTML = BinaryToString(InetRead("http://api.hitbox.tv/followers/user/" & $username & "?offset=0&limit=1"))
	$aUsername = StringRegExp($sHTML, 'user_name":"([^"]+)', 3)
	$hReadFile = FileOpen(@ScriptDir & "\Follower_Usernames.txt", $FO_READ)
	If FileRead($hReadFile) <> $aUsername[0] Then
		FileClose($hReadFile)
		If IsArray($aUsername) Then
			$hWriteFile = FileOpen(@ScriptDir & "\Follower_Usernames.txt", $FO_OVERWRITE)
			For $i = 0 To UBound($aUsername) - 1
				FileWrite($hWriteFile, $aUsername[$i])
				MsgBox(0, "New one", "New follower added", 10)
			Next
			FileClose($hWriteFile)
		EndIf
	EndIf
EndFunc

Alles anzeigen