remplacement de caractère avec ADODB.Stream

Le
---DGI972---
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"
BYT­oStream.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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
---DGI972---
Le #20782571
---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"
BYT­oStream.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
Publicité
Poster une réponse
Anonyme