Lista kontaktów

0

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

0

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.

0

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

0

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] ]=-

0

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] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0