Forum automatisme

Code : Tout sélectionner

'///     DtxToCsv.vbs      \\\
'\\\ forum-automatisme.net ///

'Version 1.0 - 30/05/2019

'Ce script permet de convertir un fichier DTX généré par Unity Pro
'en un fichier texte de type CSV.
'La conversion peut être lancée en ligne de commande ou par glisser-déposer
'du fichier à convertir sur le fichier DtxToCsv.vbs.

Option Explicit
Const ForReading = 1, ForWriting = 2

Dim oFSO, oArgs
Dim oFichierDtx, oFichierBits, oFichierMots
Dim sFicDtx, sFicBits, sFicMots, s
Dim iAdresse

Dim sID
Dim bBits
Dim lBitsDepart,lBitsNombre
Dim bMots
Dim lMotsDepart, lMotsNombre
Dim lTailleNomStation

Set oFSO = CreateObject("Scripting.FileSystemObject")

'--- Récupération du fichier de données en argument
Set oArgs  = WScript.Arguments
If oArgs.Count<1 Then
	s=    "Script de conversion d'un fichier DTX au format CSV" & vbCrLf
	s=s & vbCrLf
	s=s & "Syntaxe :" & vbCrLf
	s=s & " DtxToCsv <dtx>" & vbCrLf
	s=s & "   <dtx> : fichier de données généré par Unity Pro" & vbCrLf
	s=s & vbCrLf
	s=s & "Les fichiers suivants seront créés ou écrasés," & vbCrLf
	s=s & "le cas échéant, dans le même répertoire :" & vbCrLf
	s=s & "   - 'Données %M de <dtx>.csv'" & vbCrLf
	s=s & "   - 'Données %MW de <dtx>.csv'" & vbCrLf
	WScript.Echo s
	WScript.Quit
Else
	sFicDtx = oArgs(0)
	If Not oFSO.FileExists(sFicDtx) Then
		MsgBox "Le fichier " & sFicDtx & " n'existe pas.", vbCritical, "Erreur"
		WScript.Quit
	End If
	Set oFichierDtx = oFSO.GetFile(sFicDtx)
	sFicBits = Replace(oFichierDtx.ParentFolder & "\Données %M de " & oFichierDtx.Name, ".dtx", ".csv", 1, -1, vbTextCompare)
	sFicMots = Replace(oFichierDtx.ParentFolder & "\Données %MW de " & oFichierDtx.Name, ".dtx", ".csv", 1, -1, vbTextCompare)
End If
Set oArgs  = Nothing

'--- Ouverture et contrôle du fichier .DTX
Set oFichierDtx = oFSO.OpenTextFile(sFicDtx, ForReading)
sID = oFichierDtx.Read(8)
If sID <> (Chr(&H17) & Chr(&H19) & Chr(&H12) & Chr(&H5) & Chr(&H1) & Chr(0) & Chr(0) & Chr(0)) Then
	MsgBox "Le fichier à convertir n'est pas un fichier de données Unity Pro.", vbCritical, "Fichier non reconnu"
	WScript.Quit
End If

'--- Lecture de l'en-tête
oFichierDtx.Skip(28)
bBits = CBool(Asc(oFichierDtx.Read(4)))
lBitsDepart = Asc(oFichierDtx.Read(1)) _
	+ Asc(oFichierDtx.Read(1)) * 2^8 _
	+ Asc(oFichierDtx.Read(1)) * 2^16 _
	+ Asc(oFichierDtx.Read(1)) * 2^24
lBitsNombre = Asc(oFichierDtx.Read(1)) _
	+ Asc(oFichierDtx.Read(1)) * 2^8 _
	+ Asc(oFichierDtx.Read(1)) * 2^16 _
	+ Asc(oFichierDtx.Read(1)) * 2^24
bMots = CBool(Asc(oFichierDtx.Read(4)))
lMotsDepart = Asc(oFichierDtx.Read(1)) _
	+ Asc(oFichierDtx.Read(1)) * 2^8 _
	+ Asc(oFichierDtx.Read(1)) * 2^16 _
	+ Asc(oFichierDtx.Read(1)) * 2^24
lMotsNombre = Asc(oFichierDtx.Read(1)) _
	+ Asc(oFichierDtx.Read(1)) * 2^8 _
	+ Asc(oFichierDtx.Read(1)) * 2^16 _
	+ Asc(oFichierDtx.Read(1)) * 2^24
oFichierDtx.Skip(68)
lTailleNomStation = Asc(oFichierDtx.Read(1)) _
	+ Asc(oFichierDtx.Read(1)) * 2^8 _
	+ Asc(oFichierDtx.Read(1)) * 2^16 _
	+ Asc(oFichierDtx.Read(1)) * 2^24
oFichierDtx.Skip(lTailleNomStation*2)

If Not bBits And Not bMots Then
	MsgBox "Le fichier ne contient pas de données localisées.", vbExclamation, "Aucune donnée exploitable"
	WScript.Quit
End If

'--- Traitement des données de type bit localisé %M
If bBits Then
	'--- Création du fichier CSV
	Set oFichierBits = oFSO.OpenTextFile(sFicBits, ForWriting,True)
	
	oFichierDtx.Skip(16)
	For iAdresse = lBitsDepart To lBitsDepart + lBitsNombre - 1
		oFichierBits.WriteLine "%M" & iAdresse & ";" & (Asc(oFichierDtx.Read(1)) And 1) 'on garde juste le bit de poids faible
	Next
	
	'--- Fermeture des fichiers
	oFichierBits.Close
End If

'--- Traitement des données de type mot localisé %MW
If bMots Then
	'--- Création du fichier CSV
	Set oFichierMots = oFSO.OpenTextFile(sFicMots, ForWriting,True)
	
	oFichierDtx.Skip(16)
	For iAdresse = lMotsDepart To lMotsDepart + lMotsNombre - 1
		oFichierMots.WriteLine "%MW" & iAdresse & ";" & (Asc(oFichierDtx.Read(1)) + Asc(oFichierDtx.Read(1)) * 2^8)
	Next
	
	'--- Fermeture des fichiers
	oFichierMots.Close
End If

'--- Fermeture du fichier de données
oFichierDtx.Close