Вопрос по ини файлу, Несколько одинаковых ключей в одной секц

[Volkogriz]

Доброе время суток!
Проблема такая, есть ини файл к примеру вот его содержание:

PHP код:

[ATSniper]
Score = 2
House = Atreides
StormDamage=74    
PrimaryBuilding = ATBarracks
UnitGroup = FromBarracks
Terrain = Rock, Sand, NBRock, InfRock, Ramp
Cost = 150
BuildTime = 99
Size = 1
Speed = 6.0                        
TurretAttach = ATSniperGun 
TurnRate = 0.2                    
Armour = None, 50, InfRock
Health = 600
Infantry = true
CanBeSuppressed = TRUE
//SoundSelected = Selected
//SoundOrdered = Ordered
//SoundID = 6
ViewRange = 15
AiFoot = TRUE
TechLevel = 2
ReinforcementValue = 2
Crushable = TRUE
ChaosEffect = SmallChaosFX
HawkEffect = SmallHawkFX
TastyToWorms = TRUE
WormAttraction = 3
CanMoveAnyDirection = TRUE
CanBeDeviated = FALSE
CanBeRepaired = FALSE
AIThreat = 30
//Вот отсюда начинаются пробламмы
// LEVEL 1 ----------------------------------
VeterancyLevel = 4        
ExtraArmour = 50
// LEVEL 2 ----------------------------------
VeterancyLevel = 12
CanSelfRepair = 1
// LEVEL 3 ----------------------------------
VeterancyLevel = 30
Elite = TRUE
StealthedWhenStill = TRUE 


Возможно ли
разделить и загрузить напремер:

PHP код:

значения ключа  LEVEL 1 VeterancyLevel  в едит 1 
значения ключа  LEVEL 2 VeterancyLevel  в едит 2 
значения ключа  LEVEL 3 VeterancyLevel  в едит 3 


Зарание благодарю!
С уважением,
Volkogriz!

[Аватар]

Загрузить в StringList и пропарсить самостоятельно

[Volkogriz]

Пример можно чегото не пойму как цикл здесь создать именно в секции(
там секций более сотни!

[Аватар]

Очень упрощенно и на скорую руку

var xList: TStringList;
    i,j,k: Integer;
    s: String;
begin
  xList:=TStringList.Create;
  xList.LoadFromFile('e:\MyIni.ini');
  j:=xList.IndexOf('[ATSniper]');
  if j>=0 then begin
    k:=0;
    for i:=j+1 to xList.Count-1 do begin
      s:=Trim(xList.Strings[i]);
      if Copy(s,1,1)='[' then Break;
      if Pos('VeterancyLevel',s)=1 then begin
        s:=Trim(StringReplace(s,'VeterancyLevel','',[]));
        if Copy(s,1,1)='=' then begin
          s:=Trim(StringReplace(s,'=','',[]));
          Inc(k);
          case k of
          1: Edit1.Text:=s;
          2: Edit2.Text:=s;
          3: Edit3.Text:=s;
          end;
          if k=3 then Break;
        end;
      end;
    end;
  end;
  xList.Free;
end;

[Человек_Борща]

Ана секции разбить совсем, не?
[SectionName_Edit1] или [SectionName_Edit2] и т.д.

[Volkogriz]

Аватар спасибо!

Ана секции разбить совсем, не?
[SectionName_Edit1] или [SectionName_Edit2] и т.д.

Нет этот файл Не я создаю я его редактирую.
Если бы можно было было бы супер )
С уважением,
Volkogriz!

[WhiskasTM]

Тоже самое было, особенно в игрушках, инишки там бескомпромиссные аля 25 значений в одном ключе, повторы имен секций ключей и невесть чего ещё.

Сделал давно свой трейсер, но щас он как-то уже устарел смотрю, на стринлистах, с глобальными недоработками по записи и кривым чтением Н-ого значения Value (сепаратор запятая). Юзать можно, но надо с нуля делать + на хэшах.

Выдержка:

SectionIndex:array of Integer;
KeyIndex:array of Integer;
procedure GetSectionIndex(const section:string);
procedure GetKeyIndex(sectionid:Integer; const key:string);
    function ReadString(const section,key:string):string;overload;
    function ReadString(sectionid:integer; const key:string):string;overload;
    function ReadString(sectionid,keyid:Integer):string;overload;
    function ReadString(const section:string; keyid:Integer):string;overload;

Типа так:

var
ini:TExINI;
i,j:integer;
begin
ini:=TExINI.Create('123.ini');
for i:=0 to ini.SectionCount('ATSniper')-1 do
    for j := 0 to ini.KeyMaskCount(ini.SectionIndex[i],'VeterancyLevel')-1 do
     begin
      ShowMessage(ini.ReadString(ini.SectionIndex[i],ini.KeyIndex[j]));
     end;
end;

Может понравиться)

[Volkogriz]

WhiskasTM, спасибо, буду разбираться!

[WhiskasTM]

Карт-бланш!
Походу мне одному нечем было заняться...

Знаки табуляции и пробелов в мультизначениях удалятся только если переписать их, незачем ещё их парсить. Камменты и инвалидные ключи не сохраняются.

[section]
cat = Fat
name = Barsik, Mokry, Pernaty
MultiIntValue = 66, 98, 52, 61

[section]
cat = Fat
name = Koshka, Sobaka
name = Kot, Klop
name = Kepler
name = Kepler2
name = 

[section]
cat = Fat
name = double,bool,boolsheet
name = alone
name = 
name = 

[section]

procedure TForm3.FormCreate(Sender: TObject);
var
i,j,k,G:integer;
ini:TExINI;
begin
 ini:=TExINI.Create('123.ini');
 for i := 0 to ini.SectionWKCount('section',['cat','name'])-1 do //get pointers to only those sections that contain these keys
   begin
   with ListView1.Groups.Add do
   begin
   GroupID:=i;
   State:=[lgsCollapsible,lgsCollapsed];
   Header:=ini.ReadStr(ini.SectionWKIndex[i],'cat');
   end;
   for j := 0 to ini.KeyCount(ini.SectionWKIndex[i],'name')-1 do
     for k := 1 to ini.ValueCount(ini.SectionWKIndex[i],'name')+1 do
      if ini.ReadStrW(ini.SectionWKIndex[i],ini.KeyIndex[j],k)<>'' then
        with ListView1.Items.Add do
        begin
        GroupID:=i;
        Caption:=ini.ReadStrW(ini.SectionWKIndex[i],ini.KeyIndex[j],k);
      end;
   end  ;

 for i := 0 to ini.SectionCount('section')-1 do
   for j := 1 to 4 do
     with ini do
     begin
     WriteIntW(SectionIndex[i],'MultiIntValue',Random(100),j);
     end;
 ini.UpdateFile;
 ini.Free;
 end;

Банально конечно, но нету вот такого дебажного ини-ридера.
зы
Всего 112 методов записи/чтения. Завершен на 99%, остальное баги, если есть, пустяковые))