[VBS]Question sur script et fichier

Version imprimable

Bonjour,

j'ai trouvé ceci sur un forum (conversion ansi vers utf):
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 Const adTypeBinary = 1 Const adTypeText = 2 Const bOverwrite = True Const bAsASCII = False Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" ) Dim sFFSpec : sFFSpec = oFS.GetAbsolutePathName( "fic.txt" ) Dim sTFSpec : sTFSpec = oFS.GetAbsolutePathName( "fic.new.txt" ) Dim oFrom : Set oFrom = CreateObject( "ADODB.Stream" ) Dim sFrom : sFrom = "Windows-1252" Dim oTo : Set oTo = CreateObject( "ADODB.Stream" ) Dim sTo : sTo = "utf-8" If oFS.FileExists( sTFSpec ) Then oFS.DeleteFile sTFSpec oFrom.Type = adTypeText oFrom.Charset = sFrom oFrom.Open oFrom.LoadFromFile sFFSpec oTo.Type = adTypeText oTo.Charset = sTo oTo.Open oTo.WriteText oFrom.ReadText oTo.SaveToFile sTFSpec oFrom.Close oTo.Close
Le petit changement qu'il me faudrais c'est ne pas saisir le nom du fichier dans le code, mais prendre celui du fichier (ou des fichiers) que je glisse sur le vbs?
Et aussi avoir une "variable" pour le nom de destination qui soit le nom d'origine avec .new et l'extension d'origine (comme dans mon example).

J'espère avoir été clair dans ma demande :calim2:

Merci par avance.

P.S: désolé pour cette grosse question de noob m'ais je n'y connais rien en vbs :oops: :oops:

23/01/2013, 15h31
omen999
bonjour,

Citation:

Le petit changement qu'il me faudrais c'est ne pas saisir le nom du fichier dans le code, mais prendre celui du fichier (ou des fichiers) que je glisse sur le vbs?

:koi:
je suppose que tu veux que l'utilisateur puisse sélectionner un fichier quelconque, alors c'est ici
exemple :
Code:

1 2 3 sFic=GetFileNameDlg() pp=InStrRev(sFic,".") sNewFic=Left(sFic,pp) & "new" & Mid(sFic,pp)
23/01/2013, 16h09
ozzii

Heu.... ont s'est pas compris.
C'est plutôt quelque chose comme "FilesToProcess()" et une boucle "For Each file in FilesToProcess" qu'il me faut (d'après ce que j'ai pus voir).

Actuellement le vbs n'est valable que pour un fichier.
Moi j'aimerais qu'il fonctionne avec n'importe quel fichier fichier avec un appel en batch du genre :

Code:

c:\windows\system32\cscript.exe traitement.vbs "%%a"

Petite mise au point ; dans le nom du fichier je peut avoir des points. Par exemple : fic.numero.un.txt

si sDataFichier est le contenu d'un fichier listant ligne par ligne le nom des fichiers à traiter :
(marche aussi si sDataFichier est un tableau)
Code:

1 2 3 4 5 6 7 8 9 Dim FilesToProcess 'FilesToProcess=Array("fic12.numero.un.txt","fic12.numero.deux.txt","fic12.numero.trois.txt") sDataFichier="fic12.numero.un.txt"&vbCrLf&"fic12.numero.deux.txt"&vbCrLf&"fic12.numero.trois.txt" FilesToProcess=Split(sDataFichier,vbCrLf) For Each sfile In FilesToProcess pp=InStrRev(sfile,".") sNewfile=Left(sfile,pp) & "new" & Mid(sfile,pp) msgbox sNewfile Next
Citation:

Petite mise au point ; dans le nom du fichier je peut avoir des points. Par exemple : fic.numero.un.txt

j'en avais tenu compte d'où le InStrRev

Purée, ça se vois que j'y connais rien.....
Non, pas de tableau ni de fichier avec le nom des fichiers à traiter.

Voici un vbs que j'utilise (pas de moi bien sur) qui fait ce qu'il me faut comme boucle sur les fichiers :

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Dim Extensions        ' Extensions of the files to be processed
Dim FilesToProcess()  ' Files to be processed
Dim PatternsNoTag
 
PatternsNoTag = Array(Array("<.*?>", ""))
 
Extensions=""\.txt|\.nfo""
 
Set objArgs = WScript.Arguments
 
i = 0
j = 0
 
Set objRE = New RegExp
objRE.IgnoreCase = True
objRE.Pattern = Extensions
 
Set reTags = New RegExp
reTags.Global  = True
 
' See what file we need to process
ReDim FilesToProcess(WScript.Arguments.Count - 1)
Do While i <= WScript.Arguments.Count - 1
    arg = WScript.Arguments.Item(i)
 
    Set Matches = objRE.Execute(arg)
 
    For Each Match In Matches
        If Match.firstIndex > 0 Then
            FilesToProcess(j) = arg
            j = j + 1
        End If
    Next
 
    i = i+ 1
Loop
 
' Make a backup (named after the filename + ".bak") 
For Each file in FilesToProcess
    If StrComp(file, "") <> 0 Then
        Set objInputFSO   = CreateObject("Scripting.FileSystemObject")
        objInputFSO.CopyFile file, file & ".bak"
        objInputFSO.DeleteFile file, True
    End If
Next
 
 
' Open each file and process it
For Each file in FilesToProcess
    If StrComp(file, "") <> 0 Then
 
        fileName = objRE.Replace(file, "")
 
        'Input Files
        Set objInputFSO   = CreateObject("Scripting.FileSystemObject")
        Set objInputFile  = objInputFSO.OpenTextFile(file & ".bak")
 
		'Out Files
        Set objOutputFSO  = CreateObject("Scripting.FileSystemObject")
        Set objOutputFileNoTag = objOutputFSO.CreateTextFile(file)
 
		content = objInputFile.ReadAll
		line = Split(content, vbCrLf)
		fin = UBound(line)-1
 
		For cpt = 0 To fin
			outputLineNoTag = line(cpt)
			For Each Pattern In PatternsNoTag
				reTags.Pattern = Pattern(0)
                outputLineNoTag = reTags.Replace(outputLineNoTag, Pattern(1))
            Next
			objOutputFileNoTag.WriteLine(outputLineNoTag)
		Next
		objInputFile.Close
		objInputFSO.DeleteFile file & ".bak", True
    End If
Next

J'ai essayé de l'adapter pour mes besoins mais je n'ai pas réussi :cry:
D'où ma demande d'aide.
En tout cas, merci omen999 pour la prise en compte de ma demande.