Hexa farben in einer html

[Tsuki-Namida]

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?

[Green Snake]

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

[Tsuki-Namida]

@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 ><font size="3" color="#003366"><small>
nach dem kompilieren sieht das in etwa so aus:
<td ><font size="3" color="5"><small>
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.

[Macros]

" = chr (34)
einfach immer dadurch ersetzen


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

[Tsuki-Namida]

Also müsste es o ausehen?
"<td ><font size=" + Chr(34) + "3" + Chr(34) + "color=" + Chr(34) + "#003366" + Chr(34) + "><small>"

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


ich finde nur keinen fehler...

[freedimension]

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

[Tsuki-Namida]

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

[Kiffi]

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

[Macros]

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

[Tsuki-Namida]

Ahh habe den fehler gefunden.... es war ein ganz dummer^^ ich habe
Else Findstring gemacht.... anstat ElseIf

Danke für eure hilfe...