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
Facebook
Twitter
RSS