VPF::INI Files - Форум программистов

APro

Дата 2.5.2008, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1

Структура моего файл:

Код


[Секция_1]
параметр_1=значение
параметр_2=значение
параметр_3=значение

[Секция_2]
параметр_1=значение
параметр_2=значение
параметр_3=значение

[Секция_3]
параметр_1=значение
параметр_2=значение
параметр_3=значение

...

Как мне прочитать значения параметр_1 во всех секциях?
(и возможно записать их как Variant)

--
Зарание спасибо!

--------------------

Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.

Rrader

Дата 2.5.2008, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 6
Всего: 191

Функции для работы с INI:

Код


Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Чтение:

Код


Private Sub Command1_Click()
  Dim Buf As String
  Buf = Space(1024)
  ' "" - значение по умолчанию
  Buf = Left(Buf, GetPrivateProfileString("Секция_1", "параметр_1", "", Buf, Len(Buf), "<Путь к файлу>"))
  MsgBox Buf
End Sub

Запись:

Код


  Dim Value As Variant
  Value = "Hello"
  Call WritePrivateProfileString("Секция_1", "параметр_1", CStr(Value), "<Путь к файлу>")
  Value = 123
  Call WritePrivateProfileString("Секция_1", "параметр_2", CStr(Value), "<Путь к файлу>")
  ' Flush
  Call WritePrivateProfileString(vbNullString, vbNullString, vbNullString, "<Путь к файлу>")

Это сообщение отредактировал(а) Rrader - 2.5.2008, 12:11

--------------------

Let's do this quickly!
Rest in peace, Vit!

APro

Дата 2.5.2008, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1

Rrader, ты меня не так понял! Мне нужно прочитать параметр_1 во всех секциях. И добавить например в List1. Или каждый распихать по Label.

P.S.: Я тоже умею читать F.A.Q.

Добавлено через 1 минуту и 28 секунд
или я не правильно понял твой код smile

! ща проверю!

Добавлено через 2 минуты и 14 секунд
Не... ты мне дал не то, что я написал!

--------------------

neiron

Дата 2.5.2008, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 18.4.2006
Где: Краснодар

Репутация: 3
Всего: 4

Назови секции, к примеру, Section1, Section2, Section3....
Параметры parametr1, parametr2, parametr3.

И в цикл, меняя строковые

Код


for i=1 to n
     Sec="Section" & cstr(i)
     Par = "parametr" & cstr(i)
     Buf = Left(Buf, GetPrivateProfileString(Sec, Par, "", Buf, Len(Buf), "<Путь к файлу>"))
Next i

APro

Дата 2.5.2008, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 328
Регистрация: 5.12.2006

Репутация: нет
Всего: 1

попробую ...

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »