Leer archivo .ini

[Fito]

Hola Amigos:

Buscando información en la web encontré este código en visual basic para leer archivos ini por medio de winapi. Es posible traducirla a Cobol?


Option Explicit

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function Leer_INI(Filename As String, Key_Value As String, Key_Name As String, Optional ByVal Default As String) As String

Dim Size As Integer
Dim Value As String

Value = Space(255)
Size = GetPrivateProfileString(Key_Value, Key_Name, "", Value, Len(Value), Filename)

If Size > 0 Then Leer_INI = Left$(Value, Size) Else Leer_INI = Default

End Function

Public Function Escribir_INI(Filename As String, Key_Value As String, Key_Name As String, Value As String) As Long

Dim Size As Integer

Size = WritePrivateProfileString(Key_Value, Key_Name, Value, Filename)

End Function


Saludos...

Fito...

[Rapinto]

Fito,

Não seria mais prático usar uma ComboBox?
Dizes qual o nome do ficheiro a ler nas propriedades "File" da ComboBox.
A ComboBox pode ficar como "visible" = false, para ninguém ver.

Load : carrega o ficheiro
Save : guarda o ficheiro.

Não é necessário abrir o ficheiro em Cobol.

Un saludo
Rui Pinto

[fastpho]

Estas lineas que mando lee un archivo . ini donde se lee los baudios y la puerta de comunicacion

WORKING-STORAGE SECTION.
01 PARM1 PIC X(128).
01 PARM2 PIC X(128).
01 PARM3 PIC S9(9) COMP-5.
01 PARM4 PIC X(128).
01 PARM5 PIC S9(9) COMP-5.
PROCEDURE DIVISION.
MOVE "Comunica" to PARM1 *> Application name
MOVE "baud" to PARM2 *> Key Name
MOVE 2 TO PARM3 *> Default value
MOVE strIniFile to PARM4
CALL "GetPrivateProfileIntA" WITH STDCALL LINKAGE
USING BY REFERENCE PARM1
PARM2
BY VALUE PARM3
BY REFERENCE PARM4
RETURNING PARM5

EVALUATE PARM5
WHEN 1
MOVE "9600" TO "TEXT" OF CMTEXT2
WHEN 3
move "38400" TO "TEXT" OF CMTEXT2
WHEN OTHER
MOVE "19200" TO "TEXT" OF CMTEXT2
END-EVALUATE

MOVE "Comunica" to PARM1 *> Application name
MOVE "puerta" to PARM2 *> Key Name
MOVE 1 TO PARM3 *> Default value
MOVE strIniFile to PARM4
CALL "GetPrivateProfileIntA" WITH STDCALL LINKAGE
USING BY REFERENCE PARM1
PARM2
BY VALUE PARM3
BY REFERENCE PARM4
RETURNING PARM5

MOVE PARM5 TO "TEXT" OF CMTEXT1.

[Fito]

Hola @fastpho,

Intenté hacer esto y no pude hacerlo andar :yoquese:

Saludos...

Fito...

[fastpho]

Hola @Fito
Proba con este ejemplo es de lectura de enteros y de string de un archivo que se llama ftp.ini
Saludos...

[Fito]

Hola Amigos:

Te comento @fastpho, que yo estaba haciendo lo mismo que vos, pero con una pequeña diferencia.

Así funciona:

WORKING-STORAGE SECTION.

01 INI-Seccion pic x(7) value "GENERAL".
01 INI-Clave pic x(7) value "EMPRESA".
01 INI-Default pic x(128) value "valor por defecto".
01 INI-Valor pic x(128) value spaces.
01 INI-Size pic s9(9) comp-5 value 128.
01 INI-Archivo pic x(128) value "d:pruebaconfig.ini" & X"00".


Así no:


01 Variables-INI.
02 INI-Seccion pic x(7) value "GENERAL".
02 INI-Clave pic x(7) value "EMPRESA".
02 INI-Default pic x(128) value "valor por defecto".
02 INI-Valor pic x(128) value spaces.
02 INI-Size pic s9(9) comp-5 value 128.
02 INI-Archivo pic x(128) value "d:pruebaconfig.ini" & X"00".


Los campos tienen que ser nivel 01.

Cada vez entiendo menos de esto....

Saludos...

Fito...

[fastpho]

Hola @Fito , los campos se pueden trabajar con nivel 01 o 77 pasando las varialbles por REFERENCE
Si vas a trabajar con el nivel 01 subdivido tenes pasar las variables por CONTENT

Ejemplo de Escritura con subdivisiones

WORKING-STORAGE SECTION.
01 FileName PIC X(24) VALUE "C:FSC5WORKFTP.INI" & X"00".
01 Variables-INI.
02 PARM1 PIC X(6). *> Application name
02 PARM2 PIC X(5). *> Key Name
02 PARM3 PIC X(128). *> Value Write
02 PARM4 PIC X(128). *> FileName INi.
02 PARM5 PIC S9(9) COMP-5.

PROCEDURE DIVISION.


MOVE "Config" TO PARM1 *> Application name
MOVE "Clave" TO PARM2 *> Key Name
MOVE "Fito 500 " & X"00" TO PARM3 *> Value Write
MOVE FileName TO PARM4 *> FileName INi
CALL "WritePrivateProfileStringA" WITH STDCALL LINKAGE
USING BY CONTENT PARM1
BY CONTENT PARM2
BY CONTENT PARM3
BY CONTENT PARM4
RETURNING PARM5.



Saludos...

[Kuk]

@fastpho, el nivel del campo no tiene nada que ver con CONTENT o REFERENCE, estos son el modo de pasar los parámetros:


CONTENT - es una copia del parámetro, de modo que si el llamado modifica algo, en el llamante no va a tener impacto/cambio
REFERENCE - es pasar el puntero, dándole acceso al llamado a la misma sección de memoria que ha reservado el llamante, de modo que el llamado puede modificar algo y el llamante lo verá también