Ładny brzuch
CHodzi mi o takie cos , mam wyraz w pliku zapisany w takiej postaci :
http://strona.pl:opis
Chce aby strona byla w jednym listboxie natomiast opis strony w 2.
Problem w tym ze uzywajac ponizszej funkcji , wyrazy z pliku dzielone sa tak :
Listbox1 -> http:// Listbox2 -> stronka.pl:opis
A oto moje zrodlo :
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; S1,S2,S3: String; Plik: TStringList; begin Listbox1.Clear; Listbox2.Clear; Plik:=TStringList.Create; Plik.LoadFromFile('cos.txt'); for I:=0 to Plik.Count-1 do begin S1:=Copy(Plik[I],1,Pos(':',Plik[I])+2); S2:=Copy(Plik[I],Pos(':',Plik[I])+3,Length(Plik[I] )); ListBox1.Items.Add(S1); ListBox2.Items.Add(S2); end; Plik.Free; end;
Z gory dziekuje za uzyskana pomoc
CHodzi mi o takie cos , mam wyraz w pliku zapisany w takiej postaci :
http://strona.pl:opis
Chce aby strona byla w jednym listboxie natomiast opis strony w 2.
Problem w tym ze uzywajac ponizszej funkcji , wyrazy z pliku dzielone sa tak :
Listbox1 -> http:// Listbox2 -> stronka.pl:opis
A oto moje zrodlo :
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; S1,S2,S3: String; Plik: TStringList; begin Listbox1.Clear; Listbox2.Clear; Plik:=TStringList.Create; Plik.LoadFromFile('cos.txt'); for I:=0 to Plik.Count-1 do begin S1:=Copy(Plik[I],1,Pos(':',Plik[I])+2); S2:=Copy(Plik[I],Pos(':',Plik[I])+3,Length(Plik[I] )); ListBox1.Items.Add(S1); ListBox2.Items.Add(S2); end; Plik.Free; end;
Z gory dziekuje za uzyskana pomoc
tak wygladaja wlasnie linie w pliku txt :
adres:opis adres2:opis2 itd...
wiec Twoja opcja odpada
przerb sobie:
procedure TForm1.Button1Click(Sender: TObject); var I : Integer; begin for I:=0 to Memo1.Lines.Count-1 do begin ListBox1.Items.Add(Copy(Memo1.Lines.Strings[i], 0, Pos('//', Memo1.Lines.Strings[i])+1)); ListBox2.Items.Add(Copy(Memo1.Lines.Strings[i], Pos('//', Memo1.Lines.Strings[i])+2, Length(Memo1.Lines.Strings[i]))); end; end;
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; Plik: TStringList; begin Listbox1.Clear; Listbox2.Clear; Listbox3.Clear; Plik:=TStringList.Create; Plik.LoadFromFile('cos.txt'); for I:=0 to Plik.Count-1 do begin ListBox1.Items.Add(Copy(Plik.Strings[i], 0, Pos('//', Plik.Strings[i])+1)); ListBox2.Items.Add(Copy(Plik.Strings[i], Pos('//', Plik.Strings[i])+2, Length(Plik.Strings[i]))); Listbox3.Items.Add(Copy(ListBox2.Items.Strings[i], 0, Pos(':', ListBox2.Items.Strings[i])-1)); end; Plik.Free; end;
tyle ze to i tak ciagle robi to samo , tzn :
listbox1 -> http:// listbox2 -> strona:nazwa listbox3 -> strona
A jak to zrobic aby bylo odrazu ???? :
listbox1 -> strona listbox2 -> nazwa
Uytkownik roger1234 edytowa ten post 11 sierpie 2005, 19:23
masz kod jak ja podzieliem http://strona.pl:opis na http:// i strona.pl:opis wic sobie przerb, eby Ci port wyciga, a nie jelenia szukasz
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
http://strona.pl:opis
Chce aby strona byla w jednym listboxie natomiast opis strony w 2.
Problem w tym ze uzywajac ponizszej funkcji , wyrazy z pliku dzielone sa tak :
Listbox1 -> http:// Listbox2 -> stronka.pl:opis
A oto moje zrodlo :
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; S1,S2,S3: String; Plik: TStringList; begin Listbox1.Clear; Listbox2.Clear; Plik:=TStringList.Create; Plik.LoadFromFile('cos.txt'); for I:=0 to Plik.Count-1 do begin S1:=Copy(Plik[I],1,Pos(':',Plik[I])+2); S2:=Copy(Plik[I],Pos(':',Plik[I])+3,Length(Plik[I] )); ListBox1.Items.Add(S1); ListBox2.Items.Add(S2); end; Plik.Free; end;
Z gory dziekuje za uzyskana pomoc
CHodzi mi o takie cos , mam wyraz w pliku zapisany w takiej postaci :
http://strona.pl:opis
Chce aby strona byla w jednym listboxie natomiast opis strony w 2.
Problem w tym ze uzywajac ponizszej funkcji , wyrazy z pliku dzielone sa tak :
Listbox1 -> http:// Listbox2 -> stronka.pl:opis
A oto moje zrodlo :
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; S1,S2,S3: String; Plik: TStringList; begin Listbox1.Clear; Listbox2.Clear; Plik:=TStringList.Create; Plik.LoadFromFile('cos.txt'); for I:=0 to Plik.Count-1 do begin S1:=Copy(Plik[I],1,Pos(':',Plik[I])+2); S2:=Copy(Plik[I],Pos(':',Plik[I])+3,Length(Plik[I] )); ListBox1.Items.Add(S1); ListBox2.Items.Add(S2); end; Plik.Free; end;
Z gory dziekuje za uzyskana pomoc
tak wygladaja wlasnie linie w pliku txt :
adres:opis adres2:opis2 itd...
wiec Twoja opcja odpada
przerb sobie:
procedure TForm1.Button1Click(Sender: TObject); var I : Integer; begin for I:=0 to Memo1.Lines.Count-1 do begin ListBox1.Items.Add(Copy(Memo1.Lines.Strings[i], 0, Pos('//', Memo1.Lines.Strings[i])+1)); ListBox2.Items.Add(Copy(Memo1.Lines.Strings[i], Pos('//', Memo1.Lines.Strings[i])+2, Length(Memo1.Lines.Strings[i]))); end; end;
procedure TForm1.Button1Click(Sender: TObject); var I: Integer; Plik: TStringList; begin Listbox1.Clear; Listbox2.Clear; Listbox3.Clear; Plik:=TStringList.Create; Plik.LoadFromFile('cos.txt'); for I:=0 to Plik.Count-1 do begin ListBox1.Items.Add(Copy(Plik.Strings[i], 0, Pos('//', Plik.Strings[i])+1)); ListBox2.Items.Add(Copy(Plik.Strings[i], Pos('//', Plik.Strings[i])+2, Length(Plik.Strings[i]))); Listbox3.Items.Add(Copy(ListBox2.Items.Strings[i], 0, Pos(':', ListBox2.Items.Strings[i])-1)); end; Plik.Free; end;
tyle ze to i tak ciagle robi to samo , tzn :
listbox1 -> http:// listbox2 -> strona:nazwa listbox3 -> strona
A jak to zrobic aby bylo odrazu ???? :
listbox1 -> strona listbox2 -> nazwa
Uytkownik roger1234 edytowa ten post 11 sierpie 2005, 19:23
masz kod jak ja podzieliem http://strona.pl:opis na http:// i strona.pl:opis wic sobie przerb, eby Ci port wyciga, a nie jelenia szukasz