Recorrer un .INI

[jfgimenez]

Ramón,
> quiero recorrer un archivo .ini de inicio a fin, pero segun las veces que
> he visto las muestras de la toma de los valores de este tipo de archivos,
> veo que se va uno directamente a la seccion y valor deseado.
>
> Como puedo escaner un archivo .ini de principio a fin?
>
> While <no acabe el .ini>
> cheko la seccion
> tomo los valores
> end
No es exactamente un While ... End, pero es parecido. Primero tienes que
obtener la lista de secciones, y después las claves y valores de cada
sección. Usa los siguientes métodos (de xailerdocini.txt):
//---------------------------------------------------------- ----------------
METHOD GetSections()
aSections: Lista de secciones
Devuelve una lista con los nombres de las secciones
RETURN aSections
//---------------------------------------------------------- ----------------
METHOD EnumSectionEntries( cSection )
cSection: Nombre de la sección
aEntries: Entradas de la sección
Devuelve una lista con los nombres de las entradas que pertenecen
a la sección
RETURN aEntries
//---------------------------------------------------------- ----------------
METHOD EnumSectionValues( cSection )
cSection: Nombre de la sección
aValues: Valores de las entradas de la sección
Devuelve una lista con los valores de las entradas que pertenecen
a la sección
RETURN aValues
//---------------------------------------------------------- ----------------
--
Un saludo,
José F. Giménez

[zeasoftware]

gracias, con eso arregle todo, solo tengo una duda.
Segun los archivos de ejemplos, puedo cambiar el valor de lChecked en el
item activo, pero,
como lo pongo a .t. en el momento de ir generando un arbol?
Hago esto:
oItem := :InsertItem("Third item",2, .T.)
oItem:lChecked := .t
oItem := :InsertItem("Third item at the root",2, .T.):lChecked := .t
aEval( ::oTree:GetAllItems(), {|v| v:lChecked := .T. } )
y en todas me queda como .f.
Que estoy haciendo mal?
Gracias
Ramón Zea

[ignacio]

Ramón,
Por favor comprueba el ejemplo de manejos de TreeView que hemos incluido en
la última versión. Si siguiese fallando, dinos como reproducirlo con dicho
ejemplo. Gracias de antemano,
Un saludo.
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42f69bf5@ozsrvnegro.ozlan.local...]42f69bf5@ozsrvnegro.ozlan.local...[/email]
> gracias, con eso arregle todo, solo tengo una duda.
>
> Segun los archivos de ejemplos, puedo cambiar el valor de lChecked en el
> item activo, pero,
> como lo pongo a .t. en el momento de ir generando un arbol?
>
>
> Hago esto:
>
> oItem := :InsertItem("Third item",2, .T.)
> oItem:lChecked := .t
>
> oItem := :InsertItem("Third item at the root",2, .T.):lChecked := .t
>
> aEval( ::oTree:GetAllItems(), {|v| v:lChecked := .T. } )
>
> y en todas me queda como .f.
>
> Que estoy haciendo mal?
>
> Gracias
> Ramón Zea
>
>

[zeasoftware]

aqui lo pongo, lo copie del ultimo ejemplo, ttreview.
METHOD TVCreate( oSender ) CLASS TForm1
local oItem
WITH OBJECT oSender
:InsertImage("printer")
:InsertImage("database")
:InsertItem("First item at the root", 1 )
:InsertItem("Second item at the root", 1)
oItem := :InsertItem("Third item at the root",2, .T.)
oItem:InsertItem("Item after third item",1)
oItem:InsertItem("Another item after third item",2)
Aeval( :GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui deberian
aparecer con palomita, pero no
:ExpandAll()
END
Aeval( ::oTV:GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui deberian
aparecer con palomita, pero no
// Aeval( osender:GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui
deberian aparecer con palomita, pero no
RETURN Nil

[jfgimenez]

Ramón,
por favor, prueba a poner ese código en el evento OnInitialize del
formulario, y dinos si te funciona.
--
Un saludo,
José F. Giménez

[ignacio]

Ramón,
Compruebo que efectivamente esta fallando cuando se pone la propiedad antes
de la creación del TreeView. Esperamos tenerlo solucionado lo antes posible.
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=42f89f0e@ozsrvnegro.ozlan.local...]42f89f0e@ozsrvnegro.ozlan.local...[/email]
> aqui lo pongo, lo copie del ultimo ejemplo, ttreview.
>
> METHOD TVCreate( oSender ) CLASS TForm1
> local oItem
>
> WITH OBJECT oSender
> :InsertImage("printer")
> :InsertImage("database")
> :InsertItem("First item at the root", 1 )
> :InsertItem("Second item at the root", 1)
> oItem := :InsertItem("Third item at the root",2, .T.)
> oItem:InsertItem("Item after third item",1)
> oItem:InsertItem("Another item after third item",2)
>
> Aeval( :GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui deberian
> aparecer con palomita, pero no
>
> :ExpandAll()
> END
>
> Aeval( ::oTV:GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui deberian
> aparecer con palomita, pero no
>
> // Aeval( osender:GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui
> deberian aparecer con palomita, pero no
>
> RETURN Nil
>
>

[ignacio]

Ramón,
Ya está solucionado. Muchas gracias.
Un saludo.
"Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
news:[email=42f9bff5@ozsrvnegro.ozlan.local...]42f9bff5@ozsrvnegro.ozlan.local...[/email]
> Ramón,
>
> Compruebo que efectivamente esta fallando cuando se pone la propiedad
> antes de la creación del TreeView. Esperamos tenerlo solucionado lo antes
> posible.
>
> Un saludo,
>
> "Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=42f89f0e@ozsrvnegro.ozlan.local...]42f89f0e@ozsrvnegro.ozlan.local...[/email]
>> aqui lo pongo, lo copie del ultimo ejemplo, ttreview.
>>
>> METHOD TVCreate( oSender ) CLASS TForm1
>> local oItem
>>
>> WITH OBJECT oSender
>> :InsertImage("printer")
>> :InsertImage("database")
>> :InsertItem("First item at the root", 1 )
>> :InsertItem("Second item at the root", 1)
>> oItem := :InsertItem("Third item at the root",2, .T.)
>> oItem:InsertItem("Item after third item",1)
>> oItem:InsertItem("Another item after third item",2)
>>
>> Aeval( :GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui deberian
>> aparecer con palomita, pero no
>>
>> :ExpandAll()
>> END
>>
>> Aeval( ::oTV:GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui
>> deberian aparecer con palomita, pero no
>>
>> // Aeval( osender:GetAllItems(), {|v| v:lChecked := .T. } ) //aaqui
>> deberian aparecer con palomita, pero no
>>
>> RETURN Nil
>>
>>
>
>