Modification ancien fichier .vbs Win11 64bits !

Version imprimable

Bonjour à toutes et à tous,

J'aimerai modifier ce code pour charger un fichier texte avec déjà les dates par défaut que l'on pourra modifier suivant les années plutôt que de les renseigner en dur dans le code (t).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Dim lecture Set lecture=CreateObject("sapi.spvoice") lecture.rate=1 lecture.volume = 100 'Pour 2025 dim MesDate(12),TheMois For t = 1 to 12 select case t Case 11: MesDate(t) = DateSerial(2025,int(t),21) Case 1,2,3,7,10: MesDate(t) = DateSerial(2025,int(t),24) case 8: MesDate(t) = DateSerial(2025,int(t),22) case 4,5,6: MesDate(t) = DateSerial(2025,int(t),23) Case 12: MesDate(t) = DateSerial(2025,int(t),19) end select next 'exemple d'utilisation pour le mois en cours TheMois = Month(Now) lecture.speak "Plus que " & DateDiff("d",now,MesDate(TheMois)) & " Jours" & vbCrlf & " Avant de toucher ma pension"
Fichier texte que l'on pourra modifier :

Citation:

Janvier 24/01/2025

Février 24/02/2025

Mars 24/03/2025

Avril 23/04/2025

Mai 23/05/2025 + Congés payé

Juin 23/06/2025

Juillet 24/07/2025

Août 22/08/2025

Septembre 23/09/2025

Octobre 24/10/2025

Novembre 21/11/2025

Décembre 19/12/2025

Et enfin pour le mois de mai ajouter ceci "Avant de toucher ma pension et mes congés payés".

En vous remerciant d'avance,

@+,

cincap

Salut

Je simplifiais le fichier .TXT comme ceci

Citation:

Envoyé par Data.txt

24/01/2025
24/02/2025
24/03/2025
23/04/2025
23/05/2025
23/06/2025
24/07/2025
22/08/2025
23/09/2025
24/10/2025
21/11/2025
19/12/2025

et le code pourrait être

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Function RecupFichier(CheminNomDuFIchier)
	Dim oFso, f
	Set oFso = CreateObject("Scripting.FileSystemObject")
	 'Ouverture et lecture et découpe par ligne du fichier
	Set f = oFso.OpenTextFile(CheminNomDuFIchier, 1)
        'recuperation d'un tableau de x lignes
        RecupFichier = split(f.ReadAll,vbnewline)
        f.close
        set f = nothing
        set oFso = nothing
End Function
 
 
Dim lecture, MesDate, FinCommentaire, TheMois
 
 
MesDate = RecupFichier("C:\MesProgs\En VBScript et HTA\Lire fichier sortie tableau de lignes\Data.txt")
 
if Month(Now)=5 then
        FinCommentaire = " Avant de toucher ma pension et mes congé payé"
        else
        FinCommentaire = " Avant de toucher ma pension"
end if
 
'exemple d'utilisation pour le mois en cours
' - 1 car l'index du tableau commence à 0 et fini à 11
TheMois = Month(Now) -1
 
Set lecture=CreateObject("sapi.spvoice")
 
lecture.rate=-2
lecture.volume = 100
lecture.speak "Plus que " & DateDiff("d",now,MesDate(TheMois)) & " Jours"  & FinCommentaire

11/05/2025, 14h01
cincap

@ ProgElecT, Bonjour et merci à nouveau tu es un as cela fonctionne correctement et génial avec le fichier texte à charger.

J'ai eu juste un petit bémol de prononciation avec la phrase "Avant de toucher ma pension et mes congé payé", j'ai du créer le fichier .vbs en "ANSI" plutôt qu'en UTF sinon "et mes congés payés" était du charabia.

Topic résolut rapidement.

Bon dimanche.

@+,

cincap
13/05/2025, 06h04
cincap

Bonjour à toutes et à tous,

Juste une question à propos de ce code, serait t'il possible uniquement de formater le fichier "data.txt" comme ceci :

Citation:

01.2025=24
02.2025=24
03.2025=24
04.2025=23
05.2025=23
06.2025=23
07.2025=24
08.2025=22
09.2025=23
10.2025=24
11.2025=21
12.2025=19

C'est pour un autre test donc pas important si non faisable.

@+,

cincap
13/05/2025, 09h07
ProgElecT

Salut

Citation:

Envoyé par cincap

Bonjour ....
serait t'il possible uniquement de formater le fichier "data.txt" comme ceci ....

Oui bien sûr, mais il serait intéressant de savoir ce que tu vas en extraire par la suite.
13/05/2025, 11h09
cincap

@ ProgElecT merci de ta réponse.

En ce qui concerne le fichier .vbs déjà correct cela reste le même principe sauf que le fichier Data doit être formaté comme écrit.

Si le fichier .vbs fonctionne avec la modification du format, je réaliserai en Delphi une autre application en ajoutant un troisième message le jour J soit 0 " Youppie on a le payement "

Je sais que c'est beaucoup pour rien.

Si ce n'est pas faisable pas grave.

@+,

cincap

Salut (re)

Donc le contenu du fichier Data.txt est

Citation:

01.2025=24
02.2025=24
03.2025=24
04.2025=23
05.2025=23
06.2025=23
07.2025=24
08.2025=22
09.2025=23
10.2025=24
11.2025=21
12.2025=19

et le nouveau code est

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Function RecupFichier(CheminNomDuFIchier)
	Dim oFso, f
	Set oFso = CreateObject("Scripting.FileSystemObject")
	 'Ouverture et lecture et découpe par ligne du fichier
	Set f = oFso.OpenTextFile(CheminNomDuFIchier, 1)
        'recuperation d'un tableau de x lignes
        RecupFichier = split(f.ReadAll,vbnewline)
        f.close
        set f = nothing
        set oFso = nothing
End Function
 
 
Dim lecture, MesDate(12), FinCommentaire, TheMois, TblDates
 
 
TblDates = RecupFichier("C:\MesProgs\En VBScript et HTA\Lire fichier sortie tableau de lignes\Data.txt")
' la variable tableau TblDates() contient chaque lignes du fichier idx 0 à 11
 
 
'reconstitution de la variable tableau de dates pour la sortie parlée "sapi.spvoice"
for T=0 to 11
        MesDate(T) = right(TblDates(T),2)
        MesDate(T) = MesDate(T) & "/" & left(TblDates(T),7)
        MesDate(T) = replace(MesDate(T),".","/")
        MesDate(T) = Cdate(MesDate(T))
next
 
 
 
 
 
if Month(Now)=5 then
        FinCommentaire = " Avant de toucher ma pension et mes congé payé"
        else
        FinCommentaire = " Avant de toucher ma pension"
end if
 
'exemple d'utilisation pour le mois en cours
' - 1 car l'index du tableau commence à 0 et fini à 11
TheMois = Month(Now) -1
 
Set lecture=CreateObject("sapi.spvoice")
 
lecture.rate=-2
lecture.volume = 100
lecture.speak "Plus que " & DateDiff("d",now,MesDate(TheMois)) & " Jours"  & FinCommentaire

La nouveauté est entre les ligne 15 à 28

13/05/2025, 16h09
umfred

Citation:

Envoyé par cincap

Si le fichier .vbs fonctionne avec la modification du format, je réaliserai en Delphi une autre application en ajoutant un troisième message le jour J soit 0 " Youppie on a le payement "

Pourquoi vouloir faire et un script vbs et un soft Delphi; pourquoi ne pas tout faire soit en delphi soit en vbs ? (surtout qu'il s'agit juste de rajouter un simple test)
14/05/2025, 06h17
cincap

Bonjour à toutes et à tous.

@ umfred,

Citation:

Pourquoi vouloir faire et un script vbs et un soft Delphi; pourquoi ne pas tout faire soit en delphi soit en vbs ? (surtout qu'il s'agit juste de rajouter un simple test)

Tout simplement qu'avec Delphi l'interface sera plus beau et à mon âge, cela me fait du bien de connaitre toutes les solutions pour arriver au même résultat d'autant que le fichier Data.txt est utilisé pour l'application Delphi.

@ ProgElecT, cela fonctionne correctement c'est fou ce que j'ai appris en vbs depuis que je te connais, merci pour toutes tes solutions.

Merci à tous qui collaborent à rendre service.

@+,

cincap
23/05/2025, 05h45
cincap

Pour ne pas relancer un autre topic !

Bonjour à toutes et à tous,

Dans l'excellent code proposé par ProgElecT serait t'il possible dans le calcul quand le jour défini = 0 de dire " Youppie on a perçut la pension".

Je pensais en utilisant le case mais en .vbs:

Citation:

case CompareDate(Next, Date) of

-1 FinCommentaire = " Avant de toucher ma pension et mes congés payés"

0 FinCommentaire = " Youppie on a perçut la pension"

1 FinCommentaire = " Avant de toucher ma pension"

end;

Merci d'avance,

@+,

cincap