Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ini???
Adi2107




Typ: neutral
Postów: 15
Zarejestrowany: Mar 2004
Ini???

Prosze powiedzcie jak odczytywać dane z plików ini wiem że gdzieś to jest ale gdzie??Czyżby w Tipsach
PoZdRo DlA ChUdEgO za powiedzenie Jak zrobić losową nazwe


_____________________________________________
Usuńcie mnie z forum!

10-04-2004 17:45
Pokaż profil Adi2107  Wyślij email do Adi2107   
andrey
Łódź



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

Ehh niedawno pojawił się ten temat na forum Wystarczy uzyć szukaj i wpisac ini Co nico jest tez w dziale Tips

Złamię trochę zasadę i podam ci trochę gotowych i obrobionych funkcji do obsługi INI:

Function GetKeyVal(ByVal INIFileLoc As String, ByVal Section As String, ByVal Key As String)
  'Funkcja ta wyciaga wartość z danego klucza
  'INIFileLoc = scieżka do pliku ini
  '      (np.: "C:\Windows\INIFile.ini"
  'Section = nazwa Sekcji gdzie znajduje sie klucz
  '      'Key = klucz z którego chcesz wyciągnąć
  '    wartość
  'Najpirw sprawdzamy czy podany plik istnieje:
  '      If Dir(INIFileLoc) = "" Then MsgBox "Nie znaleziono pliku: " & INIFileLoc, vbExclamation, "Błąd!": Exit Function
  'Jeżeli plik ini istnieje to wyciągamy
  '    wartość klucza
  Dim RetVal As String, Worked As Integer
  RetVal = String$(255, 0) ' tu bedziesz miał wyciąganą wartość
  Worked = GetPrivateProfileString(Section, Key, "", RetVal, Len(RetVal), INIFileLoc)

  ' zmienna Worked przechowuje 0 lub 1 czyli nie udało sie/udało się
  If Worked = 0 Then
      GetINI = ""
  Else
      GetINI = Left(RetVal, InStr(RetVal, Chr(0)) - 1)
  End If
End Function


Function AddToINI(ByVal INIFileLoc As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
  'Dodajemy nową sekcję, klucz i wartość do
  '    nowego pliku INI
  'służy też do stworzenia nowego pliku ini
  'INIFileLoc = scieżka do pliku ini
  '      (np.: "C:\Windows\INIFile.ini"
  'Section = Nazwa sekcji
  '  (np.: "Nowa Sekcja 1"
  'Key = nazwa klucza
  '      (np.: "Nowy Klucz 1"
  'Value = wartość przypisana kluczowi
  '      (np.: "Nowa Wartość"
  'Najpirw sprawdzamy czy podany plik istnieje:
  '      If Dir(INIFileLoc) = "" Then MsgBox "Nie znaleziono pliku: " & INIFileLoc, vbExclamation, "Błąd!": Exit Function
  'Jeżeli plik ini istnieje to dodajemy nowe informacje do pliku ini
  WritePrivateProfileString Section, Key, Value, INIFileLoc
End Function


Function DeleteSection(ByVal INIFileLoc As String, ByVal Section As String)
  'Usuwamy wybrana sekcje
  '      'INIFileLoc = wiesz co to z poprzednich akapitów
  'Section = nazwa sekcji którą chcesz usunąć
  '      (np.: "Sekcja Numer 1"
  'Najpirw sprawdzamy czy podany plik istnieje:
  '      If Dir(INIFileLoc) = "" Then MsgBox "Nie znaleziono pliku: " & INIFileLoc, vbExclamation, "Błąd!": Exit Function
  'Jeżeli plik istnieje to przystepujemy do usuwania
  '    SEkcji
  WritePrivateProfileString Section, vbNullString, vbNullString, INIFileLoc
  'Uwaga: vbNullString dodajesz tam gdzie chcesz usunać jakąś wartość
  '    End Function


Function DeleteKey(ByVal INIFileLoc As String, ByVal Section As String, ByVal Key As String)
  'Funkcja usuwa podany klucz z sekcji
  '    'INIFileLoc = wiesz co to z poprzedniego akapitu
  '
  'Section = nazwa sekcji z której chcesz usunać klucz
  'nie usuwa całej sekcji ale jeden klucz np sekcja ma pięć kluczy
  'funkcja ta usunie wyszczegolniony klucz
  'Key = nazwa klucza który chcesz usunać
  '      'Najpirw sprawdzamy czy podany plik istnieje:
  '      If Dir(INIFileLoc) = "" Then MsgBox "Nie znaleziono pliku: " & INIFileLoc, vbExclamation, "Błąd!": Exit Function
  'Jezeli plik istnieje to przystepujemy do usuwania
  '    Klucza
  WritePrivateProfileString Section, Key, vbNullString, INIFileLoc
  '
End Function

Function DeleteKeyValue(ByVal INIFileLoc As String, ByVal Section As String, ByVal Key As String)
  'Funkcja ta usuwa wartość z podanego klucza nie usuwa
  '    samego klucza anni sekcji
  'INIFileLoc = wiesz co to z poprzedniego akapitu
  '
  'Section = nazwa sekcji gdzie znajduje sie klucz z niechciana
  '    wartościa
  '
  'Key = nazwa klucza mającego nieporzadana wartość
  '      'Najpirw sprawdzamy czy podany plik istnieje:
  '      If Dir(INIFileLoc) = "" Then MsgBox "Nie znaleziono pliku: " & INIFileLoc, vbExclamation, "Błąd!": Exit Function
  'jezeli plik ini istnieje to
  '    usuwamy wartość  z klucza
  WritePrivateProfileString Section, Key, "", INIFileLoc
  ' "" = is a short way of saying Nothing
End Function

Przy okazji małe pytanko do Jelcyna Zauważyłem że ten temat powtarza się już wielokrotnir może by wycisnać z tego forum coś i stworzyć takie nasz VBFAQ?


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

10-04-2004 20:12
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Adi2107




Typ: neutral
Postów: 15
Zarejestrowany: Mar 2004
dzięki andrey

Dięki za Kodzik wszystko diała!


_____________________________________________
Usuńcie mnie z forum!

10-04-2004 21:44
Pokaż profil Adi2107  Wyślij email do Adi2107   
mikmas
From Łódź Stadt




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

Wejdź w dział "ocx". Pierwsza pozycja.


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

11-04-2004 16:58
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
andrey
Łódź



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

Ale miksmas po co dodawać do projektu następne kontrolki jak można wpisać malutki kodzik


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

12-04-2004 10:30
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
mikmas
From Łódź Stadt




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

Z prostego powodu: kontrolka jest mała, a takie dodawanie dużego kodu tylko zaciemnia robienie progu, ale masz też rację


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

18-04-2004 13:26
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1