Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jestem głupi jak but...
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
Jestem głupi jak but...

Ej!!! Ludzieska!!! Albo to o co się chcę teraz spytać jest rzeczywiście cholernie skomplikowane albo ja jestem kompletnie zdebilałym kołem bez mózgu...

...no bo nie wiem jak zrobić coś, co by otwierało plik:

open ".........." for input as #1
Line Input #1, x

i żeby dodawało do siebie wszystkie linie (czyli x), np. jeśli jest 5 lini i każda ma wartość 2, to potem chcę uzyskać 10 ...

...P.S. podnieście mnie trochę na duchu, powidzcie ze to jest wyjatkowo trudne i dlatego sobie z tym nie poradzilem...

04-05-2003 01:04
Pokaż profil AFRO  Wyślij email do AFRO   
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003

No, dlaczego nikt nie odpowiada na mojego posta...
...to wcale nie jest takie łatwe...sam sobie nie poradzę...jestem very beginner...oprócz tego podczas ostatniego tygodnia dalem kilka postów na które tez nikt sie odezwal


jelcyn, viper87, ushy, chudy, gargield, mrówek i w ogóle wszyscy ... pomóżcie...

04-05-2003 14:52
Pokaż profil AFRO  Wyślij email do AFRO   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Dim x
Open "plik" For Input As #1
Do While Not EOF(1)
Line Input #1, x
x = Int(x) + 1
Loop
Close #1
Powinno zadziałać o ile dobrze cię zrozumiałem.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

04-05-2003 15:07
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
ach...

niestety CHUDY, ale to nie działa, moze zle mnie zrozumiales, bo to, co napisales odczytuje mi tylko ostatnią linie z pliku, zaokrągla ja do calosci i dodaje do niej jeden, a mi chodzi o kod w stylu:

Dim x, y
Open "plik" For Input As #1
For x=1 To 5    'bo z góry wiem ze plik ma 5 lini
line input #1, y
Label1.Caption= y 'a moze y+y, nie wiem, bo chce żeby to wyciągało 5 razy jedną linię z pliku i żeby za każdym razem dodawało y do Label1, ale tak żeby na końcu po zakończeniu pętli Label1 wynosił sumę wartości (tzn. sumę igreków) wszystkich lini z pliku...

myslę że teraz już dobrze mnie zrozumiałeś, bo jak ma plik 5-linijkowy i w linijce nr1 jest tylko liczba 5, nr2 3, nr3 7, nr4 8, nr5 10, to ma wyświtlić się na Labelu liczba
33

napisz

04-05-2003 20:05
Pokaż profil AFRO  Wyślij email do AFRO   
Garf




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

Dim Plik As Integer
Dim Linia As String
Dim i As Integer, Wynik As Integer

Plik = FreeFile
Open "jakis_plik" For Input As Plik
Wynik = 0
For i = 1 To 5
  Line Input #Plik, Linia
  Wynik = Wynik + Val(Linia)
Next
Close Plik
Label1.Caption = Wynik

Jeszcze jedno: zaleca się używanie funkcji FreeFile do ustalania numeru dojścia do pliku zamiast ustawiania go na sztywno. Czasami może się to wysypać... Działa?


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

04-05-2003 21:14
Pokaż profil Garf  Wyślij email do Garf   
AFRO




Typ: neutral
Postów: 60
Zarejestrowany: Mar 2003
dziala ! ! ! i'm so happy, 'cause today i found the solution of my problem

chłopie, wielkie dzieki...działa wszystko w porzo, jeśli byś mógł, to proszę Cię bardzo, zajrzyj do posta pt.drukowanie... i jeśli wiesz napisz coś konkretnego, albo daj namiar na jakąś stronkę dotyczącą drukowania bezpośrednio z VisualBasica

P.S. o tym,że lepiej używać FreeFile'a to wiem, tylko ze jestem modemowcem i nie chce mi się dłużyć posta, którego napisanie kosztuje impulsy (ale jestem skąpy, no nie? ) na przypisywanie jakiejś zmiennej wartości FreeFile, a potem jeszcze pisanie tej zmiennej zamiast zwykłego #1 albo #2 etc.

04-05-2003 23:36
Pokaż profil AFRO  Wyślij email do AFRO   
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

No jest tu maly blad... na sztywno ustawiono ze plik ma 5 lini ...


For i = 1 To 5
  Line Input #Plik, Linia


oraz moze zle dodawac liczby nie calkowite:


  Wynik = Wynik + Val(Linia)


to zalezy czy uzyty jest przecinek czy kropka ...

Moja wersja:

Dim Plik As Integer
Dim Linia As String
Dim Przecinek As Integer
Dim i As Integer, Wynik As Integer

Plik = FreeFile
Open "jakis_plik" For Input As Plik
Wynik = 0
  While eof(Plik)<>-1
    Line Input #Plik, Linia

    'sprawdz czy jest przecinek
    Przecinek = Instr(1 , Linia , "," )
    If Przecinek>0 Then
        'zamien przecinek na kropke
        Mid$(Linia,Przecinek,1)="."
    end if

    Wynik = Wynik + Val(Linia)
  Wend
Close Plik
Label1.Caption = Wynik

05-05-2003 13:26
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1