Bonjour, je me suis fait un script qui nettoie le fichier.sql de sauvegarde de ma base de données de mon forum mysql, je vous explique: j'ai voulu transféré mon forum sur un autre hébergeur, j'ai donc mi les fichiers du forum, puis j'ai essayer de restaurer ma base de données, mais il y avait plein d'erreurs, par exemple:
1 - le version de phpmyadmin de mon premier hébergeurs ajouter "DEFAULT CHARSET=latin1" dans les requette, et la version de phpmyadmin de nouvelle hébergeur ne comprenait pas alors le script supprime
2 - je copie sur mon forum des script .bat don les accent son convertit en oem, alors le script converti en ansi
3 - le caratére d'echapement n'est pas le même alors le script le remplace

j'ai donc fait un script vbs parceque ce n'est pas possible en batch, mais j'ai apris que le vbs va disparaitre dans les versions avenir de windows, alors que j'aurai toujour besoin de se script, je voulai donc savoir quel language serai asser simple mais qui sera toujour dans windows ?

voici le vbs actuel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
set WshShell = WScript.CreateObject("WScript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject")

DesktopPath = WSHShell.SpecialFolders("Desktop")

'''''''''''''''''''''''''''''''''''''''''''''''''
' On ouvre la boite de dialogue pour selectionner le fichier à comparer:

set objDialog = CreateObject("SafrcFileDlg.FileOpen") 
objDialog.OpenFileOpenDlg 
vrFchSlctn = objDialog.FileName
'wscript.echo objDialog.FileName 
'''''''''''''''''''''''''''''''''''''''''''''''''


Set objSourceFile = FSO.OpenTextFile(objDialog.FileName, 1)
 Do Until objSourceFile.AtEndOfStream
    vrLigne = vrLigne & vbCrLf & objSourceFile.ReadLine	
 Loop
objSourceFile.Close

' On converti les caractére OEM ver ANSI:
vrLigne = Replace(vrLigne,"…","à" )
vrLigne = Replace(vrLigne,"„","ä" )
vrLigne = Replace(vrLigne,"Ž","Ä" )
vrLigne = Replace(vrLigne,"ƒ","â" )
vrLigne = Replace(vrLigne,"¶","Â" )
vrLigne = Replace(vrLigne,"—","ù" )
vrLigne = Replace(vrLigne,"–","û" )
vrLigne = Replace(vrLigne,"ê","Û" )
vrLigne = Replace(vrLigne,"","ü" )
vrLigne = Replace(vrLigne,"š","Ü" )
vrLigne = Replace(vrLigne,"‚","é" )
vrLigne = Replace(vrLigne,"Š","è" )
vrLigne = Replace(vrLigne,"Œ","î" )
vrLigne = Replace(vrLigne,"×","Î" )
vrLigne = Replace(vrLigne,"‹","ï" )
vrLigne = Replace(vrLigne,"Ø","Ï" )
vrLigne = Replace(vrLigne,"ˆ","ê" )
vrLigne = Replace(vrLigne,"Ò","Ê" )
vrLigne = Replace(vrLigne,"‰","ë" )
vrLigne = Replace(vrLigne,"Ó","Ë" )
vrLigne = Replace(vrLigne,"˜","ÿ" )
vrLigne = Replace(vrLigne,"“","ô" )
vrLigne = Replace(vrLigne,"â","Ô" )
vrLigne = Replace(vrLigne,"”","ö" )
vrLigne = Replace(vrLigne,"™","Ö" )

' On ajoute le caractére d'échapement devant les apostrophe qui font parie du texte et non du code:
vrLigne = Replace(vrLigne,"\'","''" )

' On supprime ce que les version recente de PhpMyAdmin ajoute et que les ancinne version ne comprenent pas:
' http://127.0.0.1/KooKaTix_Forum/viewtopic.php?t=55
' http://lesite/forum1/lire.php?id=96319
vrLigne = Replace(vrLigne,"DEFAULT CHARSET=latin1","") 
vrLigne = Replace(vrLigne,"character set latin1 collate latin1_bin","") 


Const ForReading = 1, ForWriting = 2 
  Set FichierTXT = WScript.CreateObject("WScript.Shell") 
   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set f = fso.OpenTextFile(DesktopPath & "\base mysql netoyer.sql", ForWriting,true) 
   f.writeline(vrLigne) 
f.close


msgbox "Netoyage du fichier .sql terminé"