Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 2 sur 3
Aller à la page: <  1, 2, 3  >
[Résolu] Edition de fichier .m3u en spl (samsung format)
Auteur Message
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Revue du message précédent :

je pense que ultradoux souhaite que le batch fonctionne pour n'importe quel nom et qu'il crée un spl avec le meme nom que le nom.m3u
et que cela soit possible en glissant déposant cette liste sur le batch pour l'executer.

Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
C'est justement ce que fait ce code que j'ai déja poster:
Code:
set vrNameM3u=%~n1

echo SPL PLAYLIST> %vrNameM3u%.spl
echo SPL VERSION 1.00>> %vrNameM3u%.spl
echo.>> playlist.spl

 for /f "delims=" %%i in ('type %1') do if not "%%i"=="#EXTM3U" echo %%i>> %vrNameM3u%.spl

echo.>> %vrNameM3u%.spl
echo END PLAYLIST>> %vrNameM3u%.spl


mais un par un pour l'instant




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Il créé toujours le fichier .spl dans C:\Documents and Settings\Ultradoux\ et toujours accompagné d'un fichier playlist.spl inutile Laughing

Il faudrait qu'il soit créé dans le répertoire d'où est exécuté le batch.



Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Citation:
set vrNameM3u=%~n1

echo SPL PLAYLIST> %vrNameM3u%.spl
echo SPL VERSION 1.00>> %vrNameM3u%.spl
echo.>> playlist.spl

for /f "delims=" %%i in ('type %1') do if not "%%i"=="#EXTM3U" echo %%i>> %vrNameM3u%.spl

echo.>> %vrNameM3u%.spl
echo END PLAYLIST>> %vrNameM3u%.spl


J'ai enlevé ça : "echo.>> playlist.spl" : maintenant il ne créé plus le fichier playlist.spl. C'est déjà ça de réglé ^^



Dernière édition par Ultradoux le Sam 11 Oct 2008 - 12:01; édité 1 fois
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Et comme ceci ?

Code:
@echo off & color 1B


set vrNameM3u=%~n1

echo SPL PLAYLIST> "%~dp0%vrNameM3u%.spl"
echo SPL VERSION 1.00>> "%~dp0%vrNameM3u%.spl"
echo.>> playlist.spl

 for /f "delims=" %%i in ('type %1') do if not "%%i"=="#EXTM3U" echo %%i>> "%~dp0%vrNameM3u%.spl"

echo.>> "%~dp0%vrNameM3u%.spl"
echo END PLAYLIST>> "%~dp0%vrNameM3u%.spl"



pause>nul





______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Nickel pour l'emplacement. J'ai cependant enlever "echo.>> playlist.spl" qui ne sert à rien, à part créé un fichier inutile Wink

Ne reste plus qu'a le rendre capable de traiter une liste de .m3u en une seule fois !



Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
remplace:
Code:
echo.>> playlist.spl

par:
Code:
echo.>> "%~dp0%vrNameM3u%.spl"





______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
C'est pour sauter une ligne Wink




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
OK Wink

Par contre je viens de me rendre compte d'une chose. Rajouter seulement le texte n'est pas suffisant, il faut aussi convertir tout le texte du .m3u qui est en ANSI au format "UCS-2 little Endian", sinon la liste .spl ne sera lu comme vide par le lecteur mp3.

Est-ce compliqué ?



Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
La je peut pas t'aider, je pensse pas que se soit possible en batch, demande en VBScript peut être Wink




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Pioufff, quelle galère alors !

Je suis en train de faire un vbs. Tout est bon sauf un détail qui foire tout : le mot "#ETXM3U" à la troisième ligne de chaque fchier .spl créé par script. Vous savez pas par hasard comment on peut supprimer cette ligne ou la remplacer par du vide ? J'ai beau chercher je ne trouve rien !!!



Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Sert toi du bat pour ca Wink Wink Wink




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Ah ouai mais je commence à utiliser 36 fichier différent pour faire mon truc c'est pas terrible Laughing

EDIT : à part s'il y a moyen d'utiliser mon vbs dans un batch, ou le batch dans le vbs.



Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Tu peut générer le vbs avec le bat Wink Wink Wink




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Ca serai bien aussi que tu poste ton vbs




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Code:

Dim Rep 'Nom du répertoire à parcourir
Dim oFSO,oFl
Dim chemin       'Chemin où copier les fichiers
Dim copyto
Dim Nof            'Nom du fichier .m3u
Dim AN             'Fichier ANSI
Dim UTF           'Fichier Unicode
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const ModeAscii = 0, ModeUnicode = -1


chemin = "C:\Documents and Settings\Ultradoux\Bureau\Nouveau dossier\test\"

Rep = "C:\Documents and Settings\Ultradoux\Bureau\Nouveau dossier"

Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(Rep) Then
   For each oFl in  oFSO.GetFolder(Rep).Files
      if Right(oFl.Name,3)="m3u" Then
         Nof = Left(oFl.Name, Len(oFl.Name) - 4) + ".spl"
         copyto = chemin + Nof

         Set AN = oFSO.OpenTextFile(oFl.Name, ForReading,, ModeAscii)
         Set UTF = oFSO.OpenTextFile(copyto, ForWriting, true, ModeUnicode)

         UTF.writeLine "SPL PLAYLIST"
         UTF.writeLine "VERSION 1.00"

         Do until AN.AtEndOfStream       'copie chaque ligne du fichier ANSI, pour les convertir en UNICODE
            UTF.Write AN.Read(1)
         Loop

         With UTF
            .writeLine ""
            .writeLine ""
            .writeLine "END PLAYLIST"
         End With
   
      End If
   Next
End If


Là, mon code permet de trouver tous les fichiers .m3u d'un dossier, et de les copier dans un autre, en changeant l'extension qui devient .spl, et le format qui devient unicode. Il rajoute aussi les lignes en début de fichier :
"SPL PLAYLIST
VERSION 1.00"

et à la fin du fichier :

"END PLAYLIST"




Apparemment on peutappeler un batch :

Code:
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Exec "d:\today\0412\imprimer.bat"


T'aurais pas le code qui va bien pour enlever ce #EXTM3U" à chaque 3ème ligne de mes fichiers Very Happy ?



Répondre en citant
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 
Si non dans ton vbs pour ne pas copier la ligne #ETXM3U tu test si la ligne est égal à #ETXM3U si oui tu copie pas si non tu copie Wink Wink




______________________________________________________
Mes scripts | Redimentionnez vos image en ligne| Mes photos
Visiter le site web du posteur
Message [Résolu] Edition de fichier .m3u en spl (samsung format) 


Montrer les messages depuis:
Répondre au sujet Page 2 sur 3
Aller à la page: <  1, 2, 3  >
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch