sfk.tol de Sfk.Diary

Funciones de Swiss File Knife Sfk, que se usan la herramienta http://stahlworks.com/dev/swiss-file-knife.html

Constantes

• Text SfkDir
  Camino de localización de la herramienta Sfk.
• Text SfkTmp
  Fichero temporal para que Sfk copie o pegue al Clipboard.

Funciones

• Text SfkReadClipboard(Text errMsg)
  Retorna el texto que haya en el clipboard en caso de error retorna errMsg.
• Real SfkWriteClipboard(Text outTxt)
  Guarda outTxt en el clipboard y retorna true si lo consigue y false si no.

//////////////////////////////////////////////////////////////////////////////
Text SfkDir = W("/Asc/Bin/sfk/");
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Camino de localización de la herramienta Sfk.",
SfkDir);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text SfkTmp = "_skf_clipboard_.tmp";
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Fichero temporal para que Sfk copie o pegue al Clipboard.",
SfkTmp);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text SfkReadClipboard(Text errMsg) // Texto a retornar si hay error
//////////////////////////////////////////////////////////////////////////////
{ 
  Real runSfk = System(SfkDir+"Clipboard2File.bat " + SfkTmp); // Ejecuta Sfk
  Text inpTxt = If(! runSfk, errMsg, ReadFile(SfkTmp)); // Lee el texto
  Real FileDelete(SfkTmp); // Borra el fichero temporal
  inpTxt
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el texto que haya en el clipboard en caso de error retorna errMsg.",
SfkReadClipboard);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Real SfkWriteClipboard(Text outTxt) // Texto a inyectar en el clipboard
//////////////////////////////////////////////////////////////////////////////
{
  Text WriteFile(SfkTmp, outTxt); // Guarda el texto en el fichero temporal
  Real runSfk = System(SfkDir+"File2Clipboard.bat " + SfkTmp); // Ejecuta Sfk
  Real FileDelete(SfkTmp); // Borra el fichero temporal
  runSfk
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Guarda outTxt en el clipboard y retorna true si lo consigue y false si no.",
SfkReadClipboard);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
// FILE    : sfk.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Funciones de Swiss File Knife Sfk, que se usan la herramienta
// http://stahlworks.com/dev/swiss-file-knife.html
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text SfkDir = W("/Asc/Bin/sfk/");
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Camino de localización de la herramienta Sfk.",
SfkDir);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text SfkTmp = "_skf_clipboard_.tmp";
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Fichero temporal para que Sfk copie o pegue al Clipboard.",
SfkTmp);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text SfkReadClipboard(Text errMsg) // Texto a retornar si hay error
//////////////////////////////////////////////////////////////////////////////
{ 
  Real runSfk = System(SfkDir+"Clipboard2File.bat " + SfkTmp); // Ejecuta Sfk
  Text inpTxt = If(! runSfk, errMsg, ReadFile(SfkTmp)); // Lee el texto
  Real FileDelete(SfkTmp); // Borra el fichero temporal
  inpTxt
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna el texto que haya en el clipboard en caso de error retorna errMsg.",
SfkReadClipboard);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Real SfkWriteClipboard(Text outTxt) // Texto a inyectar en el clipboard
//////////////////////////////////////////////////////////////////////////////
{
  Text WriteFile(SfkTmp, outTxt); // Guarda el texto en el fichero temporal
  Real runSfk = System(SfkDir+"File2Clipboard.bat " + SfkTmp); // Ejecuta Sfk
  Real FileDelete(SfkTmp); // Borra el fichero temporal
  runSfk
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Guarda outTxt en el clipboard y retorna true si lo consigue y false si no.",
SfkReadClipboard);
//////////////////////////////////////////////////////////////////////////////