Форум » [x]Harbour » [?] Ini , Harbour (xHarbour) » Ответить
[?] Ini , Harbour (xHarbour)
Dima: [quote] PROCEDURE Main LOCAL hIni := Hash() if !file("test.ini") hIni["Test"] :=Hash() hIni["Test"]["1"] :="1" hIni["Test"]["2"] :="2" hIni["Test"]["3"] :="3" hIni["Test"]["4"] :="4" hIni["Test"]["5"] :="5" hIni["Test-2"] :=Hash() hIni["Test-2"]["1"] :="1.1" hIni["Test-2"]["2"] :="2.1" hIni["Test-2"]["3"] :="3.1" HB_IniWRIte( "test.ini", hIni,";Begin Testik","End Testik") endif hIni := hb_IniRead( "test.ini" ) // Как правильно и без заморочек считать все ключи из секции TEST ? RETURN [/quote]
Ответов - 1
Dima: Проехали. Получаем ключи так [pre] amas:=HB_HPAIRAT(hini,Hb_hpos(hini,"Test"))[2] if len(amas)#0 for i=1 to len(amas) ? HB_HVALUEAT(amas,i) next //или без FOR NEXT так HB_HEVAL(amas,{|a,b| qout(b) }) endif [/pre]
полная версия страницы