copy, pos, string zerlegen, HILFE

napsterforever · Beiträge: 73

Hallo,

ich habe folgenden quelltext (x):

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

playerInfo.phtml?pid=4592112','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a> <img src="getImg.phtml?cid=1" alt="Meisterschale" title="Meisterschale"></td><td align="right">0</td><td align="right">47.660.000</td></tr>
playerInfo.phtml?pid=4584708','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname2 Nachname2</a></td><td align="right">0</td><td align="right">36.530.000</td></tr>
playerInfo.phtml?pid=4577749','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname3</a></td><td align="right">0</td><td align="right">36.010.000</td></tr>
playerInfo.phtml?pid=4576634','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname5 Nachname</a></td><td align="right">0</td><td align="right">33.005.000</td></tr>
playerInfo.phtml?pid=4587566','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a></td><td align="right">0</td><td align="right">30.590.000</td></tr>
playerInfo.phtml?pid=5585080','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname</a></td><td align="right">0</td><td align="right">29.400.000</td></tr>
playerInfo.phtml?pid=4643690','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Nachname</a></td><td align="right">0</td><td align="right">25.600.000</td></tr>
playerInfo.phtml?pid=4581018','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a></td><td align="right">0</td><td align="right">16.620.000</td></tr>
playerInfo.phtml?pid=4576642','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a> <img src="getImg.phtml?cid=2" alt="Rote Laterne" title="Rote Laterne"></td><td align="right">0</td><td align="right">14.670.000</td></tr>

und möchte nun die Namen und die dahinterstehenden Zahlen herausfiltern!
Also: Vorname Nachname 47.660.000
Vorname2 Nachname2 36.530.000
Vorname3 36.010.000

nun scheitere ich bereits an den namen, da ich nicht weis wie ich die position im string bestimmen soll!
mein erster versuch:

markieren

Quelltext

1:	mem_Anzeige.Lines.Add(Copy(x,Pos('playerInfo.phtml?pid=4584708'+#39,x)+68,(Pos('</a></td><td align="right">',x)-(Pos('playerInfo.phtml?pid=4584708'+#39,x)+68))));

funktioniert auch für eine zeile ganz gut

, aber eben nicht für alle da ja in jeder zeile z.b. </a></td><td align="right"> steht und ich somit keine eindeutige pos bestimmen kann!

hoffe es blickt da jmd durch und kann mir einen tipp geben!

//Edit: Habe überlegt jedesmal den string zu kürzen:

markieren

Quelltext

1:
2:
3:
4:
5:

mem_Anzeige.Lines.Add(Copy(x,Pos('playerInfo.phtml?pid=4584708'+#39,x)+68,(Pos('</a></td><td align="right">',x)-(Pos('playerInfo.phtml?pid=4584708'+#39,x)+68))));
    x:= Copy(x,Pos('playerInfo.phtml?pid=4584708'+#39,x)+100,3000);
    mem_Anzeige.Lines.Add(Copy(x,Pos('playerInfo.phtml?pid=4577749'+#39,x)+68,(Pos('</a></td><td align="right">',x)-(Pos('playerInfo.phtml?pid=4577749'+#39,x)+68))));
    x:= Copy(x,Pos('playerInfo.phtml?pid=4577749'+#39,x)+100,3000);
    mem_Anzeige.Lines.Add(Copy(x,Pos('playerInfo.phtml?pid=4576634'+#39,x)+68,(Pos('</a></td><td align="right">',x)-(Pos('playerInfo.phtml?pid=4576634'+#39,x)+68))));

aber irgendwie scheint mir das alles zu umständlich und ausserdem wechseln die zeilen ständig, sprich sortiert nach der zahl!

jaenicke · Verfasst: Di 30.06.09 00:39

Wie wäre es so? Dann wäre auch eine Fehlerbehandlung dabei...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

function ExtractValues(const AText: string; var AName, ANumber: string): Boolean;
const
  NameStart = '''))">';
  NameEnd = '</a>';
  NumberEnd = '</td></tr>';
var
  CurrentText: PChar;
  FoundPos: Integer;
begin
  Result := False;
  // search name start sequence
  FoundPos := Pos(NameStart, AText);
  if FoundPos = 0 then
    Exit;
  CurrentText := @AText[FoundPos + Length(NameStart)];
  // search name end
  FoundPos := Pos(NameEnd, CurrentText);
  if FoundPos = 0 then
    Exit;
  AName := Copy(CurrentText, 1, FoundPos - 1);
  // search number end sequence
  FoundPos := Pos(NumberEnd, CurrentText);
  if FoundPos = 0 then
    Exit;
  // goto end of number
  Inc(CurrentText, FoundPos);
  FoundPos := 0;
  // go back while start char not found
  while CurrentText^ <> '>' do
  begin
    Dec(CurrentText);
    Inc(FoundPos);
  end;
  ANumber := Copy(CurrentText, 2, FoundPos - 2);
  Result := True;
end;

procedure TForm214.Button1Click(Sender: TObject);
var
  ExtractedName, ExtractedNumber: String;
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    if ExtractValues(Memo1.Lines[i], ExtractedName, ExtractedNumber) then
      ShowMessage(ExtractedName + #13#10 + ExtractedNumber)
    else
      ShowMessage(Memo1.Lines[i]);
end;

napsterforever · Beiträge: 73

das ist ja genial

ich will jetzt die namen und zahlen in einem memo oder grid ausgeben lassen, also
Name Zahl
Name2 Zahl2 usw

die berechnung soll aber im hintergrund laufen, kann ich den quelltext nur in ein memo schreiben und dann die namen raussorterien?

markieren

Quelltext

1:
2:
3:
4:

for i := 0 to mem_berechnung.Lines.Count - 1 do
    if ExtractValues(Mem_berechnung.Lines[i], ExtractedName, ExtractedNumber) then
      //ShowMessage(ExtractedName + #13#10 + ExtractedNumber)
      Mem_anzeige.Lines.add(ExtractedName + #13#10 + ExtractedNumber)

wenn ich das mem_berechnung klein und visible:=false setze funktioniert es nicht mehr!
ich bin leider in delphi (noch) nicht sehr bewandert ;-(

jaenicke · Verfasst: Di 30.06.09 14:23

Willst du die Ergebnisse jetzt in einem Memo dem Benutzer anzeigen oder willst du die nur im Programm speichern und benutzen? :gruebel:

Und was "funktioniert nicht mehr"?

napsterforever · Beiträge: 73

ich will die ergebnisse dem benutzer in einem memo oder besser noch in einer tabelle anzeigen, ich weiss nur nicht recht wie ich deine function verwenden muss!
Hatte irgendwie den quelltext in ein mem_berechnung geschrieben und dann mit deiner function die einzelnen zeilen eben untersuchen lassen und die namen ausgegeben in einem anderen mem_anzeigen!
Die berechnung im mem_berechnen soll aber im hintergrund laufen, aber wenn ich das memofeld irgendwie kleiner mache und visible:=false setze geht das nicht mehr s.o.! ich weiss leider nicht recht wie ich es anders machen soll

jaenicke · Verfasst: Di 30.06.09 16:25

napsterforever hat folgendes geschrieben :

geht das nicht mehr s.o.!

Wie du es immer schaffst dich mit so wenigen Worten so klar auszudrücken... jetzt weiß ich natürlich ganz genau was du meinst was da falsch läuft... :roll:

Wieviele Zeilen sind das denn, dass das im Hintergrund laufen muss? Lines.BeginUpdate / Lines.EndUpdate könnten helfen.

Ich rate einmal ins Blaue...
Wenn du die Zeilenumbrücke weg haben willst, setze WordWrap auf False.
Wenn du ScrollBars haben willst, setze die entsprechende Eigenschaft.
Wenn das Programm abstürzt, nimm den Debugger und schau was passiert...
Wenn das Memo gar nicht mehr zu sehen ist, setze Visible danach wieder auf True.

napsterforever · Beiträge: 73

jaenicke hat folgendes geschrieben :

napsterforever hat folgendes geschrieben :

geht das nicht mehr s.o.!

Wie du es immer schaffst dich mit so wenigen Worten so klar auszudrücken... jetzt weiß ich natürlich ganz genau was du meinst was da falsch läuft... :roll:

ja wie oben bereits geschrieben eben xD
sieht also so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.but_spielstandClick(Sender: TObject);
var
  x,str,ExtractedName, ExtractedNumber: String;
  i: Integer;
begin
  x := idhttp1.GET('http://www.comunio.de/standings.phtml');
  mem_berechnung.text := Copy(x,Pos('playerInfo.phtml?pid=4592112',x)+2,2000);
  for i := 0 to mem_berechnung.Lines.Count - 1 do
    if ExtractValues(Mem_berechnung.Lines[i], ExtractedName, ExtractedNumber) then
      Mem_anzeige.Lines.add(ExtractedName + #13#10 + ExtractedNumber)
end;

//Wenn ich auf den Button klicke soll dem benutzer in einem memo oder einer tabelle
Name Zahl
Name2 Zahl2 etc ausgegeben werden

Zitat:

Wieviele Zeilen sind das denn, dass das im Hintergrund laufen muss? Lines.BeginUpdate / Lines.EndUpdate könnten helfen.

ja wie siehe oben

, ich weiss ja nicht mal ob das im hintergrund laufen muss, das ist ja meine frage wie ich deine function für mein vorhaben am besten anwenden kann.

ich will diesen "ausschnitt" des quelltextes von /standings.phtml:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

playerInfo.phtml?pid=4592112','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a> <img src="getImg.phtml?cid=1" alt="Meisterschale" title="Meisterschale"></td><td align="right">0</td><td align="right">47.660.000</td></tr>
playerInfo.phtml?pid=4584708','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname2 Nachname2</a></td><td align="right">0</td><td align="right">36.530.000</td></tr>
playerInfo.phtml?pid=4577749','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname3</a></td><td align="right">0</td><td align="right">36.010.000</td></tr>
playerInfo.phtml?pid=4576634','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname5 Nachname</a></td><td align="right">0</td><td align="right">33.005.000</td></tr>
playerInfo.phtml?pid=4587566','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a></td><td align="right">0</td><td align="right">30.590.000</td></tr>
playerInfo.phtml?pid=5585080','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname</a></td><td align="right">0</td><td align="right">29.400.000</td></tr>
playerInfo.phtml?pid=4643690','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Nachname</a></td><td align="right">0</td><td align="right">25.600.000</td></tr>
playerInfo.phtml?pid=4581018','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a></td><td align="right">0</td><td align="right">16.620.000</td></tr>
playerInfo.phtml?pid=4576642','c41c569a1b9c46c4cbc4bc58f37cb05f'))">Vorname Nachname</a> <img src="getImg.phtml?cid=2" alt="Rote Laterne" title="Rote Laterne"></td><td align="right">0</td><td align="right">14.670.000</td></tr>

eben so bearbeiten, dass ich nachher nur noch name und zahl habe!

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Di 30.06.09 16:41

Das macht der Quelltext bei mir auch problemlos aus den Zeilen. :nixweiss:

Was läuft denn nun falsch?

Loggst du dich denn überhaupt vorher mit der Indy-Komponente ein?
(Und wenn es das wirklich ist, dann hättest du das im Debugger längst sehen können, dass da was falsches ankommt...)

// EDIT:
Nebenbei: Wozu das Memo mem_berechnung, wenn du offenbar gar nicht nachschaust was darin ankommt? Und wenn das im Programm dann gar nicht zu sehen sein soll, reicht auch eine TStringList.

napsterforever · Beiträge: 73

jaenicke hat folgendes geschrieben :

Loggst du dich denn überhaupt vorher mit der Indy-Komponente ein?
(Und wenn es das wirklich ist, dann hättest du das im Debugger längst sehen können, dass da was falsches ankommt...)

eingeloggt bin ich definitiv sonst würde ich nicht auf die /standings.phtml zugriffen können bzw mir würde ja nichts angezeigt. ich bekomme aber je nachdem wie ich eben das mem_berechnung in seiner größe verändere die namen und zahlen nachher im mem_anzeige angezeigt, um so größer das memo umso mehr namen und zahlen?!^^

jaenicke hat folgendes geschrieben :

Nebenbei: Wozu das Memo mem_berechnung, wenn du offenbar gar nicht nachschaust was darin ankommt? Und wenn das im Programm dann gar nicht zu sehen sein soll, reicht auch eine TStringList.

ich lasse mir das mem_berechnung ja auch anzeigen und wenn ich

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.but_spielstandClick(Sender: TObject);
var
  x,str,ExtractedName, ExtractedNumber: String;
  i: Integer;
begin
  x := idhttp1.GET('http://www.comunio.de/standings.phtml');
  mem_berechnung.text := Copy(x,Pos('playerInfo.phtml?pid=4592112',x)+2,2000);
  for i := 0 to mem_berechnung.Lines.Count - 1 do
    if ExtractValues(Mem_berechnung.Lines[i], ExtractedName, ExtractedNumber) then
      Mem_anzeige.Lines.add(ExtractedName + #13#10 + ExtractedNumber)
end;

ausführe, dann steht nachher der relevante teil der standings.phtml, also Copy(x,Pos('playerInfo.phtml?pid=4592112',x)+2,2000);, im mem_berechnen, ist ja auch logisch^^
Dass ich das mem_berechnen wahrscheinlich gar nicht brauche vermute ich ja, mein vorhaben ist wie gesagt bloß die namen und zahlen aus dieser standings.phtml in einem memo oder tabelle anzeigen zu lassen, mehr will ich ja gar nicht

mit tstringlist weiss ich nicht wie ich das machen muss

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Di 30.06.09 16:57

napsterforever hat folgendes geschrieben :

ich bekomme aber je nachdem wie ich eben das mem_berechnung in seiner größe verändere die namen und zahlen nachher im mem_anzeige angezeigt, um so größer das memo umso mehr namen und zahlen?!^^

Wenn du darin mit der Maus ziehst (oder die Pfeiltasten nutzt), dann siehst du, dass du dabei scrollst. Jedenfalls hatte ich ja dann richtig geraten...

jaenicke hat folgendes geschrieben :

Wenn du ScrollBars haben willst, setze die entsprechende Eigenschaft.

napsterforever · Beiträge: 73

ich glaube du weisst nicht recht was ich meine :cry:

ich will keine scrollbalken und das verdammte mem_berechnen ja gar nicht haben,
ich will bloß namen und zahlen in mem_anzeige anzeigen lassen!
sag mir einfach wie ich das am besten machen :-)

ich habe
a) einen html quelltext von /standings.phtml
b) ein memo feld (mem_anzeigen)
c) deine function
und d) einen button (but_spielstand)!

man stelle sich also vor, auf dem formular (der anwendungsoberfläche, die der benutzer sieht) befinden sich zwei edit felder und ein loginbutton zur anmeldung, ein spielstand-anzeigenbutton und ein memo feld darüber!
Man loggt sich ein, klickt auf den spielstand-anzeigenbutton und SOLL dann einfach nur den spielstand im memo feld (im letzteren mem_anzeige genannt) angezeigt bekommen, also vorerst:
Name Zahl
Name2 Zahl2
asdlkasjd 23213
asldkjawd 2323
ljasdla 2323

p.s. sry aber ich bin mit delphi absolut nicht lange vertraut und danke für deine viele mühe, hoffe du verstehst überhaupt was ich vor habe jetzt xD

jaenicke · Verfasst: Di 30.06.09 17:28

Ach so, jetzt verstehe ich, dass dein Memo als Zwischenspeicher zu klein ist, ist das Problem...
Die Zeilen werden umgebrochen, weil WordWrap auf True ist bei dir.
Auch das hatte ich oben schon geschrieben...

Das ist genau eines der vielen Probleme, wenn man visuelle Komponenten als Zwischenspeicher missbraucht... :roll:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.but_spielstandClick(Sender: TObject);
var
  i: Integer;
  PageContents: TStringList;
  ExtractedName, ExtractedNumber: String;
begin
  PageContents := TStringList.Create;
  try
    PageContents.Text := IdHttp1.Get('http://www.comunio.de/standings.phtml');
    PageContents.Text := Copy(PageContents.Text, Pos('playerInfo.phtml?pid=4592112', PageContents.Text) + 2, 2000);
    for i := 0 to PageContents.Count - 1 do
      if ExtractValues(PageContents[i], ExtractedName, ExtractedNumber) then
        Mem_anzeige.Lines.add(ExtractedName + #13#10 + ExtractedNumber)
  finally
    PageContents.Free;
  end;
end;

napsterforever · Beiträge: 73

jawoll jetzt nimmt das ganze doch schon formen an, vielen vielen dank für die mühe

jetzt muss ich das nur noch irgendwie tabellarisch hinkriegen und die punkte noch rausfiltern, aber danke erstmal soweit ;-)

jaenicke · Verfasst: Di 30.06.09 17:48

Tabellarisch: Nimm TListView statt nem Memo. ;-)

napsterforever · Beiträge: 73

jaenicke hat folgendes geschrieben :

Tabellarisch: Nimm TListView statt nem Memo. ;-)

hmm war mal wieder eine schwierige geburt bis ich Tlistview verstanden habe, AAAABER immerhin hab ichs hinbekommen ;-)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.but_spielstandClick(Sender: TObject);
var
  i: Integer;
  PageContents: TStringList;
  ExtractedName, ExtractedNumber: String;
  L: TListItem;
begin
  if lab_status.Caption = 'Du bist Eingeloggt' = true then
  begin
  PageContents := TStringList.Create;
  try
    PageContents.Text := IdHttp1.Get('http://www.comunio.de/standings.phtml');
    PageContents.Text := Copy(PageContents.Text, Pos('<tr class="tablecontent01">', PageContents.Text) + 2, 5000);
    for i := 0 to PageContents.Count - 1 do
      if ExtractValues(PageContents[i], ExtractedName, ExtractedNumber) then
        begin
          L := liv_anzeige.items.add;
          L.Caption := (ExtractedName);
          L.SubItems.Add(ExtractedNumber);
        end;
  finally
    PageContents.Free;
  end;
  end;
end;

YES, ich mache fortschritte, und nochmals danke für die mühe :-)

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Di 30.06.09 19:22

Sehr schön mit der Zwischenvariablen, ja. :zustimm:

Eine Sache gibts aber noch:

napsterforever hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	if lab_status.Caption = 'Du bist Eingeloggt' = true then

Nimm lieber:

markieren

Delphi-Quelltext

1:	if lab_status.Caption = 'Du bist Eingeloggt' then

Das reicht auch. Schließlich ergibt der Vergleich mit true oder false doch auch nur wieder true oder false. Also kannst du den Wert doch direkt nehmen. ;-)

Zudem ist der Vergleich mit Booleanwerten auch falsch. Hier habe ich mal ein kleines Beispiel gebastelt, wann es schief geht:
www.delphi-forum.de/....php?p=548760#548760
Mehr dazu steht hier unter Anfängerfehler:
www.delphi-treff.de/...olean-werten/page/4/
Und warum das eigentlich auch sowieso unlogisch ist:
www.delphi-forum.de/....php?p=560637#560637

napsterforever · Beiträge: 73

ok, wieder was gelernt :-)

---Moderiert von Narses: Beiträge zusammengefasst---

noch eine Frage:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.but_loginClick(Sender: TObject);
var
  s:string;
  stream: TStringList;
begin
  try
    try
      IdHttp1.HandleRedirects := true;
      IdHTTP1.AllowCookies:=true;
      IdHTTP1.CookieManager:=IdCookieManager1;
      stream := TStringList.Create;
      Stream.Add('login='+edt_Benutzername.Text);
      Stream.Add('pass='+edt_Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('%3E%3E+Login_x=33');

      s := idhttp1.Post('http://www.comunio.de/login.phtml',stream);

      if (Pos('Logout',s) > 0) then
        begin
          ShowMessage('Du bist Eingeloggt.');
          lab_status.Caption := 'Du bist Eingeloggt';
        end;
      if (Pos('Logout',s) = 0) then
        begin
          ShowMessage('E-Mail-Adresse oder Passwort falsch ODER Server-Überlastung');
          lab_status.Caption := 'Du bist Ausgeloggt';
          but_loginhack.Enabled := true;
        end;
    finally
      Stream.Free;
    end;
  except on E: Exception do
    ShowMessage(E.Message);
  end;
end;

Wenn ich auf den Button klicke kommt zunächst immer die Fehlermeldung 'E-Mail-Adresse oder Passwort falsch ODER Server-Überlastung'. Erst beim zweiten klick auf den Button loggt er sich ein, warum?

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Di 30.06.09 20:16

Schau dir eben den Inhalt von s an, da sollte ja eine Meldung oder so drin stehen...

napsterforever · Beiträge: 73

hmm wenn ichs so mache

markieren

Delphi-Quelltext

1:
2:
3:
4:

      idhttp1.Post('http://www.comunio.de/login.phtml',stream);
      s := idhttp1.Post('http://www.comunio.de/login.phtml',stream);

      if (Pos('Logout',s) > 0) then

gehts

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Di 30.06.09 20:27

Naja, sicher, aber du hättest ja auch einfach einmal schauen können was da für eine Meldung kommt. Vielleicht lässt sich das ja beheben.

Du brauchst das ja nur in ein Memo oder so schnell mal schreiben um dir anzuschauen was da zurückkommt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme