VPF::Как подсчитать пункты в секции ИНИ-файла?

nnnnnnnnnn

Дата 16.1.2005, 22:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Народ поскажите как подсчитатьколичество пунктов в секции ИНИ-файла? За пример - благодарность.

Дата 17.1.2005, 05:38 (ссылка)

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

Загрузка ...

Брутальный буратина

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

Репутация: 7
Всего: 115

GetProfileSection
GetPrivateProfileString

Snowy

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

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Можно просто открыть как текстовый файл и считать все строки, которые начинаются на '[', а заканчиваются на ']'.

nnnnnnnnnn

Дата 17.1.2005, 13:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Snowy

Дата 17.1.2005, 15:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код


program test;

{$APPTYPE CONSOLE}

var
  t: TextFile;
  l: string;
  k: integer;

begin
  AssignFile(t,'file.ini');
  Reset(t); k:=0;
  while not eof(t) do
  begin
    ReadLn(t,l);
    if (l[1]='[') and (l[Length(l)]=']') then k:=k+1;
  end;
  CloseFile(t);
  // В k у нас кол-во секций ini файла
  // Далее использовать по необходимости
  // Например вывести в консоли:
  WriteLn('kol-vo=',k);
end.

Добавлено @ 15:33
Проверка наличия файла на диске уже на вашей совести.
Здесь только сам анализ файла.

nnnnnnnnnn

Дата 17.1.2005, 16:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А как это же сделать с помощью GetPrivateProfileString ?

Snowy

Дата 17.1.2005, 17:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код


var
  ini:   TIniFile;
  s:     TStringList;
  k: integer;
begin
  ini:=TIniFile.Create('C:\file.ini');
  s:=TStringList.Create;
  ini.ReadSections(s);
  k:=s.Count; // вот и количество
  s.Free; ini.Free;
end;

nnnnnnnnnn

Дата 17.1.2005, 17:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ребята мне нужно на чистом API! Плиз.

nnnnnnnnnn

Дата 17.1.2005, 21:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я сделал так.... Может можно проще?

var
HG, HI: DWORD;
P: Pointer;
ComboBoxAdd: PChar;
int: integer;
aBuf: array[0..1024] of Char;

int := 0;
if GetPrivateProfileString(PChar('SearchSystemNames'), nil, nil,
aBuf, SizeOf(aBuf), PChar(GetCurDir + 'my.ini')) <> 0 then begin
ComboBoxAdd := aBuf;
while ComboBoxAdd^ <> #0 do begin
int := int+1;
inc(ComboBoxAdd, lstrlen(ComboBoxAdd)+1);
end;
end;

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