Pregunta
· 14 dic, 2022

Quitar puntitos...

Hola!

Entiendo no hay automatismo para actualizar código antiguo que imbrica con "puntitos" transformándolo a código con llaves "{ }", creo que hacer un parser de este tipo sería complejo por situaciones como esta :

Alguien sabe si este código es equivalente ?

VERSION CON PUNTITOS
 Use fic

Read *R:20 Else  Do  Quit    ;;;;  comando else aplicado a read.
  . Use 0 Write !!!,"Temps expirat."
 If $c(R)="a" d
  . Use 0 Write !!!,"Ha leido una letra a"
  . Quit
 
VERSION CON LLAVES
 Use fic
 Read *R:20
 If $Test {
Use 0 Write !!!,"Ha leido un carácter"
Quit
 }
 Else {
Use 0 Write !!!,"Temps expirat."
 }
 

Product version: IRIS 2019.1
Comentarios (3)3
Inicie sesión o regístrese para continuar

No sé si es la mejor solución pero veo que nadie respondió hasta ahora entonces ahí va

Lo que yo haría: primero hacer un Ctrl+H y cambiar los puntitos por nada y después seleccionar el texto "Use 0 Write!!!," y cambiarlo por "{ User 0 Write!!!, }".
Entonces solo tendría que traer algunas partes para las lineas correctas como el "If" pa arriba y las strings que vienen después de el Write pa adentro de las llaves, pero eso es más facil porque se puede solo seleccionar y arrastrar