Secciones en archivo ini

[horacio]

Hay alguna función que me devuelva la cantidad de secciones de un archivo ini. Desde ya muchas gracias

[mchumpitazv]

Hola Horacio

Como el archivo INI es un archivo de texto y si tomamos como ejemplo el archivo win.ini en que cada seccion empieza con el caracter "[", podrias leer cada linea y colocarlas en una matriz, lugo te barres la matriz y cuentas cuantas lineas empiezan con dicho caracter, el resultado te indicaria el numero de secciones existentes.

Saludos y suerte

Martin

[mmercado]

Hay alguna función que me devuelva la cantidad de secciones de un archivo ini. Desde ya muchas gracias

cText := MemoRead( "MyIni.ini" )
nSecciones := StrCharCount( cText, "[" )

Saludos

Manuel Mercado

[Carlos Mora]

Hola Manuel,

Hay alguna función que me devuelva la cantidad de secciones de un archivo ini. Desde ya muchas gracias

cText := MemoRead( "MyIni.ini" )
nSecciones := StrCharCount( cText, "[" )

Saludos

Manuel Mercado

Yo no usaría 'nSecciones := StrCharCount( cText, "[" )' porque me contaría líneas como

; [esto está comentado]

o cosas como
Nombre= aCorriente[2]

Habria que tomar cada línea con memoline, eliminar los espacios del principio y verificar que el priemr caracter sea '['

Code: Select all  Expand view

nCuenta:= 0
For i:= 1 To MLCount( cText )
   If Left( LTtrim( MemoLine( cText, i, .....) ), 1 ) == ']'
      nCuenta++
   EndIF
EndFor


No tengo presente los parámetros de memoline y mlcount, pero estan en la NG seguro.
Un saludo,

Carlos

[csincuir]

Horacio, puedes utilizar la clase TIni para encontrar un array con todos los nombres de las secciones y po consiguiente el numero de secciones.

Eje.:

Code: Select all  Expand view

...
oIni := Tini():New( cIniFile )
aSecctions := oIni:Sections()  //Array que contiene todos los nombres de las secciones

? Len( aSecctions ) //No. de secciones del INI




Espero te sirva. Saludos.

Carlos.

[horacio]

Les agradezco a todos por responder. Probaré cada una de sus sugerencias. De nuevo muchas gracias