AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Bestimmtes Format aus Memo auslesen

Bestimmtes Format aus Memo auslesen

Ein Thema von Testy · begonnen am 23. Mai 2007 · letzter Beitrag vom 23. Mai 2007
Antwort Antwort
Benutzerbild von Testy
Testy

Registriert seit: 2. Mär 2007
56 Beiträge
 
Delphi 7 Enterprise
 
#1

Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:00
Hallo,

ich habe eine HTML-Seite in ein Memo einlesen lassen. Nun möchte ich alle Zahlen im Format xxxx (Stunden:Minuten:Sekunden) in eine Listbox oder so auslesen.

Z.B.: <table><td>00:13:53</td></table>

Dann soll er mir die 00:13:53 und alle anderen Zahlen in diesem Format in eine Listbox eintragen.

Wäre super wenn ihr eine Idee habt!

Danke im voraus!
  Mit Zitat antworten Zitat
kolbaschedder

Registriert seit: 24. Aug 2006
Ort: Schwäbisch Gmünd
55 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:07
Google mal nach "TRegExpr" gleich der erste Eintrag findet eine Hervorragende komponente mit BeispielProjekt.

Vorsicht, Seite ist in Tschechisch der richtige Button ist mit "Stahnout TRegExpr" beschriftet.

MfG
Kolbi
  Mit Zitat antworten Zitat
kolbaschedder

Registriert seit: 24. Aug 2006
Ort: Schwäbisch Gmünd
55 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:11
Der richtige Reguläre Ausdruck wäre dann sowas wie

[0-9]{2}:[0-9]{2}:[0-9]{2}
  Mit Zitat antworten Zitat
Benutzerbild von Testy
Testy

Registriert seit: 2. Mär 2007
56 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:19
Danke für den Tip! Da ich aber noch blutiger Anfänger bin, kann ich mit dem Programm leider nicht sehr viel anfangen! Scheint mir auch sehr überdimensioniert für mein kleines Problem zu sein!
Trotzdem Danke!
Gibt es für soetwas keine Function oder eine Schleife welche das Memo durchsucht und dann alle Zahlen welche mit zwei Doppelpunkten getrennt sind findet (xxxx)?
  Mit Zitat antworten Zitat
mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#5

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:29
Um reguläre Ausdrücke wirst du dabei nicht rumkommen. Zumindest wenn du dir nicht unnötig arbeit machen willst. Du könntest dir so ne Schleife natürlich auch von Hand zusammenbasteln. Aber warum das Rad zweimal erfinden?
  Mit Zitat antworten Zitat
Benutzerbild von Testy
Testy

Registriert seit: 2. Mär 2007
56 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:38
Habe mich mit TRegExpr nochmal beschäftigt, und es geht! Super Tipp von
kolbaschedder! Danke danke danke!!!

Gruß!
  Mit Zitat antworten Zitat
Benutzerbild von Testy
Testy

Registriert seit: 2. Mär 2007
56 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:47
Ich bin's nochmal! Habe noch ein Problem! Mein Quelltext sieht jetzt wie folgt aus:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  l: TStringList;
  r: TRegExpr;
begin
  l := TStringList.Create;
  r := TRegExpr.Create;
  try
    l.LoadFromFile('deine.html');
    r.Expression := '[0-9]{2}:[0-9]{2}:[0-9]{2}';
    if r.Exec(l.Text) then
    repeat
      listbox1.items.Add(r.Match[0]);
    until not r.ExecNext;
  finally
    r.Free;
    l.Free;
  end;
end;
Funktioniert auch alles! Nun möchte ich statt 'deine.html' den vorhanden Quelltext aus meinem Memo1 nehmen!
l.LoadFromFile(memo1.lines); Funktioniert so aber nicht!
  Mit Zitat antworten Zitat
mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#8

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:49
TMemo.Lines ist schon vom Typ TStrings, also einfach
if r.Exec(meinMemo.Lines.Text) then
  Mit Zitat antworten Zitat
Benutzerbild von Testy
Testy

Registriert seit: 2. Mär 2007
56 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 10:55
Danke mquadrat.
Nun habe ich die Zahlen in einer Listbox stehen! Wie funktioniert es nun jede zweite Zeile in der Listbox in eine weitere Listbox zu kopieren!
Danke!
  Mit Zitat antworten Zitat
mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#10

Re: Bestimmtes Format aus Memo auslesen

  Alt 23. Mai 2007, 11:03
Schleife durch die Einträge der ersten Listbox und dann eben nur jeden zweiten Eintrag (ungerader Index) in die andere Listbox übertragen.

Delphi-Quellcode:
for i := 0 to listbox1.items.count-1 do
begin

  if ((i mod 2) = 1) then
    listbox2.items.add(listbox1.items[i]);

end;
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 15:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz