fil.tol de Ediciones.aContracorriente

Funciones de ficheros.

Declaraciones

Funciones

Real FilWriteIfDiff(Text filPth, Text txtNew)
Escribe txtOut en filPth si filPth es un nuevo fichero o si su contenido actual es diferente de txtOut y en otro caso no escribe nada. Retorna true si lo ha escrito y false si no ha sido necesario hacerlo. Evita que los ficheros adquiran una fecha de actualizacion reciente cuando su contenido no ha cambiando realmente, evitando, por ejemplo, retransmisiones por ftp de fichero que realmente no han cambiado.
Real FilCheckExtension(Text filPth, Text txtExt, Real casSen)
Retorna cierto si el fichero de ruta filPth tiene la extension txtExt. Si casSen es cierto distingue entre mayusculas de minusculas.
Real FilCopy(Text oldPth, Text newPth, Real overwrite)
Returns TRUE in the file oldNam can be copied over newNam.
Real FilDelete(Text filPth)
Returns TRUE in the file filPth can be deleted.
Real FilRename(Text oldNam, Text newNam, Real overwrite)
Returns TRUE in the file oldNam can be renamed ad newNam. If overwrite is TRUE the overwrite the target file.

Funciones

Real FilWriteIfDiff()

//////////////////////////////////////////////////////////////////////////////
Real FilWriteIfDiff(Text filPth, // Fichero de salida
                    Text txtNew) // Texto para escribir
//////////////////////////////////////////////////////////////////////////////
{
  If(! FileExist(filPth),        { Text WriteFile(filPth, txtNew); TRUE },
  If(txtNew != ReadFile(filPth), { Text WriteFile(filPth, txtNew); TRUE },
                                    FALSE ))
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Escribe txtOut en filPth si filPth es un nuevo fichero o si su contenido
actual es diferente de txtOut y en otro caso no escribe nada.
Retorna true si lo ha escrito y false si no ha sido necesario hacerlo.
Evita que los ficheros adquiran una fecha de actualizacion reciente
cuando su contenido no ha cambiando realmente, evitando, por ejemplo,
retransmisiones por ftp de fichero que realmente no han cambiado.",
FilWriteIfDiff);
//////////////////////////////////////////////////////////////////////////////

Real FilCheckExtension()

//////////////////////////////////////////////////////////////////////////////
Real FilCheckExtension(Text filPth, // Ruta del fichero
                       Text txtExt, // Extension para comprobar
                       Real casSen) // Si distingue mayus/minus en extension
//////////////////////////////////////////////////////////////////////////////
{
  Text filExt = If(casSen, GetFileExtension(filPth),
                   ToLower(GetFileExtension(filPth)));
  Text chkExt = If(casSen, txtExt,
                   ToLower(txtExt));
  filExt==chkExt
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna cierto si el fichero de ruta filPth tiene la extension txtExt.
Si casSen es cierto distingue entre mayusculas de minusculas.",
FilCheckExtension);
//////////////////////////////////////////////////////////////////////////////

Real FilCopy()

//////////////////////////////////////////////////////////////////////////////
Real FilCopy(Text oldPth,    // Ruta del fichero origen
             Text newPth,    // Ruta del fichero destino 
             Real overwrite) // Si cierto sobre-escribe
//////////////////////////////////////////////////////////////////////////////
{
  Text cpyTxt = "copy "+oldPth+" "+newPth;
  Text cpyCmd = Replace(cpyTxt, "/", "\\");
  Case(  
    Not(FileExist(oldPth)),     FALSE,           // Original doesn't exist
    oldPth==newPth,             FALSE,           // Auto-copy ?
    Not(FileExist(newPth)),     System(cpyCmd),  // Execute copy
    overwrite,                  System(cpyCmd),  // Copy and overwrite
                                FALSE)           // Don't overwrite
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns TRUE in the file oldNam can be copied over newNam.",
FilCopy);
//////////////////////////////////////////////////////////////////////////////

Real FilDelete()

//////////////////////////////////////////////////////////////////////////////
Real FilDelete(Text filPth)
//////////////////////////////////////////////////////////////////////////////
{ 
  If(FileExist(filPth), FileDelete(filPth), FALSE)
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns TRUE in the file filPth can be deleted.",
FilDelete);
//////////////////////////////////////////////////////////////////////////////

Real FilRename()

//////////////////////////////////////////////////////////////////////////////
Real FilRename(Text oldNam, Text newNam, Real overwrite)
//////////////////////////////////////////////////////////////////////////////
{
  If(Not(FileExist(oldNam)),     FALSE,
  If(oldNam==newNam,             FALSE,
  {
    If(Not(FileExist(newNam)),   FileRename(oldNam,newNam),
    If(overwrite,              { FileDelete(newNam);
                                 FileRename(oldNam,newNam) },
                                 FALSE))
  }))
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns TRUE in the file oldNam can be renamed ad newNam.
If overwrite is TRUE the overwrite the target file.",
FilRename);
//////////////////////////////////////////////////////////////////////////////

Time oriented language

//////////////////////////////////////////////////////////////////////////////
// FILE    : fil.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Funciones de ficheros.
//////////////////////////////////////////////////////////////////////////////


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

//////////////////////////////////////////////////////////////////////////////
Real FilWriteIfDiff(Text filPth, // Fichero de salida
                    Text txtNew) // Texto para escribir
//////////////////////////////////////////////////////////////////////////////
{
  If(! FileExist(filPth),        { Text WriteFile(filPth, txtNew); TRUE },
  If(txtNew != ReadFile(filPth), { Text WriteFile(filPth, txtNew); TRUE },
                                    FALSE ))
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Escribe txtOut en filPth si filPth es un nuevo fichero o si su contenido
actual es diferente de txtOut y en otro caso no escribe nada.
Retorna true si lo ha escrito y false si no ha sido necesario hacerlo.
Evita que los ficheros adquiran una fecha de actualizacion reciente
cuando su contenido no ha cambiando realmente, evitando, por ejemplo,
retransmisiones por ftp de fichero que realmente no han cambiado.",
FilWriteIfDiff);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Real FilCheckExtension(Text filPth, // Ruta del fichero
                       Text txtExt, // Extension para comprobar
                       Real casSen) // Si distingue mayus/minus en extension
//////////////////////////////////////////////////////////////////////////////
{
  Text filExt = If(casSen, GetFileExtension(filPth),
                   ToLower(GetFileExtension(filPth)));
  Text chkExt = If(casSen, txtExt,
                   ToLower(txtExt));
  filExt==chkExt
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna cierto si el fichero de ruta filPth tiene la extension txtExt.
Si casSen es cierto distingue entre mayusculas de minusculas.",
FilCheckExtension);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Real FilCopy(Text oldPth,    // Ruta del fichero origen
             Text newPth,    // Ruta del fichero destino 
             Real overwrite) // Si cierto sobre-escribe
//////////////////////////////////////////////////////////////////////////////
{
  Text cpyTxt = "copy "+oldPth+" "+newPth;
  Text cpyCmd = Replace(cpyTxt, "/", "\\");
  Case(  
    Not(FileExist(oldPth)),     FALSE,           // Original doesn't exist
    oldPth==newPth,             FALSE,           // Auto-copy ?
    Not(FileExist(newPth)),     System(cpyCmd),  // Execute copy
    overwrite,                  System(cpyCmd),  // Copy and overwrite
                                FALSE)           // Don't overwrite
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns TRUE in the file oldNam can be copied over newNam.",
FilCopy);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Real FilDelete(Text filPth)
//////////////////////////////////////////////////////////////////////////////
{ 
  If(FileExist(filPth), FileDelete(filPth), FALSE)
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns TRUE in the file filPth can be deleted.",
FilDelete);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Real FilRename(Text oldNam, Text newNam, Real overwrite)
//////////////////////////////////////////////////////////////////////////////
{
  If(Not(FileExist(oldNam)),     FALSE,
  If(oldNam==newNam,             FALSE,
  {
    If(Not(FileExist(newNam)),   FileRename(oldNam,newNam),
    If(overwrite,              { FileDelete(newNam);
                                 FileRename(oldNam,newNam) },
                                 FALSE))
  }))
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Returns TRUE in the file oldNam can be renamed ad newNam.
If overwrite is TRUE the overwrite the target file.",
FilRename);
//////////////////////////////////////////////////////////////////////////////

Árbol de ficheros

Ediciones.aContracorriente construye las páginas del sitio web edicionesacontracorriente.com

←make.tol proceso principal de generación de contenidos del sitio web
tol directorios de código fuente en lenguaje de programación Tol
- cmm funciones comunes de textos, fechas, conjuntos, ficheros, etc.
  - ←txt.tol funciones de manejo de textos
  - ←dte.tol funciones de manejo de fechas en español
  - ←set.tol funciones de manejo de conjuntos
  - ←fil.tol funciones de gestión de ficheros
  - ←dir.tol funciones de gestión de directorios
  - ←tme.tol del macro-expansor simple de Tol en Html
  - ←htm.tol funciones básicas del lenguaje Html
  - ←ftp.tol funciones para generar mandatos para hacer Ftp
  - ←xsm.tol para construir sitemaps en Xml
- app funciones específicas de Ediciones.aContracorriente
  - ←pdb.tol funciones de manejo de los posts de una agenda
  - ←pht.tol funciones auxiliares para el Html de los post
- ←inc.tol inclusión de los ficheros Tol básicos y de aplicación
agenda directorio destinado a albergar los ficheros de agendas de posts
- ←6000.becquergaleyendas.age ejemplo de varios posts sobre Leyendas de Bécquer
web directorio destinado a las páginas web generadas automáticamente
- css directorio para ficheros de estilo
  - ←common.css fichero de estilo para las páginas Html del sitio web
- src directorio para ficheros javascript
  - ←ads.js código Javascript para emitir anuncios desde otros sitios
  - ←txt.js código Javascript para el manejo de textos
- articulos directorio para páginas de artículos generadas por este programa
  - →aquemarropavideomagnumforce.html ejemplo de página Html generada automáticamente
- categorias directorio para páginas de categorias generadas automáticamente
  - →atodaplana.html ejemplo de pagina Html de categoria generada
- →sitemap.xml mapa del sitio web generado en Xml de forma automática
history archivo histórico del programa Ediciones.aContracorriente
- →20140620.azafataaventurassoblonde2014.jpg ejemplo de página generada automáticamente por este programa
→ediciones_acontracorriente.pdf documento resumen de funciones del programa de generación Html

Secciones de la página

Funciones

Artículos del sitio

Por categorías

fil.tol de Ediciones.aContracorriente

Declaraciones

Funciones

Real FilWriteIfDiff()

Real FilCheckExtension()

Real FilCopy()

Real FilDelete()

Real FilRename()

Time oriented language

Árbol de ficheros