Powerd911 – Numéro #1 au Canada

Lecture d’un fichier texte afin de créer des tables et des colonnes.

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

 

Laisser un commentaire

Contacter nous
300 characters left