Je dois remplacer plusieures séquences de caractères dans un gros
fichier (environ 4 Go et non du txt du pcl je crois).
J'ai la liste des séquences a remplacer (pas de même longueur):
remplacer 1B266C3048 par 1B266C3148
remplacer 1B266C30531B2A70383878373259 par
11B266C307334481B2A70383878373259
remplacer 1B266C30531B2A7038387831323159 par
1B266C307334481B2A7038387831323159
J'ai pensé a l'objet "ADODB.Stream" (c'est une première pour moi) mais
je ne sais pas comment ré ecrire dans mon fichier de sortie avec la
nouvelle valeur de ma séquence de 10 caractères (pour le premier
remplacement).
Il existe peut être une sorte de fonction replace ?
Voici mon ébauche de mon petit bout de code:
'**********************************
Option Explicit
Dim adoStream
Set adoStream = Wscript.CreateObject("ADODB.Stream")
adoStream.open
adoStream.Type=1
adoStream.LoadFromFile "D:\EDITION\TEST\FICHIER_1"
BYT=adoStream.Read(10)
if BYT= 1B266C3048 then BYT =1B266C3148
adoStream.SaveToFile "D:\EDITION\TEST\FICHIER_1.PCL",2
adoStream.Close
MsgBox " C'est fini ... "
Set adoStream = Nothing
Wscript.Quit
'**********************************
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
---DGI972---
---DGI972--- a écrit :
Bonjour à tous,
Je dois remplacer plusieures séquences de caractères dans un gros fichier (environ 4 Go et non du txt du pcl je crois).
J'ai la liste des séquences a remplacer (pas de même longueur):
remplacer 1B266C3048 par 1B266C3148 remplacer 1B266C30531B2A70383878373259 par 11B266C307334481B2A70383878373259 remplacer 1B266C30531B2A7038387831323159 par 1B266C307334481B2A7038387831323159
J'ai pensé a l'objet "ADODB.Stream" (c'est une première pour moi) mais je ne sais pas comment ré ecrire dans mon fichier de sortie avec la nouvelle valeur de ma séquence de 10 caractères (pour le premier remplacement).
Il existe peut être une sorte de fonction replace ?
Voici mon ébauche de mon petit bout de code:
'********************************** Option Explicit Dim adoStream Set adoStream = Wscript.CreateObject("ADODB.Stream") adoStream.open adoStream.Type=1 adoStream.LoadFromFile "D:EDITIONTESTFICHIER_1" BYToStream.Read(10) if BYT= 1B266C3048 then BYT 266C3148 adoStream.SaveToFile "D:EDITIONTESTFICHIER_1.PCL",2 adoStream.Close
MsgBox " C'est fini ... "
Set adoStream = Nothing Wscript.Quit '**********************************
Un petit coup de pouce serait le bien venu ...
Merci d'avance
Je pense que cela va finir en GSAR:
http://gnuwin32.sourceforge.net/packages/gsar.htm
---DGI972--- a écrit :
Bonjour à tous,
Je dois remplacer plusieures séquences de caractères dans un gros fichier
(environ 4 Go et non du txt du pcl je crois).
J'ai la liste des séquences a remplacer (pas de même longueur):
remplacer 1B266C3048 par 1B266C3148
remplacer 1B266C30531B2A70383878373259 par 11B266C307334481B2A70383878373259
remplacer 1B266C30531B2A7038387831323159 par
1B266C307334481B2A7038387831323159
J'ai pensé a l'objet "ADODB.Stream" (c'est une première pour moi) mais je ne
sais pas comment ré ecrire dans mon fichier de sortie avec la nouvelle valeur
de ma séquence de 10 caractères (pour le premier remplacement).
Il existe peut être une sorte de fonction replace ?
Voici mon ébauche de mon petit bout de code:
'**********************************
Option Explicit
Dim adoStream
Set adoStream = Wscript.CreateObject("ADODB.Stream")
adoStream.open
adoStream.Type=1
adoStream.LoadFromFile "D:EDITIONTESTFICHIER_1"
BYToStream.Read(10)
if BYT= 1B266C3048 then BYT 266C3148
adoStream.SaveToFile "D:EDITIONTESTFICHIER_1.PCL",2
adoStream.Close
MsgBox " C'est fini ... "
Set adoStream = Nothing
Wscript.Quit
'**********************************
Je dois remplacer plusieures séquences de caractères dans un gros fichier (environ 4 Go et non du txt du pcl je crois).
J'ai la liste des séquences a remplacer (pas de même longueur):
remplacer 1B266C3048 par 1B266C3148 remplacer 1B266C30531B2A70383878373259 par 11B266C307334481B2A70383878373259 remplacer 1B266C30531B2A7038387831323159 par 1B266C307334481B2A7038387831323159
J'ai pensé a l'objet "ADODB.Stream" (c'est une première pour moi) mais je ne sais pas comment ré ecrire dans mon fichier de sortie avec la nouvelle valeur de ma séquence de 10 caractères (pour le premier remplacement).
Il existe peut être une sorte de fonction replace ?
Voici mon ébauche de mon petit bout de code:
'********************************** Option Explicit Dim adoStream Set adoStream = Wscript.CreateObject("ADODB.Stream") adoStream.open adoStream.Type=1 adoStream.LoadFromFile "D:EDITIONTESTFICHIER_1" BYToStream.Read(10) if BYT= 1B266C3048 then BYT 266C3148 adoStream.SaveToFile "D:EDITIONTESTFICHIER_1.PCL",2 adoStream.Close
MsgBox " C'est fini ... "
Set adoStream = Nothing Wscript.Quit '**********************************