AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte kleines Wetter-Programm
Thema durchsuchen
Ansicht
Themen-Optionen

kleines Wetter-Programm

Ein Thema von markus5766h · begonnen am 9. Jun 2009 · letzter Beitrag vom 4. Feb 2011
 
Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
 
Delphi XE8 Professional
 
#23

Re: kleines Wetter-Programm

  Alt 10. Jun 2009, 10:34
@R2009

die daten vom Wetterdienst hole ich mir per UrlDownloadToFile.
danach entferne ich mittels folgender Funktion die UTF-8 Bytes
und habe danach einen Text, den ich dann nach den entspr. Werten durchsuchen kann.

Delphi-Quellcode:
function StripHTMLTags(const strHTML: string): string;
var
  P: PChar;
  InTag: Boolean;
  i, intResultLength: Integer;
begin
  P := PChar(strHTML);
  Result := '';

  InTag := False;
  repeat
    case P^ of
      '<': InTag := True;
      '>': InTag := False;
      #13, #10: ; {do nothing}
      else
        if not InTag then
        begin
          if (P^ in [#9, #32]) and ((P+1)^ in [#10, #13, #32, #9, '<']) then
          else
            Result := Result + P^;
        end; // end else begin
    end; // end case of
    Inc(P);
  until (P^ = #0); // until..repeat

  Result := StringReplace(Result, '&quot;', '"', [rfReplaceAll]);
  Result := StringReplace(Result, '&apos;', '''', [rfReplaceAll]);
  Result := StringReplace(Result, '>', '>', [rfReplaceAll]);
  Result := StringReplace(Result, '<', '<', [rfReplaceAll]);
  Result := StringReplace(Result, '&amp;', '&', [rfReplaceAll]);
  Result := StringReplace(Result, 'ä', 'ä', [rfReplaceAll]);
  Result := StringReplace(Result, 'ü', 'ü', [rfReplaceAll]);
  Result := StringReplace(Result, 'ß', 'ß', [rfReplaceAll]);
  Result := StringReplace(Result, 'ö', 'ö', [rfReplaceAll]);
  Result := StringReplace(Result, 'Ö', 'Ö', [rfReplaceAll]); // die Liste lässt sich nach Bedarf anpassen
end;
die zu suchenden Strings habe ich in arrays gespeichert
Markus H.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz