Lista kontaktów

Czy wie ktoś jak można odczytać liste kontaktów z GG i wyswietlić ją na ListView i z powrotem ją zapisać?--[delphi 6]

Czy wie ktoś jak można odczytać liste kontaktów z GG i wyswietlić ją na ListView i z powrotem ją zapisać?

Hmm.. a gdzie ty chcesz ją zapisać? A tak w ogóle to chyba najłatwiejszy sposób to zlokalizowania pliku gdzie gg wszystko zapisuje, i pobawienie się z nim.

Gdzie ona jest to ja wiem - chodzi mi o edycje jej gdy mam podaną ściezke--[delphi 6]

jak wyeksportujesz liste kontaktow z gg do pliku to wszystkie dane sa porozdzielane srednikami, kazda linia to nowy kontakt :)
robimy petelke w ktorej rozdzielamy na podstawie srednikow kazda linie na np. IMIE, NAZWISKO, KSYWA itd. :) a potem wrzucamy to do ListView :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

postanowilem napisac tobie procke wrzucajaca ta liste kontaktow do ListView :)
to ListView sklada sie z 8 kolumn
zeby bylo szybciej to robisz tak:
jak juz wrzucisz ListView na forme to klikasz prawym i wybierasz "View as text"
teraz znajdujemy naszego ListView1 i wpisujemy to:
Columns =
to teraz prawy klik potem "View as form"
i teraz nasz ListView1 powinien miec te 8 kolumn hehe

no a teraz procedurka odczytujaca liste kontaktow:

var
TF : TextFile;
S : String;
i, Poz : Integer;
begin
AssignFile(TF, 'C:\kontakty.txt');
Reset(TF);
i := 0;
while not Eof(TF) do
begin
Readln(TF, S);

Poz := Pos(';', S);
ListView1.Items.Add.Caption := Copy(S,1,Poz-1);
Delete(S, 1, Poz);

• wyzej wyciaglismy imie

Poz := Pos(';', S);
ListView1.Items.Item[i].SubItems.Add( Copy(S,1,Poz-1)) ;
Delete(S, 1, Poz);
*teraz wyciaglismy nazwisko

Poz := Pos(';', S);
ListView1.Items.Item[i].SubItems.Add( Copy(S,1,Poz-1)) ;
Delete(S, 1, Poz);
*teraz wyciaglismy pseudo

Poz := Pos(';', S);
ListView1.Items.Item[i].SubItems.Add( Copy(S,1,Poz-1)) ;
Delete(S, 1, Poz);
*teraz wyciaglismy to co jest wyswietlane

Poz := Pos(';', S);
ListView1.Items.Item[i].SubItems.Add( Copy(S,1,Poz-1)) ;
Delete(S, 1, Poz);
*teraz wyciaglismy nr telefonu

Poz := Pos(';', S);
ListView1.Items.Item[i].SubItems.Add( Copy(S,1,Poz-1)) ;
Delete(S, 1, Poz);
*teraz wyciaglismy grupe do ktorej nalezy user

Poz := Pos(';', S);
ListView1.Items.Item[i].SubItems.Add( Copy(S,1,Poz-1)) ;
Delete(S, 1, Poz);
*teraz wyciaglismy GG#

ListView1.Items.Item[i].SubItems.Add(S) ;
*teraz wyciglismy adres e-mail

Inc(i);
end;
CloseFile(TF);
end;

to by bylo na tyle
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-