FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Remplacer tous les espaces par _ dans les noms des fichiers

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Remplacer tous les espaces par _ dans les noms des fichiers   Sam 18 Avr 2015 - 4:19

Salut tout le monde!

Comme d'habitude : tout est dans le code.


Code:

rem ============================================================================
rem Renommer tous les fichiers d un dossier dont les noms comportent des espaces
rem en les remplaçant par le caractère de soulignement _ (underscore)
rem Par exemple  :
rem Le fichier   : "Mon fichier test.bas"
rem sera renommé :  "Mon_fichier_test.bas"
rem ============================================================================
' Pour tester :
' créer un dossier de travail sur le bureau : "Mon Dossier" par exemple
' y copier quelques fichiers (pour servir de test) dont les noms comportent des espaces
' Par exemple :
' "Mon fichier avec espace.txt"
' "Mon second fichier 1 2 3 .bas"
' Appeler la sub : Renomme_Fichiers("C:\Users\acer\Desktop\Mon Dossier")
' Vos fichiers devront être renommés en :
' "Mon_fichier_avec_espace.txt"
' "Mon_second_fichier_1_2_3.bas
rem ============================================================================
rem NB : Ce script renomme seulement les fichiers, pas les dossiers !
rem ============================================================================

Renomme_Fichiers("C:\Users\acer\Desktop\Nouveau dossier") : ' Adapter le chemin

end
rem ============================================================================
' Script pour remplacer les espaces dans les noms des fichiers par le caractère
' de soulignement _ (underscore)
SUB Renomme_Fichiers(dossier$)
    dim_local src$,q$
    if dir_exists("C:\temp") = 0 then dir_make "C:\temp"
    if dir_exists(dossier$) = 0
       message "Le dossier : " + dossier$ + " n'existe pas !" + chr$(13) + "Veuillez vérifier son chemin"
       exit_sub
    end_if
    src$ = "C:\temp\rename.bat" : q$ = chr$(34)
    FILE_OPEN_WRITE 9999,src$
    FILE_WRITELN 9999,"@echo off"
    FILE_WRITELN 9999,"setlocal enabledelayedexpansion"
    FILE_WRITELN 9999,"for /r " +q$ + dossier$ + q$ + " %%a in (*.*) do ("
    FILE_WRITELN 9999,"set "+q$+"path=%%~nxa"+q$
    FILE_WRITELN 9999,"set "+q$+"path=!path: =_!"+q$
    FILE_WRITELN 9999,"move /y "+q$+"%%~a"+q$+" "+q$+"%%~dpa!path!"+q$
    FILE_WRITELN 9999,")"
    FILE_CLOSE 9999
    EXECUTE_WAIT src$
    FILE_DELETE src$
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Remplacer tous les espaces par _ dans les noms des fichiers   Sam 18 Avr 2015 - 10:10

Très pratique !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 18 Avr 2015 - 12:53

Pratique, utile, il y a aussi la sub "remplace_caractere(texte$,char_indesirable$,char_subsitution$)"
présente sur le site.

je crois que c' était l' oeuvre de JL35...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6302
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Remplacer tous les espaces par _ dans les noms des fichiers   Sam 18 Avr 2015 - 15:03

Je ne crois pas... j'ai bien une sub qui remplace dans une chaîne une séquence par une autre...

Une autre approche pour le sujet papydall, tout en panoramic (pas de script):
Code:
SUB RenFich(rep$)
' Dans rep$, remplacer les espaces par des '_' dans les noms de fichiers
DIM_LOCAL sr$,lst$,f$,fr$,k%,ke%,q$
q$ = CHR$(34): sr$ = DIR_CURRENT$: DIR_CHANGE q$+rep$+q$
EXECUTE_WAIT "cmd.exe /c DIR /B /A:-D | clip": lst$ = CLIPBOARD_STRING_PASTE$
k% = INSTR(lst$,CHR$(13)+CHR$(10))
WHILE k% > 0 OR lst$ <> ""
    IF k% > 0
        f$ = LEFT$(lst$,k%-1): lst$ = RIGHT_POS$(lst$,k%+2)
    ELSE
        f$ = lst$: lst$ = "": ' dernier de la liste
    END_IF
    ke% = INSTR(f$," ")
    IF ke% > 0
        fr$ = f$
        WHILE ke% > 0
            fr$ = LEFT$(fr$,ke%-1)+"_"+RIGHT_POS$(fr$,ke%+1): ke% = INSTR(fr$," ")
        END_WHILE
        FILE_RENAME q$+f$+q$,fr$
    END_IF
    k% = INSTR(lst$,CHR$(13)+CHR$(10))
END_WHILE
DIR_CHANGE sr$
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 18 Avr 2015 - 18:36

Ou peut être Jicehel...
...à moins que ce ne soit un autre Panoramicien. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Remplacer tous les espaces par _ dans les noms des fichiers   

Revenir en haut Aller en bas
 
Remplacer tous les espaces par _ dans les noms des fichiers
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Remplacer tous les espaces par _ dans les noms des fichiers
» gps snooper de ventura
» POI dans mapsource
» Liens inactifs dans Outlook Express
» compteur php dans page générée par e-anim

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: