Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: INI i TXT - help
Switcher
Szaleństwo doskonałe



Typ: neutral
Postów: 14
Zarejestrowany: Mar 2005
INI i TXT - help

Witam !!! Robie program, na wielu użytkowników (bez hasła).Chcę zrobić by każdy użytkownik miał swoje ustawienia w ini.
Jak zrobić nowy ini z poziomu vb czyli pisze do textu nazwe i klikm dodaj, i ma się utworzyć plik ini z nazwa jaką podam. Ale chce by w ComboBox(CB) wyświetlały się te nazwy stworzone.I do tego potrzebny mi jest plik txt.Jak dodawać linijki do txt i jak odczytywać je do CB?? Dzięki z góry


_____________________________________________
O ja pierdole, ja dziś nie wyrobie !!!

07-05-2005 12:33
Pokaż profil Switcher  Wyślij email do Switcher   Odwiedź stronę Switcher       7048362
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Tworzenie pliku:

Dim f As Integer
f=Freefile
Open "c:\jakisplik.ini" For Binary Access Write As f
Close f


Dodawanie linii do pliku:

Dim f As Integer
Dim l As Long

l = FileLen("c:\jakis.txt"
f = freefile

open "c:\jakis.txt" For Binary Access Write As f
Seek f,l
Put f, ,sLiniaDoDodania & vbCrLf
Close f


Odczytywanie do listboxa:

Dim f As Integer
Dim sBuffer As String
Dim sData() As String

sBuffer = Space(FileLen("c:\jakis.txt")
f = Freefile
Open "c:\jakis.txt" For Binary Access Read As f
Get f,,sBuffer
Close f
sData = Split(sBuffer,vbCrLf)
For f = 0 to ubound(sData)
    ListBox1.AddItem sData(f)
Next


Mam nadzieję, że nie zrobiłem błędu


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

08-05-2005 11:35
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Switcher
Szaleństwo doskonałe



Typ: neutral
Postów: 14
Zarejestrowany: Mar 2005

Dzięki wilkie


_____________________________________________
O ja pierdole, ja dziś nie wyrobie !!!

09-05-2005 14:46
Pokaż profil Switcher  Wyślij email do Switcher   Odwiedź stronę Switcher       7048362
Knight Lore''FC




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

Do zapisu i odczytu plikow tekstowych (np. INI/TXT) nie potrzeba uzywac trybu BINARNEGO...

Zapis do NOWEGO pliku:
'------------------------------------------
Dim f As Integer
Dim Plik As String

'okresl wolny kanal do zapisu
f=FreeFile

'nazwa pliku do zapisu
Plik=App.Path+"\Rafal.ini"

'utworz plik
Open Plik For Output As f

    'zapisz do niego dane
    Print #f, MojeDane

'zamknij kanal
Close f


Dodawanie informacji do ISTNIEJACEGO pliku:
'------------------------------------------

'otworz plik w trybie dopisywania danych -> (dane dopisywane sa na koncu pliku !)

Dim f As Integer
Dim Plik As String

'okresl wolny kanal do zapisu
f=FreeFile

'nazwa pliku do zapisu
Plik=App.Path+"\Rafal.ini"

Open Plik For Append As f

    'dopisz dane
    Print #f, MojeDane

'zamknij kanal
Close f


Odczytywanie i wyswietlanie w ListBox'ie
'------------------------------------------
Dim f As Integer
Dim Plik As String
Dim Dane As String

'okresl wolny kanal do odczytu
f=FreeFile

'nazwa pliku do odczytu
Plik=App.Path+"\Rafal.ini"

'otworz plik do odczytu
Open Plik For Input As f

    'czytaj z pliku, az napotkasz koniec
    While Eof(f)<>-1

      'odczytaj dane
      Line Input #f,Dane
     
      'dodaj do ListBoxa
      ListBox1.AddItem Dane

    Wend

'zamknij plik
Close f


[Post edytowany dnia 12-05-2005 23:45 przez Knight Lore'FC]

12-05-2005 23:33
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
losmac
"profesorek"




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


Witam !!! Robie program, na wielu użytkowników (bez hasła).Chcę zrobić by każdy użytkownik miał swoje ustawienia w ini.
Jak zrobić nowy ini z poziomu vb czyli pisze do textu nazwe i klikm dodaj, i ma się utworzyć plik ini z nazwa jaką podam.


Zgadzam się, zapisuj ustawienia każdego użytkownika do pliku ini. Najlepiej trzymaj je w jednej ścieżce, tym samym katalogu.


Ale chce by w ComboBox(CB) wyświetlały się te nazwy stworzone.I do tego potrzebny mi jest plik txt.Jak dodawać linijki do txt i jak odczytywać je do CB?? Dzięki z góry


A tu już się nie zgadzam. Po co Ci ten dodatkowy plik?
Mając wszystkie ini w jednym miejscu odczytujesz tylko nazwy tych plików i po sprawie.
Stosując dodatkowo zapis w ściścle ustalonym formacie możesz dojść który plik należy do którego uzytkownika, np.:
Jan Koowalski = KoowalskiJ.ini
Zenon Rozróba = RozrobaZ.ini
Adam Wykrzyknik = WykrzyknikA.ini

Oto fragment kodu do odczytywania plików z dysku (bo tylko tyle kolebie mi się po głowie i lenię się sprawdzić).

sDir = App.Path
Do
    'tu wyliczanie do combobox'a
    sDir = Dir()
Loop While sDir <> ""



_____________________________________________
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-05-2005 10:38
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1