Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Загрузка настроек из файла


Автор: Letov 28.12.2007, 17:30
Подскажите, пожалуйста, как считать настройки из файла следующего формата:

Код

имя_параметра1=параметр1
имя_параметра2=параметр2
#закомментированная строка

имя_параметра3=параметр3


И так далее.

Заранее спасибо.

Автор: Alexeis 28.12.2007, 17:56
Класс TIniFile

Автор: Rennigth 28.12.2007, 17:58
Можно примерно так:
Код

var
  lSL: TStringList;
  i: Integer;
begin
  lSL := TStringList.Create;
  try
    lSL.DelimitedText := '=';
    lSL.LoadFromFile('c:\test.log');
    for i := 0 to lSL.Count - 1 do
      ShowMessage(lSL.Values[lSL.Names[i]]);
  finally
    lSL.Free;
  end;
end;

Критериев твой задачи в подробностях незнаю, т.к. 
Цитата(Letov @  28.12.2007,  17:30 Найти цитируемый пост)
как считать настройки из файла следующего формата

мало информативно... поэтому очень простеньки пример smile

Автор: Letov 28.12.2007, 20:05
Цитата(Alexeis @  28.12.2007,  18:56 Найти цитируемый пост)
Класс TIniFile

INI не пойдет. нет секций и т.д.
Цитата(Rennigth @  28.12.2007,  18:58 Найти цитируемый пост)
Критериев твой задачи в подробностях незнаю, т.к. Цитата(Letov @  28.12.2007,  17:30 )как считать настройки из файла следующего форматамало информативно... поэтому очень простеньки пример

Смысл следующий. В файле есть много настроек, при чем они записаны в виде пар имя=значение. Но есть одно НО: в файле могут встречаться закомментированные строки (символ #), а так же пустые строки, которые не являются настройками. Задача: написать функцию, получающую значение 1 параметра по его имени или всех параметров, например в TStrings.

Автор: Rennigth 29.12.2007, 10:48
Цитата(Letov @  28.12.2007,  20:05 Найти цитируемый пост)
Смысл следующий. В файле есть много настроек, при чем они записаны в виде пар имя=значение. Но есть одно НО: в файле могут встречаться закомментированные строки (символ #), а так же пустые строки, которые не являются настройками. Задача: написать функцию, получающую значение 1 параметра по его имени или всех параметров, например в TStrings. 

Мой примерчик почти удовлетворял твоим условиям. Если немного изменить то вот:
Код

unit Unit23;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm23 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form23: TForm23;

implementation

{$R *.dfm}

function GetSpecialParamList(const AFileName: string): TStrings;
var
  lSL: TStringList;
  lTmp: string;
  i: Integer;
begin
  Result := TStringList.Create;
  if FileExists(AFileName) then
  begin
    lSL := TStringList.Create;
    try
      lSL.DelimitedText := '=';
      lSL.LoadFromFile(AFileName);
      for i := 0 to lSL.Count - 1 do
      begin
        lTmp := Trim(lSL.Values[lSL.Names[i]]);
        if (Length(Trim(lTmp)) > 0) and (not (lTmp[1] = '#')) then
          Result.Add(lSL.Strings[i]);
      end;
    finally
      lSL.Free;
    end;
  end;
end;

procedure TForm23.FormCreate(Sender: TObject);
var
  lPL: TStrings;
begin
  lPL := GetSpecialParamList('c:\test.log');
  try
    ListBox1.Items.Assign(lPL);
  finally
    lPL.Free;
  end;
end;

end.

Автор: Letov 29.12.2007, 11:01
Спсаибо. Теперь разобрался)))

Добавлено @ 11:11
Следующий вопрос по этой же теме. Как загнать эти настройки обратно в файл, но чтобы комментарии остались?
Код

lSL.SaveToFile(AFileName);//ISL -переменная с настройками
 Такой код не подойдет, т.к. не будет комментариев(

Автор: Rennigth 29.12.2007, 13:18
Код

procedure SetSpecialParamList(const AFileName: string; AList: TStrings);
var
  lSL: TStringList;
  i: Integer;
  lIndex: Integer;
begin
  if Assigned(AList) and FileExists(AFileName) then
  begin
    lSL := TStringList.Create;
    try
      lSL.DelimitedText := '=';
      lSL.LoadFromFile(AFileName);
      for i := 0 to AList.Count - 1 do
      begin
        lIndex := lSL.IndexOfName(AList.Names[i]);
        if lIndex >= 0 then
          lSL.Values[lSL.Names[lIndex]] := AList.Values[AList.Names[i]]
        else
          lSL.Add(AList.Strings[i]);
      end;
      lSL.SaveToFile(AFileName);
    finally
      lSL.Free;
    end;
  end;
end;

Автор: Letov 29.12.2007, 13:54
Спасибо, попробую.

Автор: Letov 5.1.2008, 20:34
Не понимаю в чем проблема, но этот код не работает:
Код

unit Unit23;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm23 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form23: TForm23;

implementation

{$R *.dfm}

function GetSpecialParamList(const AFileName: string): TStrings;
var
  lSL: TStringList;
  lTmp: string;
  i: Integer;
begin
  Result := TStringList.Create;
  if FileExists(AFileName) then
  begin
    lSL := TStringList.Create;
    try
      lSL.DelimitedText := '=';
      lSL.LoadFromFile(AFileName);
      for i := 0 to lSL.Count - 1 do
      begin
        lTmp := Trim(lSL.Values[lSL.Names[i]]);
        if (Length(Trim(lTmp)) > 0) and (not (lTmp[1] = '#')) then
          Result.Add(lSL.Strings[i]);
      end;
    finally
      lSL.Free;
    end;
  end;
end;

procedure TForm23.FormCreate(Sender: TObject);
var
  lPL: TStrings;
begin
  lPL := GetSpecialParamList('c:\test.log');
  try
    ListBox1.Items.Assign(lPL);
  finally
    lPL.Free;
  end;
end;

end.


Привожу пример работы кода:


1)

Исходный файл
Код

#Olympiad Properties
#Fri Dec 28 17:42:33 MSK 2007
CurrentCycle=2
NextWeeklyChange=1199391991328
OlympiadEnd=1201465591328
Period=0
ValdationEnd=1160732136875


Результат рыботы:
http://ipicture.ru/Gallery/Viewfull/276258.html

2)
Исходный файл
Код

# ==========================================================================================================================
# Использовать альтернативную AI (интеллект)
# --------------------------------------------------------------------------------------------------------------------------
EnableAI=False
# ==========================================================================================================================


# ==========================================================================================================================
# Стандартный класс атаки AI (интеллект)
# --------------------------------------------------------------------------------------------------------------------------
DefaultAI=warrior_passive
# ==========================================================================================================================


Результат работы
http://ipicture.ru/Gallery/Viewfull/276272.html


Вот исходник программы

Код
 
TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Afqk1: TMenuItem;
    N1: TMenuItem;
    OpenDialog1: TOpenDialog;
    ValPar: TValueListEditor;
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetSpecialParamList(const AFileName: string): TStrings;
var
  lSL: TStringList;
  lTmp: string;
  i: Integer;
begin
  Result := TStringList.Create;
  if FileExists(AFileName) then
  begin
    lSL := TStringList.Create;
    try
      lSL.DelimitedText := '=';
      lSL.LoadFromFile(AFileName);
      for i := 0 to lSL.Count - 1 do
      begin
        lTmp := Trim(lSL.Values[lSL.Names[i]]);
        if (Length(Trim(lTmp)) > 0) and (not (lTmp[1] = '#')) then
          Result.Add(lSL.Strings[i]);
      end;
    finally
      lSL.Free;
    end;
  end;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  ValPar.Strings:=GetSpecialParamList(OpenDialog1.FileName);
end;



Подскажите, пожалуйста, в чем проблема? Как исправить?

Автор: ArtemXCity 12.1.2008, 19:20
Меня с этим выручал компонент TValueListEditor (вкладка Additional).
Если открывать файл, в котором записано все в формате критерий=значение, то 
при команде ValueListEditor1.Strings.LoadFromFile(...); в первой колонке будут все критерии,  а во втором соответственно - их значения. Дальше просто считать с ячеек нужные данные и все.  smile 

Автор: Letov 3.2.2008, 23:50
Цитата(ArtemXCity @  12.1.2008,  20:20 Найти цитируемый пост)
ValueListEditor1.Strings.LoadFromFile(...);

А как задавать символ - признак закомментированной строки?

Автор: XperT 5.2.2008, 14:38
Цитата(Letov @ 3.2.2008,  23:50)
Цитата(ArtemXCity @  12.1.2008,  20:20 Найти цитируемый пост)
ValueListEditor1.Strings.LoadFromFile(...);

А как задавать символ - признак закомментированной строки?

Можно потом лишние строки просто удалять

Автор: Letov 5.2.2008, 22:45
Цитата(XperT @  5.2.2008,  15:38 Найти цитируемый пост)
Цитата(Letov @ 3.2.2008,  23:50)Цитата(ArtemXCity @  12.1.2008,  20:20 )ValueListEditor1.Strings.LoadFromFile(...);А как задавать символ - признак закомментированной строки?Можно потом лишние строки просто удалять

И будут пустые строки?
Может стоит в этом коде покапаться?
Код

unit Unit23;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm23 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form23: TForm23;

implementation

{$R *.dfm}

function GetSpecialParamList(const AFileName: string): TStrings;
var
  lSL: TStringList;
  lTmp: string;
  i: Integer;
begin
  Result := TStringList.Create;
  if FileExists(AFileName) then
  begin
    lSL := TStringList.Create;
    try
      lSL.DelimitedText := '=';
      lSL.LoadFromFile(AFileName);
      for i := 0 to lSL.Count - 1 do
      begin
        lTmp := Trim(lSL.Values[lSL.Names[i]]);
        if (Length(Trim(lTmp)) > 0) and (not (lTmp[1] = '#')) then
          Result.Add(lSL.Strings[i]);
      end;
    finally
      lSL.Free;
    end;
  end;
end;

procedure TForm23.FormCreate(Sender: TObject);
var
  lPL: TStrings;
begin
  lPL := GetSpecialParamList('c:\test.log');
  try
    ListBox1.Items.Assign(lPL);
  finally
    lPL.Free;
  end;
end;

end.

Автор: Akella 5.2.2008, 23:32
Цитата(Letov @  28.12.2007,  20:05 Найти цитируемый пост)
INI не пойдет. нет секций и т.д.

Как раз в Ini секции присутствуют
Всё, что в квадратных скобках - это названия секций, ниже содержимое секций
Цитата

[FILIAL]
FilialName=Akella
[PATH]
InFolder=D:\Programs\Kvartal2\In\
OutFolder=D:\Programs\Kvartal2\Out\
PhotoArenda=D:\Programs\Kvartal2\Photo\Arenda\
PhotoApart=D:\Programs\Kvartal2\Photo\Apart\
PhotoNovo=D:\Programs\Kvartal2\Photo\Novo\
PhotoHouses=D:\Programs\Kvartal2\Photo\Houses\
PhotoOffices=D:\Programs\Kvartal2\Photo\Offices\
StatFolder=D:\KVX_Stat\
ArcSendedFolder=D:\Programs\Kvartal2\Отправленные\
ReportMatrix=D:\Programs\Kvartal2\ReportMatrixPrn\
TempDirHatab=D:\Programs\Kvartal\SrvSocket\Temp\
ReportLaser=D:\Programs\Kvartal2\ReportLaserPrn\
PhotoToUpload=D:\Programs\Kvartal2\TempOutPhoto\

[LOGDATA]
UseLogging=1
FixLogIn=0
FixLogOut=0
[CHECK]
Server=1
[COMMON]
DividerForCheckBoxes=100
SortOnServer=1
CheckSublevelsRegion=1
ArendaActuality=1
RowLines=0
ExportByProfiles=1
OpenFileAfterExport=1
EnterAsTab=1
[OTHER]
AutoFindPhone=1
UsePhoto=0
RecivePhoto=0
SendPhoto=0
[FONT]
Name=Tahoma
Size=10
Color=clWindowText
Bold=0
[SQL]
ExecSQLOnStart=1
[AutoUpdate]
enabled=0
AutoUpdateInterval=60000
[VIEW]
FlatInterfaceEh=0
SPRUseImages=0
[PRINT]
NotPrintFirmAttribute=0


Добавлено через 2 минуты и 33 секунды
Код

  with TIniFile.Create(IncludeTrailingPathDelimiter( ExtractFilePath(ParamStr(0)) )+'kvx.ini' ) do  begin
    sInFolder := IncludeTrailingPathDelimiter(ReadString('PATH','InFolder', sAppPath+'In\'));
    sOutFolder := IncludeTrailingPathDelimiter(ReadString('PATH','OutFolder', sAppPath+'Out\'));
    sPhotoArenda := IncludeTrailingPathDelimiter(ReadString('PATH','PhotoArenda', sAppPath+'Photo\Arenda\'));
    sPhotoApart := IncludeTrailingPathDelimiter(ReadString('PATH','PhotoApart', sAppPath+'Photo\Apart\'));
    sPhotoNovo := IncludeTrailingPathDelimiter(ReadString('PATH','PhotoNovo', sAppPath+'Photo\Novo\'));
    sPhotoHouses := IncludeTrailingPathDelimiter(ReadString('PATH','PhotoHouses', sAppPath+'Photo\Houses\'));
    sPhotoOffices := IncludeTrailingPathDelimiter(ReadString('PATH','PhotoOffices', sAppPath+'Photo\Offices\'));
    sSendedPath := IncludeTrailingPathDelimiter(ReadString('PATH','ArcSendedFolder', sAppPath+'Отправленные\'));
    sReportMatrix := IncludeTrailingPathDelimiter(ReadString('PATH','ReportMatrix', sAppPath+'ReportMatrix\'));
    sReportLaser  := IncludeTrailingPathDelimiter(ReadString('PATH','ReportLaser', sAppPath+'ReportLaser\'));
.....
    Free;
  end;

Автор: Letov 6.2.2008, 00:03
Цитата(Akella @  6.2.2008,  00:32 Найти цитируемый пост)
Цитата(Letov @  28.12.2007,  20:05 )INI не пойдет. нет секций и т.д.Как раз в Ini секции присутствуютВсё, что в квадратных скобках - это названия секций, ниже содержимое секций

Вот именно. В INI секции присутствуют, а в моем файле настроек их нет. INI не подходит не потому, что он не умеет работать с секциями (как раз с этим он нормально справляется), а потому, что он не может работать с файлом БЕЗ секций. А мой файл настроек не содержит секций.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)