Conversion vers HTML

' cvt en html sauf ligatures e
function cvhtml(a)
dim s
s = a
s = replace(s, "&", "&")
s = replace(s, "é", "é")
s = replace(s, "ó", "ó")
s = replace(s, "ú", "ú")
s = replace(s, "à", "à")
s = replace(s, "è", "è")
s = replace(s, "ù", "ù")
s = replace(s, "Á", "Á")
s = replace(s, "É", "É")
s = replace(s, "Ó", "Ó")
s = replace(s, "À", "À")
s = replace(s, "ê", "ê")
s = replace(s, "î", "î")
s = replace(s, "ô", "ô")
s = replace(s, "û", "û")
s = replace(s, "ç", "ç")
s = replace(s, "ë", "ë")
s = replace(s, "ï", "ï")
s = replace(s, "ö", "ö")
s = replace(s, "ü", "ü")
s = replace(s, "Ö", "Ö")
cvhtml = s & "<br>"
end function

Décomposer un spoule

Pour convertir un spoule :
1. importer le spoule dans Calc / toute la ligne doit tenir dans une cellule
2. Insérer une ligne de titre
3. dans la ligne de titre (et pour chq colonne) mettre le nb de car représentant la colonne
4. en B2 mettre =SUPPRESPACE(SUBSTITUE(STXT(A2;1;B$1);CAR(160);"")) et répliquer sur toute la hauteur
5. en C2 mettre =SUPPRESPACE(SUBSTITUE(STXT($A2;SOMME($B$1:B$1)+1;C$1);CAR(160);"")) et répliquer sur toute la hauteur
6. répliquer la colonne C (exceptée la lig de titre) pour chaque colonne désirée

Renommer des .mp3

le but: renommer des fichiers .mp3 en nn - titre.mp3 en allant chercher nn et le titre dans les tags mp3.
ça marche bien sous XP sp2, ailleurs j'ai pas testé.

le code:

option explicit
const kTrack = 19
const kTitre = 10

const Test = 0 ' si 0, les changements sont apportés aux fichiers

dim output: output = ""
dim nl: nl = ""
sub print(s)
output = output & nl:output = output & s:nl = vbLF
end sub
sub EOP
wscript.echo output: output = "": nl = ""
end sub

dim objShell: Set objShell = CreateObject ("Shell.Application")
dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
dim objFolder
dim objFile
dim objArgs

dim NomDuDossier
dim NomDuFichier
dim NouveauNom
dim i
dim Dossier
dim TrackNum
dim Titre

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
    Dossier = objArgs(I)
    Set objFolder = objShell.Namespace(Dossier)
    for each NomDuFichier in objFolder.Items
        if ucase(mid(NomDuFichier, len(NomDuFichier)-3, 4)) = ".MP3" then
            TrackNum = objFolder.GetDetailsOf(NomDuFichier, kTrack)
            Titre = objFolder.GetDetailsOf(NomDuFichier, kTitre)
            if len(TrackNum) < 2 then TrackNum = "0" & TrackNum
            NouveauNom = TrackNum & " - " & Titre & ".mp3"
            NouveauNom = Replace(Replace(NouveauNom, "\", "_"), "/", "-")
            NouveauNom = Replace(Replace(NouveauNom, "<", "_"), ">", "_")
            NouveauNom = Replace(Replace(NouveauNom, "?", "_"), "*", "_")
            NouveauNom = Replace(Replace(NouveauNom, ":", "_"), "|", "_")
            NouveauNom = Replace(NouveauNom, """", "''")
            if Test = 1 then
                print "ren """ & NomDuFichier & """ """ & NouveauNom & """"
            else
                set objFile = objFSO.GetFile(Dossier & "\" & NomDuFichier)
                on error resume next
                objFile.Name = NouveauNom
                if err <> 0 then
                    err = 0
                    print NomDuFichier & " non changé :-("
                else
                    print Dossier & "\" & NomDuFichier & " => " & NouveauNom
                end if
                on error goto 0
                set objFile = nothing
            end if
        end if
    next
    EOP
    Set objFolder = nothing
Next

Lister la musique

option explicit
dim objfolder, fout
dim s
Set objFolder = CreateObject("Shell.Application").Namespace("C:\MyMusic")
set fout = CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\MyMusic.txt", true, true)

For Each s in objFolder.Items
    if s <> "" and left(s, 1) <> "." and left(s, 1) <> "~" and s <> "My Playlists" then fout.WriteLine s
Next

fout.Close
set fout = Nothing
set objFolder = Nothing
wscript.Echo "Done!"

Ouelcome

Et voilà !
Nouveaux murs, nouveau décor...

Bienvenue dans mon nouveau chez moi :-)