Discussion :

[donny]

salut,

Je voudrais savoir si avec vbscript il m'est possible de lire dans un fichier .csv et de recreer à partir de ce fichier .csv et en faisant quelque modification un fichier .csv ou .sql.

Je m'explique j'ai un fichier qui contient ce genre de donnée

CDCOM,QUAR,2,SMALLINT
CDDEP,QUAR,1,SMALLINT
CDPAY,QUAR,4,CHAR
CDCOM,QUAR,2,SMALLINT
CDDEP,QUAR,1,SMALLINT
CDPAY,QUAR,4,CHAR
FIRSTNAME,PHONE,2,VARCHAR
LASTNAME,PHONE,1,VARCHAR
NUMBER,PHONE,4,CHAR

et je voudrais avoir cela en sortie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
create table QUAR (CDCOM SMALLINT (2), CDDEP  SMALLINT(1),..  ,CDPAY char(4));  
create table PHONE(FIRSTNAME VARCHAR (2), ...,NUMBER char(4));

Est ce possible ?

Merci

[pc75]

Bonjour,

Oui. Regarde du côté de FileSystemObject pour ouvrir, lire et écrire un fichier.

Et les fonctions split(), left(), right(), mid() ...

[donny]

je vais utiliser cela, je viens de le trouver sur le net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'<<<<<<< LECTURE d'un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte 
Set Ftxt = FSO.OpenTextFile("Monchemin")
 
'on parcours chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
      MaVariable = Ftxt.Readline
      '....... <- votre code ici pour traiter chaque ligne
Loop
 
Ftxt.Close
 
 
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  FSO.createTextFile("Monchemin",true) 'true=ecrase
 
'On ecrit ce que l'on veut dans le fichier 
Ftxt.writeline ("Mon texte à écrire ou ma Variable texte")
 
Ftxt.Close

MaVariable = Ftxt.Readline
'....... <- votre code ici pour traiter chaque ligne

ici je dois ,dans ma variable je dois mettre left(MaVariable ,longueur),mid(MaVariable ,debut,longueur)...
mais n'est ce pas mieux de mettre tout cela direct ici

Ftxt.writeline ("left(MaVariable ,longueur),mid(MaVariable ,debut,longueur)...")
??

[donny]

j'ai essayer et donc voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'déclaration file system object
Dim fso
'déclaration file system object
Dim fso1
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'instanciation
Set FSO1 = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte 
Set Ftxt = FSO.OpenTextFile("C:\Documents and Settings\un.txt")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt1 =  FSO1.createTextFile("C:\Documents and Settings\deux.txt",true) 'true=ecrase
 
'on parcours chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
      MaVariable = Ftxt.Readline
      '....... <- votre code ici pour traiter chaque ligne
      'On ecrit ce que l'on veut dans le fichier 
      Ftxt1.writeline (left(MaVariable,7))
Loop
 
Ftxt.Close
 
 
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
Ftxt1.Close

mais le probleme
comment faire pour ne recuperer qu'une seule fois le nom de la table,vu qu'il apparait à chaque ligne et qu'on fait un balayage ligne à ligne ?
est ce que je dois creer une variable qui contient la valeur precedente et je met une boucle avec if ?

[pc75]

Re,

A l'intérieur de ta boucle, tu récupères la chaine de caractères qui correspond au nom de ta table, puis tu fais une boucle (à l'intérieur de la boucle principale) tant que la variable qui contient le nom de la table correspond à la chaine que tu lis.

Si ce n'est pas clair, tu dis.

[donny]

sa correspond à ce que j'ai fait

[donny]

j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Do While Not Ftxt.AtEndOfStream
      MaVariable = Ftxt.Readline
 
      if (MaVariable2 <> mid(MaVariable,19,18)) then
      '....... <- votre code ici pour traiter chaque ligne
      'On ecrit ce que l'on veut dans le fichier 
       'Ftxt1.writeline (left(MaVariable,18)+left(MaVariable,18)+mid(MaVariable,50,13)+mid(MaVariable,63,5))
      champ=trim(left(MaVariable,18))
      types=trim(mid(MaVariable,50,13))
      taille=trim(mid(MaVariable,63,5))
      t= t +champ+" "+types+"("+taille+"), "
      else
      'Ftxt1.writeline (left(MaVariable,18)+mid(MaVariable,19,18)+mid(MaVariable,50,13)+mid(MaVariable,63,5))
      nomtable=trim(mid(MaVariable,19,18))
      champ=trim(left(MaVariable,18))
      types=trim(mid(MaVariable,50,13))
      taille=trim(mid(MaVariable,63,5))
      t= t +champ+" "+types+"("+taille+"), "
      end if
      MaVariable2= mid(MaVariable,19,18)
Loop
t1=left(t,len(t)-2)
Ftxt.Close
 
Ftxt1.writeline ("create table "+nomtable+"("+t1+")")
'Ftxt1.writeline (t)
 
Ftxt1.Close

le probleme est qu'il créer bien un fichier mais incorrect;si j'ai une seule ligne cela fonctionne, mais si j'ai n ligne, j'aurai comme nom de table,celui de la derniere du fichier et comme parametre à cette table la liste des champs de toutes les autre tables .
comment faire pour eviter cela ?

merci