probleme script vbs

probleme script vbs - VB/VBA/VBS - Programmation

Marsh Posté le 16-08-2006 à 15:44:33    

salut,
 
J'essai de creer un script vbs qui me permette à partir d'un fichier csv d'en creer un autre qui contienne un script sql pour creer des tables;
un exemple
 
fichier.csv

Citation :


champ1 table1 type taille
champ2 table1 type taille
champ1 table2 type taille
champ2 table2 type taille


 
et je voudrais en sortie

Citation :


create table table1 (champ1 type(taille),champ2 type(taille));
create table table2 (champ1 type(taille),champ2 type(taille));


 
 
voici mon code
 

Code :
  1. 'déclaration file system object
  2. Dim fso
  3. 'déclaration file system object
  4. Dim fso1
  6. 'instanciation
  7. Set FSO = CreateObject("Scripting.FileSystemObject" )
  9. 'instanciation
  10. Set FSO1 = CreateObject("Scripting.FileSystemObject" )
  12. 'on instance le fichier texte
  13. Set Ftxt = FSO.OpenTextFile("C:\Documents and Settings\1.txt" )
  15. 'on instance le fichier texte dans lequel on veut ecrire
  16. Set Ftxt1 =  FSO1.createTextFile("C:\Documents and Settings\2.txt",true) 'true=ecrase
  17. MaVariable2="a"
  18. t=""
  20. 'on parcours chaque ligne du fichier texte
  21. Do While Not Ftxt.AtEndOfStream
  22.       MaVariable = Ftxt.Readline
  23.      
  24.       if (MaVariable2 = mid(MaVariable,19,18)) then
  25.      
  26.       '....... <- votre code ici pour traiter chaque ligne
  27.       'On ecrit ce que l'on veut dans le fichier
  28.        'Ftxt1.writeline (left(MaVariable,18)+left(MaVariable,18)+mid(MaVariable,50,13)+mid(MaVariable,63,5))
  29.       champ=trim(left(MaVariable,18))
  30.       types=trim(mid(MaVariable,50,13))
  31.       taille=trim(mid(MaVariable,63,5))
  32.       t= t +champ+" "+types+"("+taille+" ), "
  33.       MaVariable2= mid(MaVariable,19,18)
  34.       bool="true"
  35.    
  36. else
  37.    
  38.       nomtable=trim(mid(MaVariable,19,18))
  39.       champ=trim(left(MaVariable,18))
  40.       types=trim(mid(MaVariable,50,13))
  41.       taille=trim(mid(MaVariable,63,5))
  42.       t= t +champ+" "+types+"("+taille+" ), "
  43.       MaVariable2= mid(MaVariable,19,18)
  44.       end if
  45.       'MaVariable2= mid(MaVariable,19,18)
  46.    
  47. Loop
  48. t1=left(t,len(t)-2)
  49. Ftxt.Close
  51. Ftxt1.writeline ("create table "+nomtable+"("+t1+" )" )
  54. Ftxt1.Close


 
Le probleme est qu'en resultat, j'ai cela
 
create table2 (champ1 type(taille),champ2 type(taille),champ1 type(taille),champ2 type(taille))
 
il ne me met pas les nom de table à la suite en faite il les ecrase et accumule tout les champs des tables.
Comment pourrai je eviter cela
 
Merci

Reply

Marsh Posté le 16-08-2006 à 15:44:33   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed