|
TwojePC.pl © 2001 - 2024
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
visual basic - problem , kiniu 21/06/03 11:50
potrzebuje napisac sobie program ktory bedzie bral line z jednego pliku i porownywal ja z liniami z drugiego pliku.
czesc programu wyglada tak
Do While Not EOF(2)
Line Input #2, liniaszukana
Line Input #1, liniadana
DoEvents
Call szukanie
Loop
i tu pytanie czy w tej petli przy kazdym przejsciu program bedzie ladowal ta sama linie czyli pierwsza czy za kazdy razem bedzie bral nastepna. Pytam bo sie sam juz zapetlilem i wychodzi mi na to ze bierze za kazdym razem linie pierwsza
Pozdrawiam krzysztof- jesli czcesz porownac linie plikow na zasadzie "kazda z kazda" , bwana 21/06/03 12:13
to powinienes miec dwie petle (jedna zagniezdzona w drugiej)
otworz plik1
petla1
wczytaj linie1 z pliku1
otworz plik2
petla2
wczytaj linie2 z pliku2
porownaj linie1 z linia2
petla2-koniec
zamknij plik2
petla1-koniec
zamknij plik1
to, co pokazales w swoim przykladzie wczytuje kolejne linie plikow:
linie1 z pliku1 i linie1 z pliku2
linie2 z pliku1 i linie2 z pliku2
linie3 z pliku1 i linie3 z pliku2
linie4 z pliku1 i linie4 z pliku2"you don't need your smile when I cut
your throat" - jaki rodzaj petli zastosowac.. , kiniu 21/06/03 12:30
do while ,do until , czy inna
?
Krzysztof
- qwymascilem cos takiego.. , kiniu 21/06/03 12:40
Private Sub szukanie()
Do While Not EOF(2)
Line Input #2, liniaszukana
szukanynumer = Left(liniaszukana, 9)
DoEvents
Do While Not EOF(1)
Line Input #1, liniadana
DoEvents
Pozycja = InStr(liniadana, szukanynumer)
str = Mid(liniadana, 1, 9)
If str = szukanynumer Then
klasa = Mid(liniadana, 13, 3)
Print #3, szukanynumer & " " & klasa & x
End If
Loop
Loop
ale wyglada na to ze porownuje tylko pierwsza line pliku (2) z calym plikiem (1) i nie przechodzi do nastepnej linii pliku (2)
co mozna z tym zrobic ? - Nie będzie... , Umek 21/06/03 12:42
wskaźnik pliku przesuwa się po odczycie linii, znaku, rekordu.
No nie możliwe żeby w vb było inaczej niż w kazdym "normalnym" języku programowania :)))
Uzyj pętli do while - będzie działało poprawnie też przy pustym pliku :)- heh, po naskrobaniu saznistego maila do autora pytania stwierdzam, ze , bwana 21/06/03 23:37
ujales to co trzeba w jednym zdaniu:-D"you don't need your smile when I cut
your throat"
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2024, TwojePC.PL |
 |
|
|
|
