 |
|
| Voir le sujet précédent :: Voir le sujet suivant |
| Auteur |
Message |
ShadesOfGray
Postulant

H/F:  Inscrit le: 27 Juin 2008 Age: 27 Messages: 8 Localisation: oui
|
|
Vous en avez marre d'avoir a charger chacun des episodes un a un de vos sagas preferees dans votre logiciel de musique?
Vous aimez les defis, les risques, et les bidouillages?
Faites vos propres listes de lecture avec ce petit script:
| Code: |
On Error Resume Next
Dim fso, folder, files, NewsFile, sFolder
Dim filearray()
sFolder = Wscript.Arguments.Item(0)
If sFolder = "" Then
Wscript.Echo "vous devez glisser un dossier sur le fichier de script"
Wscript.Quit
End If
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFile = fso.CreateTextFile(sFolder + ".m3u", True)
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files
i=-1
For each folderIdx In files
i = i +1
ReDim Preserve filearray(i)
filearray(i)= folderIdx.Name
Next
For i = (UBound(filearray) - 1) to 0 Step -1
For j= 0 to i
If UCase(filearray(j)) > UCase(filearray(j+1)) Then
strHolder = filearray(j+1)
filearray(j+1) = filearray(j)
filearray(j) = strHolder
End If
Next
Next
For Each arrayElement In filearray
NewFile.WriteLine(sFolder + "\" + arrayElement)
next
NewFile.Close |
Vous n'avez qu'a placer vos series dans des dossiers separes, ensuite, vous copiez/collez ce script dans un fichier que vous nommez (quelquechose).vbs (si vous le faites avec le bloc note, il faut mettre des guillemets au debut et a la fin du fichier pour avoir l'extension vbs, sinon il le nomme quelquechose).vbs.txt, et ca, il faut pas)
ensuite, vous glissez le dossier de votre saga, et hop! vous vous retrouvez avec un fichier nomme (votresaga).m3u
facon conseillee de placer vos fichiers avec ce script:
-dossier "sagas"
---truc.vbs
---dossier "lasagadeshades"
-----episode1.mp3
-----episode2.mp3
---dossier "lasagadequelqu'und'autre"
-----episode1.mp3
-----episode2.mp3
-----episodex.mp3
petit p.s.: je n'avais aucune idee de l'endroit ideal pour ecrire ceci, donc si un moderateur croit qu'un autre endroit serait plus approprie... _________________ Des fois,
j'ai peur un peu des fois,
j'ai peur beaucoup des fois,
mais des fois je nai pas peur du tout! |
|
| Revenir en haut de page |
|
 |
Shay
Recrue


H/F: non renseigné Inscrit le: 06 Aoû 2007 Age: 23 Messages: 65
|
|
Oo
Euhh...
Ou sinon on utilise un logiciel intelligent genre winamp qui gère super bien les dossiers, les albums et les listes ...
Je ne sais pas pour les autres lecteurs, mais sous winamp, tu sélectionne tes fichiers (un simple trait de sélection), clic droit > nouvelle liste, et dans les listes, exporter et hop, ça passe en m3u. |
|
| Revenir en haut de page |
|
 |
Kak Miortvi Pengvin
Neto-Rédacteur


H/F:  Inscrit le: 21 Jan 2007 Age: 21 Messages: 1336 Localisation: Entre mes deux oreilles.
|
|
Pareil que pour Shay, iTunes est capable de maintenir une bibliothèque de fichiers ordonnées sans que l'utilisateur ne fasse quoi que ce soit. Ensuite, il y les listes de lectures et les listes de lectures intelligentes...
Sinon, je n'ai pas compris le réel intérêt de ce morceau de code. Car si on doit ajouter un épisode, il faut refaire la liste non?
Sinon, je verrai bien ça dans les questions réponses de la section info du forum... _________________
|
|
| Revenir en haut de page |
|
 |
Blast
Administrateur


H/F:  Inscrit le: 02 Jan 2007 Age: 42 Messages: 3855 Localisation: Bruxelles
A travaillé sur :
|
|
| En guise de question, Kak Miortvi Pengvin a écrit: |
| Sinon, je n'ai pas compris le réel intérêt de ce morceau de code. |
| En guise de réponse, ShadesOfGray a écrit: |
| Vous aimez les defis, les risques, et les bidouillages? |
| Kak Miortvi Pengvin a écrit: |
| Sinon, je verrai bien ça dans les questions réponses de la section info du forum... |
Je vais l'y transferer de ce pas. _________________
 |
|
| Revenir en haut de page |
|
 |
ShadesOfGray
Postulant

H/F:  Inscrit le: 27 Juin 2008 Age: 27 Messages: 8 Localisation: oui
|
|
Shay: je sais, mais mon pc est de plus en plus vieillot par rapport avec winamp (et de toute facon, je prefere media player classic)
Kak Miortvi Pengvin: L'interet, c'est que si on modifie le dossier, on a qu'a le re-glisser sur le fichier de script, et il refait lui-meme la liste, comme un grand. J'avais oublie de dire qu'il la placait en ordre alphabetique... c'est mieux comme ca, non?
A bas l'empire bipolistique (c'est comme monopolistique mais a deux) de winamp et iTunes! _________________ Des fois,
j'ai peur un peu des fois,
j'ai peur beaucoup des fois,
mais des fois je nai pas peur du tout! |
|
| Revenir en haut de page |
|
 |
Sculderoy
Créateur


H/F:  Inscrit le: 15 Jan 2007 Age: 19 Messages: 1653 Localisation: Bordeaux
A travaillé sur : Skull 13
|
|
Tu l'as codé toi même ce script VB.NET ? . Faudrait que je m'y remette
parce que là je comprends rien... _________________
 |
|
| Revenir en haut de page |
|
 |
Kak Miortvi Pengvin
Neto-Rédacteur


H/F:  Inscrit le: 21 Jan 2007 Age: 21 Messages: 1336 Localisation: Entre mes deux oreilles.
|
|
| ShadesOfGray a écrit: |
| Kak Miortvi Pengvin: L'interet, c'est que si on modifie le dossier, on a qu'a le re-glisser sur le fichier de script, et il refait lui-meme la liste, comme un grand. J'avais oublie de dire qu'il la placait en ordre alphabetique... c'est mieux comme ca, non? |
C'est un poil mieux mais bon... Et côté gestion des fichiers, ça se passe comment? Il faut que les noms soient formatés d'une certaine façon pour les avoir dans l'ordre de parution? (question peut être idiote mais il y a des fois où les noms des .mp3 sont obscurs et les tags pas très clairs...)
| ShadesOfGray a écrit: |
| A bas l'empire bipolistique (c'est comme monopolistique mais a deux) de winamp et iTunes! |
Je dirai rien parce que tu préfères le Windows Media Player hein... (je peux t'expliquer pourquoi je préfère iTunes mais ça sera par mp parce que ça serait du hs total ici) _________________
|
|
| Revenir en haut de page |
|
 |
ShadesOfGray
Postulant

H/F:  Inscrit le: 27 Juin 2008 Age: 27 Messages: 8 Localisation: oui
|
|
Sculderoy: c'est un script a 90% a moi (en gros, ce que j'ai pas fait moi-meme j'ai eu a le modifier a partir de trucs du domaine public)
ps: c'est pas du .net, c'est du vbs (on a sa fierte quand meme )
Kak Miortvi Pengvin: pour l'ordre, c'est l'ordre alphabetique pur et dur (selon la table ascii, donc les chiffres sont avant les lettres) mais je suis en train d'essayer de trouver une methode pour extraire le numero de l'episode du nom du fichier (et de les placer a partir de ca)
| Kak Miortvi Pengvin a écrit: |
| Windows Media Player |
_________________ Des fois,
j'ai peur un peu des fois,
j'ai peur beaucoup des fois,
mais des fois je nai pas peur du tout! |
|
| Revenir en haut de page |
|
 |
Kak Miortvi Pengvin
Neto-Rédacteur


H/F:  Inscrit le: 21 Jan 2007 Age: 21 Messages: 1336 Localisation: Entre mes deux oreilles.
|
|
Toutes mes excuses... _________________
|
|
| Revenir en haut de page |
|
 |
benji78
Postulant


H/F:  Inscrit le: 27 Aoû 2007 Age: 18 Messages: 34 Localisation: Saint Quentin en Yvelines- Montingy le bretonneux
|
|
Salut, je ne comprend pas trop de se qu'on fera du code tel quel, pourquoi ne créerais-tu pas une application, avec ton code directement intégré à celle-ci ?
Sinon pour extraire des informations d'un fichier procède comme ceci :
Private Const DOSSIER_SAGA As String = "C:\" & _
"Documents and Settings\Benjamin\Mes documents\Saga MP3"
Private ListeFormats() As String = {".WAV", ".WMA", ".OGG", ".MP3"} 'etc...
Private Sub ExplorerDossier(ByVal NomDossier As String)
Dim ListeFichiers() As String = Directory.GetFiles(NomDossier)
Dim DesignationFichier As String
Dim Format As String
For Each DesignationFichier In ListeFichiers
Format = Path.GetExtension(DesignationFichier).ToUpper
If Array.IndexOf(ListeFormats, Format) < 0 Then Continue For
Dim ListViewItem As New ListViewItem()
LVI.Text = DesignationFichier. _
Substring(DOSSIER_IMAGES.Length + 1)
lvImages.Items.Add(ListViewItem)
Dim ListeSousDossiers As String() = _
Directory.GetDirectories(NomDossier)
Dim SousDossier As String
For Each SousDossier In ListeSousDossiers
ExplorerDossier(SousDossier)
Next
End Sub
Avec ceci tu devrais avoir le gros, j'espère que ça t'a aidé.
a++ _________________ Si la violence de résoud pas tous tes problèmes, c'est que tu ne frappes pas assez fort.
Lorsque Grenth s'étire Melandru tire. (->GW) |
|
| Revenir en haut de page |
|
 |
ShadesOfGray
Postulant

H/F:  Inscrit le: 27 Juin 2008 Age: 27 Messages: 8 Localisation: oui
|
|
Sauf que ton code, c'est du .net, non? Mon code, c'est du vbs, donc on n'a pas a le compiler, ni a ouvrir un gui... et ca fonctionne avec tout windows equippe du Microsoft scripting engine (dont pratiquement tous les windows sont equippes)
Le code tel quel, on n'a qu'a glisser le dossier dessus pour avoir la liste des fichiers du dossier dans un fichier m3u... Mais j'avoue que d'inclure seulement les fichiers avec certaines extensions serait efficace. _________________ Des fois,
j'ai peur un peu des fois,
j'ai peur beaucoup des fois,
mais des fois je nai pas peur du tout! |
|
| Revenir en haut de page |
|
 |
Sculderoy
Créateur


H/F:  Inscrit le: 15 Jan 2007 Age: 19 Messages: 1653 Localisation: Bordeaux
A travaillé sur : Skull 13
|
|
| Citation: |
| c'est du vbs (on a sa fierte quand meme ) |
Ça ressemble quand même franchement a du .NET  _________________
 |
|
| Revenir en haut de page |
|
 |
|
|
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
|
|