Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: ODCZYT Z PLIKU
marchan




Typ: neutral
Postów: 40
Zarejestrowany: Oct 2004
ODCZYT Z PLIKU

Z LISTBOX-a ZAPISALEM DANE (LICZBY PO PRZECINKU) DO PLIKU TXT, TE DANE MOGE WCZYTAC SPOWROTEM DO LISTBOX-a. I WSZYTKO LADNIE. TYLKO JAK BEZPOSREDNIO Z TEGO PLIKU WCZYTAC TE LICZBY  DO TABLICY (ROZUMIEM ZE DWUELEMENTOWEJ), LUB JAK ZCZYTAC TYLKO OKRESLONA LICZBE Z DANEGO WIERSZA PLIKU.

POZDRAWIAM

25-10-2004 11:49
Pokaż profil marchan  Wyślij email do marchan   
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Hmmm - poszukaj na forum postów odnośnie odczytu z plików bo jest tutaj tego sporo

Pozdrawiam


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

25-10-2004 17:20
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
losmac
"profesorek"




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

A jak realizujesz zapis?
Ilu kolumnowy jest ten Listbox?

Wtedy powiem Ci jak to zrobić.


_____________________________________________
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ś

26-10-2004 18:14
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
marchan




Typ: neutral
Postów: 40
Zarejestrowany: Oct 2004

Mam tablice dziesięciu TexBox-ów z których wrzucam  dane do listbox-a.
Nie twierdze, że ten przykład zapisu do pliku jest najbardziej trafny ale tak to sobie wymyśliłem.
Oto wycinek kodu:

Private Sub cmdPodstaw_Click()
w = List1.ListCount
  For k = 0 To 9
      TABLICA(w, k) = Text1(k)
        Next k
        nowa_pozycja = TABLICA(w, 0) & "," & TABLICA(w, 1) & "," & TABLICA(w, 2) & "," & TABLICA(w, 3) & "," & TABLICA(w, 4) & "," & TABLICA(w, 5) & "," & TABLICA(w, 6) & "," & TABLICA(w, 7) & "," & TABLICA(w, 8) & "," & TABLICA(w, 9)
        If nowa_pozycja <> "" Then List1.AddItem nowa_pozycja
          w = List1.ListCount
          For q = 0 To 9
          Text1(q) = ""
Next q
End Sub


Public Sub ZAPISZ_PLIK()

Open file For Output As #1
      For X = 1 To w
        r = List1.List(X - 1)
          Print #1, X & "" & "  " & r
          Next X
          Close #1
       
End Sub

Ta buśka to - ) - nie wiem jak to wyłączyć

Z góry dziękuje

[Post edytowany dnia 18-11-2004 14:20 przez marchan]

26-10-2004 23:37
Pokaż profil marchan  Wyślij email do marchan   
marchan




Typ: neutral
Postów: 40
Zarejestrowany: Oct 2004

Dzięki, już sobie poradziłem.
Żeby poprawnie dziełało w tej wersjii odczytu - pod instrukcją Print#1 w cmdPodstaw musi być tylko r

Dim w As Integer
Dim file As String
Dim r As String
Dim varTab
Dim TABLICA(19, 19) As String

Private Sub cmdWczytaj_Click()
kolumna = 0
Open file For Input As #1
Do Until EOF(1) = True
Line Input #1, r
varTab = Split(r, ","
For wiersz = 0 To 9
TABLICA(wiersz, kolumna) = varTab(wiersz)
Next wiersz
kolumna = kolumna + 1
List1.AddItem r
Loop
Close #1
w = List1.ListCount
End Sub

[Post edytowany dnia 18-11-2004 14:22 przez marchan]

31-10-2004 14:36
Pokaż profil marchan  Wyślij email do marchan   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1