TXT auslesen und in ListBox ausgeben

fabi65 · Beiträge: 64

hallo,
ich habe eine TXT in der vollgendes steht:

Quelltext

1:	Name&&link&&

jetzt möchte ich das ganze in einer listbox ausgeben und wenn man darauf klickt den link im inet geöffnet bekommen. Ich bin ein ziemlicher noob in Delphi, wäre aber für Hilfe dankbar

Edit: Die txt soll aus dem inet ausgelesen werden: www.test.de/test.txt sowas halt...

Harry M. · Beiträge: 754 Win 2000, XP D2005

markieren

Delphi-Quelltext

1:	listbox1.items.loadfromfile(FILE);

sollte gehen (habe es aus kopf geschrieben) wenn nicht nochmal meden

und herzlich willkomen im delphiforum!

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

fabi65 · Beiträge: 64

muss ich da noch eine unit einfügen? und wie bekomme ich hin das da nur der Name drinsteht? und das ein link drauf ist.....

fabi65 · Beiträge: 64

ok geht, nur steht der gesamte inhalt der txt da drin.....

Harry M. · Beiträge: 754 Win 2000, XP D2005

naja wolltest doch oder habe ich da was falsch verstanden
ps: das andere geht nicht ich kuck abermal... sorry

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

fabi65 · Beiträge: 64

also ich halt den namen aus der txt ausgeben lassen, und daruaf soll dann ein link sein...

Harry M. · Beiträge: 754 Win 2000, XP D2005

war mal kurz im "labor": so gehts

markieren

Delphi-Quelltext

1:
2:
3:

uses shellapi
//...
ShellExecute(Application.Handle, 'open', PChar(Listbox1.Items.Strings[listbox1.ItemIndex]), nil, nil, sw_ShowNormal)

na du hast eine liste mit links:
www.blabla.de
www.schnulli.de
www.hokuspokus.de
usw.

diese in eine listbox laden:

markieren

Delphi-Quelltext

1:	Listbox1.items.loadsfromfile('Links.txt');

und in das onclickereignis der listbox den code ^^^ einfügen dann sollte es gehen

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

WeBsPaCe · Verfasst: Di 29.03.05 20:57

Ich glaub sein Hauptproblem ist, dass er alles links vom && als Text und das rechts davon als eigentliche URL haben will.

Harry M. · Beiträge: 754 Win 2000, XP D2005

du meinst ne splittung des textes? in text und url?

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

fabi65 · Beiträge: 64

jup

Harry M. · Beiträge: 754 Win 2000, XP D2005

dann kuckst du hier: www.delphi-forum.de/...39038&highlight=

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

Harry M. · Beiträge: 754 Win 2000, XP D2005

ich habe das mal für dich gemacht

markieren

Delphi-Quelltext

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

procedure TForm1.ListBox1Click(Sender: TObject);
Var
  s, s1, s2, s3: String;
begin
 S := Listbox1.Items.Strings[listbox1.ItemIndex];
 s1 := Copy(s, 1, Pos(' ', s) - 1);
  Delete(s, 1, Pos('/', s));
  s := Trim(s);

  s2 := Copy(s, 1, Pos('/', s) - 1);
  Delete(s, 1, Pos('/', s));

  s3 := s;

  ShellExecute(Application.Handle, 'open', PChar(s3), nil, nil, sw_ShowNormal)
end;

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

fabi65 · Beiträge: 64

danke ,aber ich bin ein ziemlicher noob.... wo ich jetzt den dateinamen angeben? und muss ich sonst noch was angeben?

fabi65 · Beiträge: 64

hab das jetzt so gemacht:

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:

procedure TForm9.ListBox1Click(Sender: TObject);
Var
  s, s1, s2, s3: String;

begin
    listbox1.items.loadfromfile('C:\lol.txt');
  S := Listbox1.Items.Strings[listbox1.ItemIndex];
 s1 := Copy(s, 1, Pos(' ', s) - 1);
  Delete(s, 1, Pos('/', s));
  s := Trim(s);


  s2 := Copy(s, 1, Pos('/', s) - 1);
  Delete(s, 1, Pos('/', s));


  s3 := s;

 
  ShellExecute(Application.Handle, 'open', PChar(s3), nil, nil, sw_ShowNormal)

end;

end.

geht aber nett..... was mach ich falsch?

Harry M. · Beiträge: 754 Win 2000, XP D2005

ich lese immer viel zu schnell:
schnip schnap warte mal...

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

fabi65 · Beiträge: 64

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:
49:
50:

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, shellapi;

type
  TForm9 = class(TForm)
    ListBox1: TListBox;
    procedure ListBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.ListBox1Click(Sender: TObject);
Var
  s, s1, s2, s3: String;

begin
    listbox1.items.loadfromfile('C:\lol.txt');

  S := Listbox1.Items.Strings[listbox1.ItemIndex];
 s1 := Copy(s, 1, Pos(' ', s) - 1);
  Delete(s, 1, Pos('/', s));
  s := Trim(s);


  s2 := Copy(s, 1, Pos('/', s) - 1);
  Delete(s, 1, Pos('/', s));


  s3 := s;

 
  ShellExecute(Application.Handle, 'open', PChar(s3), nil, nil, sw_ShowNormal)

end;

end.

WeBsPaCe · Verfasst: Di 29.03.05 21:47

Eieiei...

Bau mal bitte in deine letzten beiden Beiträge immer Delphi-Tags rein.

Danke.

Harry M. · Beiträge: 754 Win 2000, XP D2005

legste dir noch nen button auf die form und nen opendialog!

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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if opendialog1.execute then listbox1.items.loadfromfile(opendialog1.filename);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
Var
  s, s1, s2, s3: String;
begin
      S := Listbox1.Items.Strings[listbox1.ItemIndex];
    s1 := Copy(s, 1, Pos(' ', s) - 1);
    Delete(s, 1, Pos('/', s));
    s := Trim(s);
    s2 := Copy(s, 1, Pos('/', s) - 1);
    Delete(s, 1, Pos('/', s));
    s3 := s;
  ShellExecute(Application.Handle, 'open', PChar(s3), nil, nil, sw_ShowNormal)
end;

end.

nun sollte es doch gehen
@WeBsPaCe: übste schon mal den mod *g

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

fabi65 · Beiträge: 64

opendialog???

Harry M. · Beiträge: 754 Win 2000, XP D2005

quäl bitte deine delphi-hilfe-suchfunktion und nicht mich :lol:

_________________
Gruß Harry
Et spes me per dies sine te ducat et amor me ferat, si dolor spem tollit.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme