Hola foro,
tengo un consulta como podría un comando (preprocesador) con texto con mas de una linea, ejemplo
COMANDO comando ;
TEXTO linea1
linea2
linea3
...
linean ;
OPCION1 op1 ;
OPCION2 op2
como cualquier comando de [x]Hb o FW, pero con una opción con un texto de varias líneas, espero este clara la idea
saludos
Marcelo
Marcelo,
Si pudieses especificar una coma despues de cada línea, entonces podrias usar una regla como hacemos en FWH con los ITEMS (ComboBox, etc) que acaban siendo guardados en un array:
[ <it: PROMPTS, ITEMS> <aItems> ] ;
... =>
<aItems>
busca ITEMS en FiveWin.ch 
Ya existe un comando en harbour para los textos:
TEXT
...
ENDTEXT
Hola,
gracias por las respuestas,
Antonio, no deseo perturbar el texto, por lo tanto no quisiera utilizar , (comas) ya que podría ser parte del texto
Manuel,
si TEXT ... ENDTEXT me sirve, pero el tema es como aumento algo mas a eso, es decir:
COMANDO <Comm>
TEXT
ENDTEXT
PARAMETRO <par1>
algo así, necesito algo mas que solo el texto
Gracias
Marcelo
Marcelo, Manuel,
la cuestión es que TEXT ... ENDTEXT no lo procesa el preprocesador, sino el propio compilador, asi que no podemos ampliarlo.
Si pudieses situar cada línea entre comillas (simples, en caso de que se usen las dobles en el texto), y añadiendo la coma final que te comentaba, entonces el preprocesador podría servirte.
No podrias leer el texto desde un fichero externo ? O generarlo temporalmente ?
Antonio,
gracias por responder, el tema es que quiero simplificar las llamadas a sentencias SQL algo asi:
EXECUTESQL select *
from clientes
where estado = '$1'
and salario > $2
and gestion = $3
PARAMETERS 'A', 1000, 2012
SAVETOARRAY aSet
...
es la idea, ya lo tengo como función, pero sería mucho mas claro si lo podría hacer así
Muchas gracias por la ayuda
saludos
Marcelo
#xcommand EXECUTESQL <cSqlSentence> ;
[ PARAMETERS <params,...> ] ;
[ SAVETOARRAY <aArray> ] ;
=> ;
TuFuncion( <cSqlSentence>, [<params>], [<aArray>] )
function Main()
EXECUTESQL "select * " + ;
"from clientes " + ;
"where estado = '$1' " + ;
"and salario > $2 " + ;
"and gestion = $3" ;
PARAMETERS 'A', 1000, 2012 ;
SAVETOARRAY aSet
return nilEstimado Antonio,
tu propuesta es funcional y ya había probado algo así, pero mi intención era evitar las comillas ("") y los + ; para que sea mas legible y sencillo de escribir, pero por lo visto creo que no será posible salvo utilizando TEXT ENDTEXT de manera previa y esa variable pasarla al comando.
Muchas gracias
Marcelo
Marcelo,
No logro imaginar como vas a usar TEXT ... ENDTEXT para lo que quieres hacer.
De todas formas, si lo consigues será interesante ver como lo has hecho