Cantidad variable de parámetros

[Antonio Linares]

Cuando necesiteis llamar a una función y proporcionarle un número variable de parámetros podeis usar:

function MyFunc( ... )

y entonces llamar a hb_aparams() para obtener un array con todos ellos

[fgondi]

Muchas gracias por la información, Antonio

[Carlos Mora]

Antonio,

En general no es imprescindible indicar ni siquiera que parámetros pasas, a menos que quieras ponerle un nombre , pero si vas a usar hb_aparams, o HB_PValue(), ni siquiera hace falta indicarlo con '...' .

HB_PValue(i) devuelve el parámetro i-ésimo, y sabremos cuantos parámetros hay con PCount().

Por ejemplo:

? Expand( 'Select * from clientes where id = $1', 22 ) -> Select * from clientes where id = 22

FUNCTION Expand( cQuery ) // Aunque escribiendo (cQuery, ... ) hace más obvio que tiene parámetros variables
LOCAL i
i:= PCount()
WHILE i > 1
cQuery:= StrTran( cQuery, '$'+(LTrim(Str(i-1))), ClipValue2SQL( HB_PValue(i) ) )
i--
ENDDO

RETURN cQuery

Se pueden hacer cosas bastante majas...

[Antonio Linares]

Carlos,

gracias por la información

Dudo que Przemek pasará por alto algo asi. Tal vez haya otro uso para "..." que desconocemos.

Si os parece importante lo podemos preguntar en la lista de desarrollo de Harbour

[Carlos Mora]

Solo se me ocurre una cuestion de orden y elegancia, una forma de hacer explícito el hecho de que vas a usar parámetros.
Tal vez el pcode generado podría llegar a mostrar alguna diferencia, no se...

Pero en lo personal lo he usado bastante, como en el ejemplo, y como podrás adivinar, con uso intensivo (es en las querys) y va fenomenal.

Y para añadir más cosas a la colección de cositas guapas, por si alguno todavía no lo conoce, van los siguientes #pragmas:

Code: Select all  Expand view  RUN

#xcommand TEXT INTO <v> => #pragma __cstream|<v>:=%s
#xcommand TEXT INTO <v> ADDITIVE => #pragma __cstream|<v>+=%s
 

Esto nos permite escribir texto literal, que incluya incluso saltos de línea, como en:

Code: Select all  Expand view  RUN

   TEXT INTO cTexto

      CREATE TABLE IF NOT EXISTS `validalta` (
        `id`         int(11) NOT NULL AUTO_INCREMENT,
        `fechanaci`  date,
        `nif`        varchar(9)  DEFAULT NULL,
        `mail`       varchar(50) DEFAULT NULL,
        `cuenta`     varchar(4) DEFAULT NULL,
        PRIMARY KEY (`id`),
        UNIQUE KEY `NIF` (`nif`)
      );
   ENDTEXT

   oServer:Command( cTexto )
 

o bien, XML combinado con la funcioncita de Expand

Code: Select all  Expand view  RUN

               TEXT INTO cTransac
                  <tns:importAbsenceFiles xmlns:tns="http://echange.service.open.server.com">
                     <tns:absenceFilesToImport>
                        <tns:absenceFile>
                           <tns:absenceTypeAbbreviation>VACAC</tns:absenceTypeAbbreviation>
                           <tns:employeeIdentificationNumber>$1</tns:employeeIdentificationNumber>
                           <tns:startDate>$2</tns:startDate>
                           <tns:endDate>$3</tns:endDate>
                        </tns:absenceFile>
                     </tns:absenceFilesToImport>
                  </tns:importAbsenceFiles>
               ENDTEXT

               cTransac:= Expand( cTransac, oQuery:dni, oQuery:FechaInicio, oQuery:FechaFin )

 

Como te decía, entre SQL, XML y web... lo uso de forma intensiva, y ayuda a hacer la programación muchísimo más clara.

[Antonio Linares]

Carlos,

Muy bueno

Muchas gracias por compartirlo

[Carles]

Carlos --> Bravo, bonissimo para mi, no lo conocia....

(Copy/paste cagando leches....)


Gracias !!!

[csincuir]

Cada día de aprende algo nuevo!
Gracias tocayo, muy bueno, me serán de bastante utilidad tus ejemplos.

Saludos.

Carlos.

[Baxajaun]

Carlos,

muchísimas gracias por compartir la información y los ejemplos.

Saludos

[cnavarro]

Carlos
Gracias, es muy bueno

[AngelSalom]

Uau, uau, uau .. esos #pragma son la repera !!

[fgondi]

Carlos, muy, pero que muy bueno

Fácil de leer en el código fuente, facil de copiar y pegar para probar la consulta sql.

Increíble.

[Antonio Linares]

Si os parece incluimos esos pragmas en FiveWin.ch

Controlando que sea Harbour, porque imagino que no funcionan en xHarbour

[Antonio Linares]

Code: Select all  Expand view  RUN

#ifndef __XHARBOUR__
   #xcommand TEXT INTO <v> => #pragma __cstream|<v>:=%s
   #xcommand TEXT INTO <v> ADDITIVE => #pragma __cstream|<v>+=%s
#endif
 

[carlos vargas]

Antonio, no se como lo maneja xharbour internamente, pero segun la ayuda

Syntax
TEXT [TO PRINTER] [TO FILE <fileName>]
<text>
ENDTEXT

or

TEXT INTO <varName>
<text>
ENDTEXT

Arguments
TO PRINTER
The text is additionally output to the printer.
TO FILE <fileName>
The text is additionally output to the file <fileName>. It can be specified as a literal file name or as a character expression enclosed in parentheses. The default extension is TXT.
INTO <varName>
This is the symbolic name of the variable to assign <text> to.
<text>
This is a literal text block enclosed in TEXT and ENDTEXT. The text is output to the screen and displayed exactly as written in the PRG source code file. Description
The TEXT...ENDTEXT command outputs a block of literal text to the console. Output can be directed additionally to a printer or a file. When SET CONSOLE is set to OFF, the screen output is suppressed.
ALternatively, the text is assigned as character string to the variable <varName> when the INTO option is used.