Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Czytanie okreslonych linijek z pliku tekstowego PILNIE
anonim




Typ: Nie zarejestrowany
Czytanie okreslonych linijek z pliku tekstowego PILNIE

Mam maly problem z projektem zaliczeniowym robie przychodnie lekarska i chodzi mi o to ze mam trzy konta zarejestrowane i hasla i loginy tych osob sa zapisane w jednym pliku tekstowym i chcialbym w dalszej czesci programu odwolac do tego pliku do poszczegolnej osoby czyli np. ze jezeli zalogowala sie ewa i jej dane zapisane sa w drugiej linijce w pliku tekstowym to jak sie do niej odwolac bo do pierwszej linijki moge sie odwolac bez problemu bede bardzo wdzieczny za jak najszybsza odpowiedz

13-06-2004 20:36
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

hmm... można zrobić tak:

function Odczyt(linia as integer,FileName as string) as string
Dim Bufor(1000) As String
Dim Kanal As Integer
Dim oLini As Integer

Kanal = FreeFile
oLini = 0

Open Filename For Input As Kanal
While EOF(Kanal) <> -1
olini=olini+1
Line Input #Kanal, Bufor(olini)
Wend
Close Kanal
odczyt=bufor(linia+1)
end function


nie wiem, czy działa, ale spróbuj.

[Post edytowany dnia 13-06-2004 22:16 przez mikmas]


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

13-06-2004 22:15
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1