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é" |
