Ergebnis 1 bis 3 von 3
  1. #1
    Bad Times Virus Avatar von #AZURA
    Registriert seit
    30.05.2009
    Beiträge
    549

    Standard [Delphi] bestimmten teil auslesen einer Website

    Undzwar bräuchte ich kurz eure hilfe weil ich leider nur Delphi 2010 hier hab
    und kein Visual Studio naja egal vllt. könnt ihr mir helfen
    undzwar geht es um diese Website Welcome to 0dayKingz.org (Showing last 30 releases) - 0DayKingz NFO Source
    ich wollte das es so funktioniert

    Welcome to 0dayKingz.org (Showing last 30 releases) - 0DayKingz NFO Source gebe ich in die textbox ein
    ich drücke auf auf Button1

    und jetzt sollte er von der website den quelltext lesen und dann ein bestimmten teil rauskopieren hier ein teil des quelltext ausdem er die daten rausgeben soll

    </tr>
    <tr style="background: #eeeeee;">
    <td height="20"><a href="/nfo/RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiCA">RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiCA</a></td>
    <td><a href="/group/ATTiCA">ATTiCA</a></td>
    <td><a href="/date/2010-08-28">2010-08-28 06:52</a></td>
    den grünen teil sollte er rauskopieren und in eine txt. speichern das sollte den so aussehen

    RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiCA">RKH.Verlag.-.Kulturschock.Frankreich.3.Edition.2009.German.Ret ail.Ebook-ATTiC - 2010-08-28 06:52

    und das solange bis er die ganze website ausgelesen hat

    dann würde ich halt so eine liste haben

    blablabla - 12-12-2012 - 9:35
    hallodshskld - 12-12-2012 - 06:55

    vllt. könnt ihr mir dabei helfen
    ~~~~~~
    4 | 4 | 0
    ~~~~~~

    Zitat Zitat von xxnonexx
    Hey,
    du hast in diesen Kwick Theard unter XSS gechrieben was über styckis... kannst du mir das erklären?

    made my day

  2. #2
    NoClose Wurm
    Registriert seit
    31.03.2009
    Beiträge
    174

    Standard

    mit indy htpp über get die website downloaden und dann einfach verarbeiten ...

    der korekte befehl zum suchen einer zeile müsste wohl
    for i:=0 to 29 do
    begin
    text[i]:=copy(text,pos('/nfo')+4,pos('</a>')-pos('/nfo')+4); sein
    delete(oder del)(text,pos('/nfo')+4,pos('</a>')-pos('/nfo')-4);
    end;

    ah vdmt hab den copy befehl falsch im kopf gehabt trixx3r hat recht die letzte stelle gibt die anzahl der zu kopierenden zeichen an
    Geändert von dzdz (29.08.2010 um 10:45 Uhr)

  3. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    #AZURA (29.08.2010)

  4. #3
    Trojaner
    Registriert seit
    25.08.2009
    Beiträge
    94

    Standard

    hier mal ne alte function von mir


    function GetTitleFromHTML(HTMLDoc: String):String;
    var
    I: Integer;
    Found: Boolean;
    html: TStringList;
    begin
    html := TStringList.create;
    html.loadfromfile(htmldoc);
    i := 0;
    found := false;
    while not found do
    begin
    if pos('<a href="/nfo/', html.strings[i]) > 0 then
    begin
    Result := copy(html.strings[i], pos('<a href="/nfo/', html.strings[i]) + 14, (pos('</a></td>', html.strings[i]) - pos('<a href="/nfo/', html.strings[i]) - 14));
    Found := true;
    end
    else
    begin
    Inc(i);
    end;
    end;
    html.free;
    end;


    //Anwendungsbeispiel:
    showmessage(GetTitleFromHTML(opendialog1.filename) );
    Geändert von trixx3r (29.08.2010 um 10:28 Uhr)

Ähnliche Themen

  1. Delphi für Vollidioten Teil 2 by Slayer616
    Von Bozok im Forum Biete Tutorials
    Antworten: 8
    Letzter Beitrag: 05.09.2009, 11:57
  2. Delphi für Vollidioten Teil 1 by Slayer616
    Von Bozok im Forum Biete Tutorials
    Antworten: 10
    Letzter Beitrag: 03.09.2009, 20:22
  3. Problem mit PhP Teil einer WoW Seite
    Von MIIIK im Forum PHP
    Antworten: 14
    Letzter Beitrag: 16.11.2008, 21:57
  4. Webmin, nur bestimmter Teil einer Textdatei
    Von slaystation im Forum Linux und UNIX-Systeme
    Antworten: 4
    Letzter Beitrag: 22.10.2008, 14:14

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •