Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   PHP (https://www.clubdelphi.com/foros/forumdisplay.php?f=15)
-   -   Ayuda con File Browser? (https://www.clubdelphi.com/foros/showthread.php?t=64167)

c0lo 20-03-2009 07:46:09

Ayuda con File Browser?
 
Hola a todos y mis coordiales saludos, bueno en esta ocasion estoy algo desesperado ya que tengo que hacer un File Browser, de un servidor o de una carpeta en mi servidor.

Pero lo complicado que es para mi es, que solo debe mostrarme los archivos de text *.txt si eexiste otro archivo que no sea de la extension *.txt que no me lo muestre. Solo debe mostrar archivos *.txt

Gracias

Neftali [Germán.Estévez] 20-03-2009 09:51:22

Si quieres utilizar componentes puedes utilizar los que hay en la paleta "Win 3.1" o en la paleta "Samples" de delphi, que te falcilitarán el trabajo. Si deseas hacerlo "manualmente" posiblemente te sea útil el truco 82 de la sección de trucos del ClubDelphi, que permite buscar ficheros dentro de una carpeta indicando una determinada extensión.

dec 20-03-2009 10:59:13

Hola,

Me temo que estamos en el foro de PHP, Neftalí. De todas formas, si el compañero quiere mostrar una lista de archivos de su servidor, no tiene sino hacerlo. PHP proporciona las herramientas necesarias: se trataría de recorrer un determinado directorio en busca de los archivos de texto que se quieren mostrar. Puede verse un ejemplo de uso de la función "opendir()", por ejemplo.

Neftali [Germán.Estévez] 20-03-2009 11:58:11

Cita:

Empezado por dec (Mensaje 342087)
Me temo que estamos en el foro de PHP, Neftalí.

¡¡Vaya cagada!! :o:o:o

Mil perdones...

roman 27-03-2009 21:31:13

Otra opción (php5):

Código PHP:

<?php
foreach (new DirectoryIterator('/ruta/a/la/carpeta') as $fileInfo)
{
    if(
$fileInfo->isFile() && preg_match('/\.txt$/'$fileName $fileInfo->getFileName()))
    {
        
var_dump($fileName);
    }
}
?>

// Saludos


La franja horaria es GMT +2. Ahora son las 15:52:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi