Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Leer archivo AcuCobol con PowerCobol Roger PowerCOBOL (ActiveX, v4 - v11) 7 28 de septiembre de 2016 09:44
[Sintaxis] Leer archivo texto con codificacion UTF-8 Recato53 PowerCOBOL (ActiveX, v4 - v11) 1 18 de abril de 2016 09:47
Respuesta
 
Herramientas

  #1
Antiguo 1 de septiembre de 2017, 15:38
IDENTIFICATION DIVISION
Fito
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
febrero 2015
Córdoba, Villa María
50 años
22.06.2021 21:04
PROCEDURE DIVISION
Posts: 264
Enviado: 137
Recibido: 127
Soluiones: 13
Reputación: 19
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Deporte Leer archivo .ini

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?

Código VB:
  1. Option Explicit
  2.  
  3. 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
  4. 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
  5.  
  6. Public Function Leer_INI(Filename As String, Key_Value As String, Key_Name As String, Optional ByVal Default As String) As String
  7.    
  8.     Dim Size As Integer
  9.     Dim Value As String
  10.  
  11.     Value = Space(255)
  12.     Size = GetPrivateProfileString(Key_Value, Key_Name, "", Value, Len(Value), Filename)
  13.  
  14.     If Size > 0 Then Leer_INI = Left$(Value, Size) Else Leer_INI = Default
  15.  
  16. End Function
  17.  
  18. Public Function Escribir_INI(Filename As String, Key_Value As String, Key_Name As String, Value As String) As Long
  19.    
  20.     Dim Size As Integer
  21.  
  22.     Size = WritePrivateProfileString(Key_Value, Key_Name, Value, Filename)
  23.  
  24. End Function

Saludos...

Fito...
Fito no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 1 de septiembre de 2017, 18:09
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

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
Rapinto no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 6 de septiembre de 2017, 22:27
IDENTIFICATION DIVISION
fastpho
 Novato Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
50 años
22.06.2021 21:04
PROCEDURE DIVISION
Posts: 146
Enviado: 99
Recibido: 84
Soluiones: 19
Reputación: 13
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado
1 usuarios han marcado este post como "Solución"

Estas lineas que mando lee un archivo . ini donde se lee los baudios y la puerta de comunicacion
Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  PARM1      PIC X(128).
  3.  01  PARM2      PIC X(128).
  4.  01  PARM3      PIC S9(9) COMP-5.
  5.  01  PARM4      PIC X(128).
  6.  01  PARM5      PIC S9(9) COMP-5.
  7.  PROCEDURE       DIVISION.
  8.      MOVE   "Comunica"  to  PARM1       *> Application name
  9.      MOVE   "baud"          to  PARM2       *> Key Name
  10.      MOVE   2               TO  PARM3       *> Default value
  11.      MOVE   strIniFile      to  PARM4
  12.      CALL   "GetPrivateProfileIntA" WITH STDCALL LINKAGE
  13.             USING   BY REFERENCE    PARM1
  14.                                     PARM2
  15.                     BY VALUE        PARM3
  16.                     BY REFERENCE    PARM4
  17.                     RETURNING       PARM5
  18.                    
  19.      EVALUATE   PARM5
  20.             WHEN    1
  21.                     MOVE    "9600"  TO  "TEXT"  OF  CMTEXT2
  22.             WHEN    3
  23.                     move    "38400" TO  "TEXT"  OF  CMTEXT2
  24.             WHEN    OTHER
  25.                     MOVE    "19200" TO  "TEXT"  OF  CMTEXT2
  26.      END-EVALUATE
  27.  
  28.      MOVE   "Comunica"  to  PARM1       *> Application name
  29.      MOVE   "puerta"            to  PARM2       *> Key Name
  30.      MOVE   1               TO  PARM3       *> Default value
  31.      MOVE   strIniFile      to  PARM4
  32.      CALL   "GetPrivateProfileIntA" WITH STDCALL LINKAGE
  33.             USING   BY REFERENCE    PARM1
  34.                                     PARM2
  35.                     BY VALUE        PARM3
  36.                     BY REFERENCE    PARM4
  37.                     RETURNING       PARM5
  38.                    
  39.      MOVE   PARM5   TO      "TEXT"  OF  CMTEXT1.
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Fito ( 7 de septiembre de 2017)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 15:05.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.