Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: szukanie danych
zibi




Typ: neutral
Postów: 13
Zarejestrowany: Nov 2004
szukanie danych

chodzi mi o to żeby znależć w pliku textowym
dany string i żebym wiedział w którym rekordzie
on jest
i czy jest w basicu funkcja find???
jak szukać stringów


Dim Zmienna As String

Open (CommonDialog1.FileName) For Input As #1



Zmienna = ""
For i = 1 To LOF(1)
Zmienna = Zmienna + Input(1, 1)
Next i

Text1.Text = Zmienna

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
(Plik textowy)

IN;
VS32,1;
VS32,2;
VS32,3;
VS32,4;
VS32,5;
VS32,6;
VS32,7;
VS32,8;
WU0;
PW0.350,1;
PW0.350,2;
PW0.350,3;
PW0.350,4;
PW0.350,5;
PW0.350,6;
PW0.350,7;
PW0.350,8;
SP1;
PU-4223 5944;
PD4129 5944;
SP1;
PU-4223 5944;
PD-4192 -5913;
SP0;

chodzi mi o to żeby w text1text były
tylko dane z rekordów PU i PD??

21-11-2004 19:50
Pokaż profil zibi  Wyślij email do zibi   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Otwórz Access'a
Utwórz kwerendę, która bedzie pobierała określone dane z okreśonego pliku tekstowego.

W programie w oknie Referencje dodaj referencję do DAO ...(wersja)...
i kod:

Dim rst As DAO.Recordset
Dim zap As String

zap = "SQL z kwerendy"

Set rst = OpenRecordset(zap)
Do While Not rst.Eof()
    MsgBox rst.Fields(1)
    rst.MoveNext
Loop

Set rst = Nothing



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

22-11-2004 22:32
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1