PureBoard

Verfasst: **02.04.2006 16:31**

Hi,
Ich noch mal....
Ich lese jetzt die HTML Datei aus und suche einen String.

Mein Problem ist jetzt bei der suche... Die Hexa farben sind ja zum Beispiel "#000000" (für schwarz) nur durch das Raute Zeichen (#) denkt PB es sei eine konstande... wie kann ich das machen das es nicht als Konstande erkannt wird?

Verfasst: **02.04.2006 16:53**

wenn du das programm kompiliert hast, wird PB das # nicht mehr als konstante interpretieren

Verfasst: **02.04.2006 17:10**

@Green Snake
ja das weis ich.... es wird dann stat dessen eine ziffer eingestzt.
die farbe "#000000" wird dann zum Beispiel zur einer "5".
Wenn ich aber eine Zeile im Suchstring suche wir das ein Problem.
Ich suche Beispielsweise nach:
<td >
nach dem kompilieren sieht das in etwa so aus:
<td >
und dann wird die zeile als nicht gefunden gemeldetaber in dieser Zeile der datei stehen wichtige Informationen die ich brauche.

Genau das selbe ist auch mit den Anführungs Zeichen (") die müssen ja mit gesucht werden und später auch gelöscht werden.

Verfasst: **02.04.2006 17:16**

" = chr (34)
einfach immer dadurch ersetzen

also color="#0000ff"
wird zu "color"+chr(34)+"#0000ff"+chr(34)

Verfasst: **02.04.2006 17:37**

Also müsste es o ausehen?
"<td >"

Es kommt aber die meldung:
Garbage to the end of line

ich finde nur keinen fehler...

Verfasst: **02.04.2006 17:38**

Öhm, ist dem wirklich so? Dann aber schnell eine Bugmeldung an Fred schicken

Verfasst: **02.04.2006 17:40**

ja dem ist wirklich so.... hier noch mal der neue quellen text:

Code: Alles auswählen

URLDownloadToFile_(0, "http://www.komoro.de/radio/php1/playing.php", "C:\Text.txt", 0, 0)
Delay(1)
If ReadFile(0, "C:\Text.txt")
  Debug "Datei geöffnet"
  Debug Eof(0)
  While Eof(0) = 0
    html$ = ReadString()
    If FindString(html$, "Komoro beschallt soeben", 1)
      Temp$ = RemoveString(html$, "Das Schlossradio - Komoro beschallt soeben ")
      Zuhorer$ = RemoveString(Temp$, " Zuhörer !<br><br><p>Gesendet wird")
      Debug Zuhorer$
      MessageRequester("Information","Im Schlossradio sind zurzeit " + Zuhorer$ + " Zuhörer.")
    Else FindString(html$, "<td ><font size=" + Chr(34) + "3" + Chr(34) + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>", 1)
      Temp$ = RemoveString(html$, "    <td ><font size=" + Chr(34) + "3" + Chr(34) + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>")
      Debug Temp$
    EndIf
  Wend
  CloseFile(0)
Else
  MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf

Verfasst: **02.04.2006 17:45**

Magix-Soft <Kain> hat geschrieben:
Code: Alles auswählen
Else FindString(html$, "<td ><font size=" + Chr(34) + "3" + Chr(34) + [...]

Code: Alles auswählen

ElseIf FindString(html$, "<td ><font size=" + Chr(34) + "3" + Chr(34) + [...]

Grüße ... Kiffi

Verfasst: **02.04.2006 17:45**

Also das läuft einwandfrei:

Code: Alles auswählen

Debug "<td ><font size=" + Chr(34) + "3" + Chr(34) + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>"

edit: 1 Sekunde zu langsam

Verfasst: **02.04.2006 17:53**

Ahh habe den fehler gefunden.... es war ein ganz dummer^^

ich habe
Else Findstring gemacht.... anstat ElseIf

Danke für eure hilfe...

PureBoard

Hexa farben in einer html

Hexa farben in einer html