Quelques astuces en VBS !

C’est toujours utile d’avoir à portée de main une « boite à outils ».

Vous trouverez ci-joint quelques outils intéressants en VBS.

Comment lire le contenu d’un fichier Texte en VBS ?

Voici le script :

Function ReadTextFile(FileName, CharSet)

Const adTypeText = 2

‘ créer l’object Stream

Dim BinaryStream

Set BinaryStream = CreateObject(“ADODB.Stream”)

‘ spécifier le type de stream  – dans notre exemple nous voulons lire des données en mode texte

BinaryStream.Type = adTypeText

‘ spécifier le charset à utiliser pour les données

If Len(CharSet) > 0 Then

BinaryStream.CharSet = CharSet

End If

‘ ouvrir le stream

BinaryStream.Open

‘ charger les données du disque vers l’object stream

BinaryStream.LoadFromFile FileName

‘ ouvrir le stream et récupérer les données à partir de l’object

ReadTextFile = BinaryStream.ReadText

End Function

Exemple d’utilisation :

Dim strData
strData = ReadTextFile(“mon_fichier”, “us-ascii”)

Comment enregistrer du contenu binaire dans un fichier en VBS ?

Voici le script :

Function SaveBinaryData(FileName, ByteArray)

Const adTypeBinary = 1

Const adSaveCreateOverWrite = 2

‘création object Stream

Dim BinaryStream

Set BinaryStream = CreateObject(“ADODB.Stream”)

‘spécifier type stream – dans notre exemple nous voulons sauvegarder des données binaires.

BinaryStream.Type = adTypeBinary

‘Ouvrir le stream et écrire les données binaires dans l’object

BinaryStream.Open

BinaryStream.Write ByteArray

‘Sauvegarder les données binaires sur disque

BinaryStream.SaveToFile FileName, adSaveCreateOverWrite

End Function

Exemple d’utilisation :

// byteData contient mes données binaires

SaveBinaryData “mon_fichier”, byteData

Vous souhaitez consulter d’autres articles intéressants, visitez notre blog : http://ibackblog.blogspot.fr

Vous pouvez aussi nous suivre sur : https://twitter.com/ibackservice