At hente userlist

Start med at hent det ind i en stringList, løb den liste igennem og check på om der står value i det element du er nået til, hvis der gør laver du en Copy() med brug af Lastdelimiter på >, det copy retunere tilføjer du til din listbox items

/Martin

Jeg er ikke helt med...
Hvad skal jeg hente ind i en string-list? Og value?

jeg prøver lige at lave noget til dig :-)

/ZIRON

Du skriver du har hentet source fra bund ind i en string, det skal du hente ind i en stringlist istedet, så kan du arb. med det line-vis, og så gøre som jeg beskrev, men lad nu bare ziron få lidt arb. ro *S*

martin >> tak tak, men det går helt glat så fuck det. hvorfor vil min Delete ikke virke.... arrrrrr

/ZIRON

sidder også selv og prøver (uden held)

Hvordan har du din source af bund ???

ziron, hvad bruger du delete til ??

Hvad mener du?
Jeg hentede f.eks. siden www.blabla.dk/bund.php?userid=u2364837278463sd ned i en streng

(???)

martin >> jeg lavede det i en textbox, for hvis html\'koden ikke var lavet pænt ville det jo gå galt, men skod lort... laver lige noget med en stringlist...

/ZIRON

Ja men du må have fået source ind på en eller anden måde, via en TWebBrover comp. også body property\'en ??

Jeg bruger:

  HTTP := TNMHTTP.Create(nil);
  HTTP.Get (userlistURL);
  userlistURL := (HTTP.Body);
  HTTP.free;

Taget frit ud af notepad med view source ser det sådan ud

<td>
<FONT SIZE=2 FACE=\"Verdena, Tahoma, arial\" color=#ffff00>
<b>Send til</b>:</font> <select name=touser>
<option value=-1>all users<option value=3>test2<option value=2>test
</select>
</td>

Det kunne være fedt hvois den også kunne på en måde binde value\'en navnet

dette burde kunne gøre det hvis der altså er linieskift mellem hver value:

ikke sådan:

<option value=-1>all users<option value=3>test2<option value=2>test

men sådan:

<option value=-1>all users
<option value=3>test2
<option value=2>test

/ZIRON

hvad var det du ville binde???

/ZIRON

hov her kommer det:

var
  liste : TStringList;
  linier, stedstart, stedstop : Integer;
begin
  liste := TStringList.Create;
  liste.Text := Memo1.Lines.Text;

  linier := 1;

  repeat
    if pos(\'<option value=\', liste.Strings[linier]) <> 0 then
      begin
        stedstart := pos(\'>\', liste.Strings[linier]) + 1;
        stedstop := length(liste.Strings[linier]) - stedstart + 1;
        ListBox1.Items.Add(copy(liste.Strings[linier], stedstart, stedstop));
        linier := linier + 1;
      end
    else
      begin
        linier := linier + 1;
    end;
  until
    linier = liste.Count;
end;

/ZIRON

en lille optimering ville være dette :

ListBox1.Items.Add(copy(liste.Strings[linier], LastDelimiter(\'>\',liste.Strings[linier]),Length(liste.Strings[linier])));

Så slipper du for dine sted stop og start *S*

/Martin

Binde på en måde, value i <options> til navnet...
Ved I, om jeg kan \"force\" linieskift i php?

okay som herren siger, men det lille 1\'tal skal med:

var
  liste : TStringList;
  linier: Integer;
begin
  liste := TStringList.Create;
  liste.Text := Memo1.Lines.Text;

  linier := 1;

  repeat
    if pos(\'<option value=\', liste.Strings[linier]) <> 0 then
      begin
        ListBox1.Items.Add(copy(liste.Strings[linier], LastDelimiter(\'>\',liste.Strings[linier]) + 1,Length(liste.Strings[linier])));
        linier := linier + 1;
      end
    else
      begin
        linier := linier + 1;
    end;
  until
    linier = liste.Count;
end;

/ZIRON

Ja, så lad gå da *GG*

:-)

til at binde kan du bruge \"AddObject\" og hvad er det du vil med linieskift???

/ZIRON

user_id = mysql_result($result, $i,\"user_id\");
$user_name = mysql_result($result, $i,\"user_name\");
$users .= \"<option value=$user_id>$user_name\";
$i++;

Jeg skal have indsat så den laver linieskift mellem den adder brugerlisten i teksten

<?php

phpuser_id = mysql_result($result, $i,\"user_id\");
$user_name = mysql_result($result, $i,\"user_name\");
$users = \"<option value=$user_id>$user_name\";

?>

<br>

<?php

$i++;

?>

/ZIRON

$user_id = mysql_result($result, $i,\"user_id\");
$user_name = mysql_result($result, $i,\"user_name\");
$users .= \"<option value=$user_id>$user_name<br>\";
$i++;

nej - ik alligevel

hvad ik alligevel???

/ZIRON

Leger lige med det

k bare iorden :-)

/ZIRON

hmm ser ud som om at det sidste problem var linieskiftet mellem brugernavnene.
Så jeg kom lige på det her, det ser ud som om det virker fint, den skal så bare lige køres inden du prøver på at extracte navnene:

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.WordWrap := false;
memo1.text := StringReplace(memo1.Text, \'<option\', #13#10+\'<option\', [rfReplaceAll]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  liste: TStringList;
  linier: Integer;
  Number: string;
  function Getnumber(str: string): string;
  var
    str1: string;
  begin
    str1 := str;
    Delete(str1, pos(\'<option value=\', str1), pos(\'<option value=\', str1) + 13);
    result := copy(str1, 1, pos(\'>\', str1) - 1);
  end;
begin
//Insert return
  memo1.WordWrap := false;
  memo1.text := StringReplace(memo1.Text, \'<option value=\', #13#10 + \'<option value=\', [rfReplaceAll]);

  liste := TStringList.Create;
  liste.Text := Memo1.Lines.Text;
  linier := 1;
  repeat
    if pos(\'<option value=\', liste.Strings[linier]) <> 0 then
    begin //Getnumber(liste.Strings[linier]) - Vil get the number of the input string
      ListBox1.Items.Add(Getnumber(liste.Strings[linier]) + \' - \' + copy(liste.Strings[linier], LastDelimiter(\'>\', liste.Strings[linier]) + 1, Length(liste.Strings[linier])));
      linier := linier + 1;
    end
    else
    begin
      linier := linier + 1;
    end;
  until
    linier = liste.Count;
end;

//Nu skulle alt jo virke

kan du få det til at funge???

/ZIRON

YuP :) Takker mange gange for jeres hjælp :) Points til alle...

Takker *S*

det var da så lidt og takker for point :-)

/ZIRON