*.m3u, *.pls Auslesen und ermitteln

[Batze]

Es ist da ja unsinnig...

Was sucht denn das return da?

... wie ich schon geschrieben habe.

Code: Alles auswählen

procedure.s ResetFileData(Adresse$)
ReadFile(1,Adresse$)
  tmp.s=Space(Lof())
  ReadData (@tmp,Lof())
CloseFile(1)
procedurereturn tmp
endprocedure

Adresse$ = "C:\Test.m3u"
tmp = ResetFileData(Adresse$)

For x=1 To CountString (tmp,Chr(13))+1
  LnTmp.s=StringField(tmp,x,Chr(13))
  LnTmp.s=PeekS(@LnTmp+1,Len(LnTmp.s)-1)
  StrPos.l=FindString (LCase(LnTmp.s),"m3u",1)
  If StrPos.l
     ;Debug LnTmp.s
     ;Debug tmp.s
     Debug PeekS(@LnTmp+(StrPos.l-1),Len(LnTmp.s)-StrPos.l)
     URLDownloadToFile_(0, tmp.s, "C:\Test2.m3u", 0, 0)
     Adresse$ = "C:\Test2.m3u"
     tmp = ResetFileData(Adresse$)
     x = 0
   EndIf
Next x

Repeat
a$=tmp.s
If FindString(a$,"http",0)
b=FindString(a$,"http",0)
c$=Mid(a$,b,200)
url$=Trim(c$)
EndIf
Until url$
Debug url$

Das ist jetzt die direkte Umsetzung von Kains Code ohne Sprungmarken.
Ich bin mir aber nicht sicher, dass er das wirklich so haben will.

[Tsuki-Namida]

das "GoSub" habe ich verwendet im falle einer weiteren m3u datei da man in einer m3u eine url oder einen localen pfaht zur einer mr3 machen kann und das egal wie offt muss ich jede auslesen um an die radio server adresse zu gelangen.

den code werde ich jetzt ausprobieren (hoffe das es klapt)

[Tsuki-Namida]

So ich habe es ausprobiert. nur leider klapt es nicht so ganz
der code bleibt auf ewig in der ForNext schleife hängen. ich habe mal die befehlszeilen 17 und 18 aus den kommentar geholt und der debug hat mir folgendes gesagt:

Code: Alles auswählen

ttp://www.dunklewelle.de/plist/dunklewelleMDM.m3u
http://www.dunklewelle.de/plist/dunklewelleMDM.m3u
m3
EXTM3U
#EXTM3U
#EXTINF:-1,Radio Dunkle Welle - LoFi-Stream
http://www.radiodunklewelle.de:8000/

die folgenden zeilen hat er immerwieder aus gespuckt und das un unterbrochen immer das glaiche:

Code: Alles auswählen

M3
EXTM3U
#EXTM3U
#EXTINF:-1,Radio Dunkle Welle - LoFi-Stream
http://www.radiodunklewelle.de:8000/

M3
EXTM3U
#EXTM3U
#EXTINF:-1,Radio Dunkle Welle - LoFi-Stream
http://www.radiodunklewelle.de:8000/

in der Test.m3u auf meiner festplatte ist eine URH zur einerweiteren m3u
zu dieser: http://www.dunklewelle.de/plist/dunklewelleMDM.m3u
in dieser m3u befinden sich diese zeilen:
EXTM3U
#EXTM3U
#EXTINF:-1,Radio Dunkle Welle - LoFi-Stream
http://www.radiodunklewelle.de:8000/
wie filter ich mit hilfer des obenstehenden codes diese url raus? also die bedingung muss sein das kein ".m3u" in der adresse zufinden ist

[Tsuki-Namida]

so ich habe es jetzt hier mit einen großen dank an "Hroudtwolf" , "Third" und die anderen die versucht haben mir zu helfen aus dem "PureBasic-Lounge Forum" hier natürlich auch an allen einen großen dank

hier ist die lösung zu meinem Proplem:

Code: Alles auswählen

Procedure ReadM3UStreams(File.s)
  If ReadFile(0,File)                    ;öffnen der Datei
    Repeat
      Line.s=ReadString()                ;eine Zeile wird ausgelesen
      If FindString(Line,"http://",0)    ;Die ausgelesene Zeile wird nach einem Erkennungszeichen durchsucht
        Anzahl=Anzahl+1                  ;Die gefundenen Streams werden gezählt
        For x=1 To 3
          Port.s=StringField(Line,x,":") ;Hier wird nach einem Port gesucht
        Next x
        If Port<>""
          Debug "--- Stream "+Str(Anzahl)+" ---"
          Debug "Address : "+Mid(Line,0,Len(Line)-Len(Port)-1) ; Hier wird die Adresse ohne Port ausgegeben
          Debug "Port : "+Mid(Port,0,Len(Port)-1)              ; und Hier der Port,aber vorsichtig,Port ist ein String ! Kann man aber noch nach belieben verändern ;)
        Else
          Debug "--- Stream "+Str(Anzahl)+" ---"
          Debug Line                     ;Sollte kein Port im String drinne sein,wird nur die Adresse ausgegeben
        EndIf
      EndIf                             
    Until Eof(0)<>0                      ;Und das solange,bis das ende der Datei erreicht wurden ist
    CloseFile(0)
  EndIf
  CallDebugger                           ;Das ist nur für mich,das kannst du weg machen,ich bevorzuge den Consolen-Debugger :)
EndProcedure

ReadM3UStreams("C:\Test.m3u")