Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: przeszukiwanie pliku txt
anonim




Typ: Nie zarejestrowany
przeszukiwanie pliku txt

witam!

oto moj problem:
w Label mam jakas obliczona wartosc np 2,45 ale to nie jest znormalizowana wartosc i chcialabym aby program przeszukal plik textowy, w ktorym sa znormalizowane wartosci; np w pliku tekstowym sa wartosci:
2,4
2,6
2,8

ale mnie interesuje najblizsza wartosc liczby 2,45.

bardzo prosze o pomoc, bawie sie w visualo od  niedawna wiec moze dla kogos jest to prosta rzecz )

09-06-2004 14:13
  
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Jeżeli najbliższą wartością nazywasz liczbę z jednym miejscem po przecinku można to zrobić poleceniem Round(Liczba,1) dla vb6, ale jeżeli masz starszy vb to możesz to zrobić tak:
liczba = int(liczba*10)/10


_____________________________________________
www.mob.abc.pl - moja strona o VB

09-06-2004 16:29
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
anonim




Typ: Nie zarejestrowany

mam vb 6, ale chyba sie nie zrozumielismy
moze napisze dokladniej o cio mo chodzi:
w text boxie wpisuje jakas wartosc np 2,47 a w pliku tekstowym mam wartosci:
2,45
2,58
2,66
3,22
itd.
chodzi mi o to zeby przeszukac plik textowy i porownac wartość z text boxa z wartosciami zawartmi w pliku i ta najblizsza wyswitlic w innym text boxie!


09-06-2004 16:53
  
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Przykładowy kod:

'Różnica tych liczb
x = 999999
Open "C:\Plik.txt" For Input As #1
'Pętla do końca pliku
Do While Not EOF(1)
'Wczytuje linię do a
Line Input #1, a
'Porównuje wartość absolutną różnicy podanej i _
wcztanej liczby, jeżeli jest mniejsza od poprzedniej _
zapamiętuje ją
If Abs(a - --Text1.Text) < x Then x = Abs(a - --Text1.Text): aa = a
Loop
Close #1
Text2.Text = aa


_____________________________________________
www.mob.abc.pl - moja strona o VB

09-06-2004 18:00
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
anonim




Typ: Nie zarejestrowany

dziekuje bardzio koledze za pomoc!!!

09-06-2004 21:15
  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1