Discussion :

[koKoTis]

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

[shawn12]

j'ai apris que le vbs va disparaitre dans les versions avenir de windows

Par curiosité, peux-tu citer tes sources ??

Sinon, n'importe quel langage compilé te permettra de faire ceci : C, C++, Java, etc, etc...

[koKoTis]

salut

on me la dit plusieurs foi mais je sais plus ou

quel language serait le plus simple ?

[shawn12]

Tout dépend quels sont les langages que tu connais le mieux.

[koKoTis]

je ne connait que bat et un peut vbs

[shawn12]

A mon avis, vbs convient très bien pour l'instant (je n'ai jamais entendu parler de disparition, de plus les vbs fonctionnent aussi sous Vista).

Comme langages les plus faciles à apprendre sachant que tu connais vbs : Visual Basic.
Sinon, tu a aussi le langage C.

[koKoTis]

ok merci

tu n'aurai pas en exemple en visual basic ?

[shawn12]

Va faire un tour par ici : http://vb.developpez.com/ et par là : http://vb.developpez.com/vbsources/

[koKoTis]

ok merci