Des SUBs en VBS

rem ============================================================================
' Deux SUBs en VBScript
' * IsDate(d$)          pour vérifier la validité d'une date
' * CompareStr(s1$,s2$) pour comparer deux chaînes de caractères
rem ============================================================================
rem                SUB_VBS.BAS Par Papydall
rem ============================================================================
 IsDate("32/02/2014")      : if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("29/02/2016")    : if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("29/02/2014")    : if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("janvier 18,2014"): if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("18 janvier 2014"): if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("01-01-01")      : if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("2014, Février, 10"): if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
' IsDate("18,01,2014")    : if IsDate$ = "True" then message "Date valide" : else : message "Date invalide"
rem ============================================================================
dim s1$,s2$
 s1$ = "PAPYDALL" : s2$ = "PANORAMICIEN"  : ' s1$ > s2$
' s1$ = "Papydall" : s2$ = "panoramicien"  : ' s1$ < s2$
' s1$ = "Papydall" : s2$ = "Papydall"      : ' s1$ = s2$
' s1$ = "123" : s2$ = "2"  : ' s1$ < s2$
CompareStr(s1$,s2$) : message s1$ + " " + CompareStr$ + " " + s2$

end
rem ============================================================================
' Script VBS vérifiant la validité d'une date
' La fonction IsDate(d$) retourne dans la variable chaîne IsDate$ la valeur
' booléenne "True" si le paramètre transmis d$ représente une date valide,
' sinon elle retourne "False"
' Différentes formes de dates sont acceptées
' Exemples d'appel :
' IsDate("32/02/2014")      : ' ---> False
' IsDate("29/02/2016")      : ' ---> True
' IsDate("29/02/2014")      : ' ---> False
' IsDate("janvier 18,2014") : ' ---> True
' IsDate("18 janvier 2014") : ' ---> True
' IsDate("01-01-01")        : ' ---> True
' IsDate("2014, Février, 10"):' ---> True
' IsDate("18,01,2014")      : ' ---> True
rem ============================================================================
SUB IsDate(d$)
    dim_local f$,retour$,g$
    if variable("IsDate$") = 0 then DIM IsDate$
    f$ = "c:\temp\IsDate.vbs" : ' Fichier temporaire contenant le script
    retour$ = "c:\temp\retour.txt" : ' Fichier temporaire contenant le résultat de la fonction
    g$ = chr$(34) : ' caractère guillemet
' Enregistrer le script dans le fichier temporaire f$
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "DIM bValeur,fso,MyFile"  : ' debut du script
    file_writeln 9999, "Set fso = CreateObject("+g$+"Scripting.FileSystemObject"+g$+")"
    file_writeln 9999, "Set MyFile = fso.CreateTextFile("+g$+retour$+g$+", True)"
    file_writeln 9999, "bValeur = IsDate("+g$+d$+g$+")"
    file_writeln 9999, "MyFile.WriteLine(bValeur)"
    file_writeln 9999, "MyFile.Close" : ' Fin du script
    FILE_CLOSE 9999 : ' Fin de l'enregistrement

    EXECUTE_WAIT f$ : ' Exécution du script
    FILE_DELETE f$  : ' supprimer le fichier du script
    file_open_read 9999,retour$ : ' ouvrir le fichier contenant la sortie du script
    file_readln 9999,IsDate$ : ' Recuperer la valeur de la fonction
    file_close 9999 : file_delete retour$ : ' Supprimer le fichier temporaire
END_SUB
rem ============================================================================
' Script VBS comparant deux chaînes de caractères selon l'ordre ASCII
' Cette fonction retourne dans la variable "CompareStr$" un unique caractère :
' ">" si s1$ est supérieure à s2$
' "<" si s1$ est inférieure à s2$
' "=" si les deux chaînes sont identiques.
' Exemples d'appel :
' CompareStr("Papydall","Panoramicien")
' CompareStr("1234","2")
rem ============================================================================
SUB CompareStr(s1$,s2$)
    dim_local f$,retour$,g$
    if variable("CompareStr$") = 0 then DIM CompareStr$
    f$ = "c:\temp\CompareStr.vbs" : ' Fichier temporaire contenant le script
    retour$ = "c:\temp\retour.txt" : ' Fichier temporaire contenant le résultat de la fonction
    g$ = chr$(34) : ' caractère guillemet
' Enregistrer le script dans le fichier temporaire f$
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "DIM c1,c2,result,fso,MyFile"
    file_writeln 9999, "c1 = " + g$ + s1$ + g$
    file_writeln 9999, "c2 = " + g$ + s2$ + g$
    file_writeln 9999, "if c1 > c2 then"
    file_writeln 9999, "result = " + g$ + ">" + g$
    file_writeln 9999, "elseif c1 < c2 then"
    file_writeln 9999, "result = " + g$ + "<" + g$
    file_writeln 9999, "else"
    file_writeln 9999, "result = " + g$ + "=" + g$
    file_writeln 9999, "end if"
    file_writeln 9999, "Set fso = CreateObject("+g$+"Scripting.FileSystemObject"+g$+")"
    file_writeln 9999, "Set MyFile = fso.CreateTextFile("+g$+retour$+g$+", True)"
    file_writeln 9999, "MyFile.WriteLine(result)"
    file_writeln 9999, "MyFile.Close" : ' Fin du script

    FILE_CLOSE 9999 : ' Fin de l'enregistrement

    EXECUTE_WAIT f$ : ' Exécution du script
    FILE_DELETE f$  : ' suppression du fichier du script
    file_open_read 9999,retour$ : ' ouvrir le fichier contenant la sortie du script
    file_readln 9999,compareStr$ : ' Recuperer la valeur de la fonction
    file_close 9999 : file_delete retour$ : ' Supprimer le fichier temporaire
END_SUB
rem ============================================================================