Bei mir funzt leider weder das auslesen eines Titels noch einer Url, was mache ich falsch?
Spoiler anzeigen
Habs hinbekommen
Edit: Es scheint am unterschiedlichem Aufbau der ASX-Dateien zu liegen
Ich habe zwei Funktion minimal erweitert
Spoiler anzeigen
Func _Radio_ReadTitleFromASX($hFile)
If $hFile <> "" Then
$vRead = FileRead($hFile)
If @error = 1 Then
Return 4
SetError(4)
Exit
EndIf
$vTitle = _StringBetween($vRead, "<TITLE >", "</TITLE>")
If $vTitle = "" Then $vTitle = _StringBetween($vRead, "<TITLE>", "</TITLE>")
If $vTitle = "" Then $vTitle = _StringBetween($vRead, "<title>", "</title>")
If $vTitle = "" Then $vTitle = _StringBetween($vRead, "<title >", "</title>")
If $vTitle = "" Then $vTitle = _StringBetween($vRead, "<Title >", "</Title>")
If $vTitle = "" Then $vTitle = _StringBetween($vRead, "<Title>", "</Title>")
If $vTitle = "" Then
Return 3
SetError(3)
Exit
Else
$vTitleResult = _ArrayUnique($vTitle)
_ArrayDelete($vTitleResult, 0)
Return $vTitleResult
EndIf
Else
Return 2
SetError(2)
Exit
EndIf
EndFunc ;==>_Radio_ReadTitleFromASX
Func _Radio_ReadSourceURLFromASX($hFile)
If $hFile <> "" Then
$vRead = FileRead($hFile)
If @error = 1 Then
Return 4
SetError(4)
Exit
EndIf
$vSourceURL = _StringBetween($vRead, '<Param Name = "SourceURL" Value = "', '" />')
If $vSourceURL = "" Then $vSourceURL = _StringBetween($vRead, '<param name="HTMLView" value="', '"/>')
If $vSourceURL = "" Then $vSourceURL = _StringBetween($vRead, '<REF HREF = "', '"/>')
If $vSourceURL = "" Then
Return 3
SetError(3)
Exit
Else
$vSourceURLResult = _ArrayUnique($vSourceURL)
_ArrayDelete($vSourceURLResult, 0)
Return $vSourceURLResult
EndIf
Else
Return 2
SetError(2)
Exit
EndIf
EndFunc ;==>_Radio_ReadSourceURLFromASX