Ler INI dinâmico

Mensagem por **janio** » 19 Jun 2011 22:16

Olá a todos!

Uso a função Hwg_GetIni da hwgui para ler arquivos INI e tudo tem funcionado bem. Ocorre que agora estou precisando ler um INI dinâmico e não sei como fazer isso. Exemplo:

[Aliquotas]
01T1800 = 94,35
02T1200 = 202,1
03T0700 = 100,86
04S0500 = 0

As entradas da seção Aliquotas podem mudar. Até mesmo pode não ter nada nessa seção, ou seja, nem sempre virá 01T1800, pode vir 01T1700 ou simplemente nada.

Como 'descobrir' o que há nessa seção?

Janio

ANDRIL · Mensagem por **ANDRIL** » 20 Jun 2011 06:23

Janio, na seção downloads tem uma função que possivelmente lhe atenderá, criada pelo colega Pablo Cesar, segue o link:

https://pctoledo.org/forum/fileba ... t=c&page=1

Abraços.

Mensagem por **esbasso** » 20 Jun 2011 09:21

Faça assim
usando a função Hb_ReadIni( cFile )

hin i:= Hb_ReadIni( "C:\arquivo.ini" )
voce quer ler a sectioon Aliquotas
hali := hini["Aliquotas"]
aAliq := HGetKeys( hAli )
o Array que volta é a quantidade de items daquela secção
então faça um laço e vai lendo
for i = 1 to len(aAliq )
msginfo( Aliq)

next

Mensagem por **janio** » 20 Jun 2011 10:50

Na mosca, Basso!

Brigadão!

Janio

lucimauro · Mensagem por **lucimauro** » 29 Out 2011 14:03

Janio em qual lib se encontra a funcao HB_readini() ?

Mensagem por **janio** » 29 Out 2011 19:51

rapaz, vou ficar te devendo essa.

O que sei é que essa função é nativa do xhabour, ou seja, não precisa incluir qualquer outra lib além daquelas que são padrão para qq projeto em xh.

Janio

Mensagem por **Itamar M. Lins Jr.** » 30 Out 2011 09:53

Ola!
No Harbour foi adicionada em 2007.

2007-09-10 17:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/dbinfo.ch
* harbour/source/rdd/workarea.c
* renamed RDDI_TRIGGERS to RDDI_TRIGGER
+ added RDDI_PENDINGTRIGGER, RDDI_PENDINGPASSWORD,
DBI_TRIGGER, DBI_OPENINFO
* do not generate RT error in WA default ORDERINFO() method

* harbour/common.mak
* harbour/source/rtl/Makefile
+ harbour/source/rtl/hbini.prg
+ added HB_ReadIni()/HB_WriteIni() - code by Giancarlo Niccolai
borowed from xHarbour with some minor fixes

Saudações,
Itamar M. Lins Jr.

lucimauro · Mensagem por **lucimauro** » 30 Out 2011 20:54

Obrigado itamar por responder.
so que eu compilo com o harbour 3.00 e ele diz que a funcao HB_READINI() nao existe, essa funcao pertence alguma lib ou é nativa dele mesmo?

Desde ja agradeço.

Mensagem por **Itamar M. Lins Jr.** » 30 Out 2011 21:12

Aqui funciona.
É nativa, esta na pata rtl do HARBOUR. Tudo que está na pasta rtl é nativo.

Tem certeza que o erro é esse mesmo ?

Saudações,
Itamar M. Lins Jr.

Pablo César · Mensagem por **Pablo César** » 30 Out 2011 21:34

O erro está em que deve ser como correto hb_IniRead() em Harbour e não HB_READINI(). Pois no HBINI.PRG do ..\scr\rtl não tem nada de hb_IniRead. Inversão da string, só isso... rsss

lucimauro · Mensagem por **lucimauro** » 03 Nov 2011 20:58

Isso mesmo paulo cesar. obrigado.
agora voce teria o arquio HBINI.PRG ja que nao meu harbour 3.0 nao tenho esse arquivo,queria para pode ver as funcao de escrita e leitura no arquivo ini.

Pablo César · Mensagem por **Pablo César** » 03 Nov 2011 21:36

lucimauro escreveu:Isso mesmo "paulo cesar"

Paulo ? No, yo soy Pablo, no Paulo !

voce teria o arquio HBINI.PRG ja que nao meu harbour 3.0 nao tenho esse arquivo

Fiz o favor de anexar pra você, mas você deve baixar o source code do Harbour (pois source code é os fontes do Harbour), pode baixar o harbour-nightly-src (source)