Option Explicit
'-----------------------------------------------------------------------------
' Initialisation
'-----------------------------------------------------------------------------
Dim system
Dim file
Dim mdl
dim str
Dim Tab
Dim Col
Dim Ligne
Dim isNewTable
Dim isNewColonne
Dim ForReading, ForWriting, ForAppending
Set system = CreateObject("Scripting.FileSystemObject")
' Mode d'ouverture du fichier
ForReading = 1 ' Ouverture du fichier en mode lecture seulement
ForWriting = 2 ' Ouvetture du fichier en mode écriture
ForAppending = 8 ' Ouverture du fichier en mode écriture à partir de la fin du fichier.
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox "Il n'y a pas de modèle courrament ouvert"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox "Le modèle courrant n'est pas un modèle physique de données"
Else
Set file = system.OpenTextFile("C:Backupx.txt", ForReading)
isNewTable = FALSE
Do While file.AtEndOfStream <> True
Ligne = file.ReadLine
str=split(Ligne)
if str(0) = "TABLE" then ' Est-ce l'entête pour la création d'une table ?
isNewTable = TRUE
elseif str(0) = "COLONNE" then ' Est-ce l'entête pour la création d'une colonne ?
isNewColonne = TRUE
elseif IsNewTable = TRUE then ' Avons-nous une requête pour la création d'une table ?
set Tab = mdl.Tables.CreateNew
Tab.name = str(0) 'Nom de la table
Tab.code = str(1) 'Code de la table
Tab.comment = str(2) 'Commentaire
isNewTable = False
else ' Sinon nous allons créer des colonnes.
set Col=Tab.Columns.CreateNew
Col.name = str(0) ' Nom de la colonne
Col.Code = str(1) ' Code de la colonne
Col.datatype = str(2) ' Type de donnée de la colonne
Col.Comment = str(3) ' Commentaire
end if
Loop
file.Close ' Fermeture du fichier
end if
