htm.tol de Antonio.Salmeron

Funciones de basicas de Html (HyperText Markup Language).

Funciones

• Text Htm2Ide(Text prgNam, Text lblTxt, Real makLow)
  Retorna una etiqueta de texto convertida en identificador Html, por ejemplo, para utilizarse en un <a name></a>. Un idetificador ha de empezar por letras A..Z o a..z y seguir por letras, numeros 0..9 o subrayador, menos, dos puntos o punto. Esta funcion solo conserva las letras y numeros en su posicion y cualquier otro caracter lo cambia por el subrayador. Dependiendo del parametro makLow lo pasa todo a minusculas. Si no empieza por letra le antepone una X.

//////////////////////////////////////////////////////////////////////////////
Text Htm2Ide(Text prgNam, // Nombre del programa
             Text lblTxt, // Etiqueta de entrada
             Real makLow) // A minusculas
//////////////////////////////////////////////////////////////////////////////
{
  Text lblInp = ReplaceTable(prgNam+"_"+lblTxt, [[
    [["á","a"]],[["é","e"]],[["í","i"]],[["ó","o"]],[["ú","u"]],[["ü","u"]],
    [["Á","A"]],[["É","E"]],[["Í","I"]],[["Ó","O"]],[["Ú","U"]],[["Ü","U"]],
    [["ñ","n"]],[["Ñ","N"]]
  ]], 1);
  
  Set  setChr = TxtForChr(lblInp, Text(Text oneChr)
  {
    Case(
      And(oneChr >= "0", oneChr <= "9"), oneChr,
      And(oneChr >= "A", oneChr <= "Z"), If(makLow, ToLower(oneChr), oneChr),
      And(oneChr >= "a", oneChr <= "z"), oneChr,
      TRUE,                              "_")
  });
  Text txtSum = If(Card(setChr), SetSum(setChr), "");
  
  If(txtSum=="",  "",           // No hay identificador
  If(txtSum<"A",  "X"+txtSum,   // No ha de empezar por numero
  If(txtSum=="_", "X"+txtSum,   // No ha de empezar por _
                     txtSum)))  // Es correcto
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna una etiqueta de texto convertida en identificador Html, por ejemplo,
para utilizarse en un <a name></a>.
Un idetificador ha de empezar por letras A..Z o a..z y seguir por letras, 
numeros 0..9 o subrayador, menos, dos puntos o punto.
Esta funcion solo conserva las letras y numeros en su posicion y cualquier
otro caracter lo cambia por el subrayador.
Dependiendo del parametro makLow lo pasa todo a minusculas.
Si no empieza por letra le antepone una X.",
Htm2Ide);
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
// FILE    : htm.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Funciones de basicas de Html (HyperText Markup Language).
//////////////////////////////////////////////////////////////////////////////


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


//////////////////////////////////////////////////////////////////////////////
Text Htm2Ide(Text prgNam, // Nombre del programa
             Text lblTxt, // Etiqueta de entrada
             Real makLow) // A minusculas
//////////////////////////////////////////////////////////////////////////////
{
  Text lblInp = ReplaceTable(prgNam+"_"+lblTxt, [[
    [["á","a"]],[["é","e"]],[["í","i"]],[["ó","o"]],[["ú","u"]],[["ü","u"]],
    [["Á","A"]],[["É","E"]],[["Í","I"]],[["Ó","O"]],[["Ú","U"]],[["Ü","U"]],
    [["ñ","n"]],[["Ñ","N"]]
  ]], 1);
  
  Set  setChr = TxtForChr(lblInp, Text(Text oneChr)
  {
    Case(
      And(oneChr >= "0", oneChr <= "9"), oneChr,
      And(oneChr >= "A", oneChr <= "Z"), If(makLow, ToLower(oneChr), oneChr),
      And(oneChr >= "a", oneChr <= "z"), oneChr,
      TRUE,                              "_")
  });
  Text txtSum = If(Card(setChr), SetSum(setChr), "");
  
  If(txtSum=="",  "",           // No hay identificador
  If(txtSum<"A",  "X"+txtSum,   // No ha de empezar por numero
  If(txtSum=="_", "X"+txtSum,   // No ha de empezar por _
                     txtSum)))  // Es correcto
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna una etiqueta de texto convertida en identificador Html, por ejemplo,
para utilizarse en un <a name></a>.
Un idetificador ha de empezar por letras A..Z o a..z y seguir por letras, 
numeros 0..9 o subrayador, menos, dos puntos o punto.
Esta funcion solo conserva las letras y numeros en su posicion y cualquier
otro caracter lo cambia por el subrayador.
Dependiendo del parametro makLow lo pasa todo a minusculas.
Si no empieza por letra le antepone una X.",
Htm2Ide);
//////////////////////////////////////////////////////////////////////////////