Ouvrir un fichier text avec Excel

Version imprimable

J'essaye d'ouvrir ce fichier avec Excel text en vue d'un traitement

Citation:

"HORODATE" "NAMEID" "VALABS" "VALH""VALH_ERR"
"31.05.2006 09:00:00" "1" "127587770" "950" "0"
"31.05.2006 09:00:00" "2" "46603300" "1690" "0"
"31.05.2006 09:00:00" "4" "103564250" "1630" "0"
"31.05.2006 09:00:00" "5" "116899660" "3640" "0"

Mais je narrive pas à supprimé les doubles quote avec cette commande delphi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
OA.Workbooks.OpenText(FichierAr,
                        xlWindows,   //Origin
                        1,           //StartRow
                        xlDelimited, //DataType
                        xlTextQualifierDoubleQuote,//TextQualifier      xlTextQualifierSingleQuote  xlNone, xlSingleQuote
                        True,       //ConsecutiveDelimiter
                        False,       //Tab
                        False,       //Semicolon
                        True,        //Comma
                        False,       //Space
                        True,        //Other
                        Vig,         //OtherChar
                        EmptyParam,  //FieldInfo
                        EmptyParam,  //Array1
                        EmptyParam,
                        EmptyParam);

31/10/2006, 14h28
Eric Boisvert
à voir ton exemple de fichier, je dirais que ton text est délimité par des
espaces et non des virgules.
j'imagine que presentement,
cette ligne est importé dans excel dans une seule cellule

Citation:

HORODATE" "NAMEID" "VALABS" "VALH" "VALH_ERR

avec la doubles quote du début et de fin manquante.

donc il faudrait remplacer ca:
Code:

1 2 3 True, //Comma False, //Space
par
Code:

1 2 3 False, //Comma True, //Space

Si ton fichier est un fichier texte, pourquoi ne pas faire la modification directement dans Delphi avec les routines de gestion de fichier.

Voici un exemple de procedure Delphi qui peut peut être te rendre des services (j'ai écrit ce code de mémoire, je ne suis pas sur PC qui dispose de Delphi) :

Code:

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
36
37
38
39
40
41
42
procedure SupprimerChaineDansFichier(nomFichierEntree, nomFichierSortie, chaineASupprimer:string);
var
   f,s : TextFile;
   ligne: string;
begin
  // Si le fichier en entrée existe
  if fileexists(nomFichierEntree) then
  begin
    // Affectation du fichier en entrée à la variable f
    assignfile(f,nomFichierEntree);
    // Ouverture en lecture du fichier en entrée et positionnement au début du fichier
    reset(f);
 
    // Affectation du fichier en sortie à la variable s
    assignfile(s,nomFichierSortie);
    // Ouverture en écriture du fichier en sortie (création du fichier si celui ci 
	// est inexistant  
    rewrite(s);
 
    // Boucle de lecture du fichier en entrée jusqu'à ce qu'on est en fin de fichier
    while not(eof(f)) do
    begin
      // Lecture de la première ligne du fichier et alimentation de cette ligne
      //  dans la variable ligne
      readln(f,ligne);
      // Tant que la chaineASupprimer est présente dans la ligne
      while pos(chaineASupprimer,ligne) > 0 then
      begin
        // On supprime l'occurence de chaineASupprimer de la variable ligne
  	    delete(ligne,pos(chaineASupprimer,ligne),length(chaineASupprimer));
      end;
      // Ecriture de la nouvelle ligne dans le fichier de sortie (sans les occurence de 
      // chaineASupprimer)
      writeln(s,ligne);
    end;
 
    // Fermeture des fichiers en entrée et en sortie
    closefile(s);
    closefile(f);
  end
  else MessageBox(application.handle,'Le fichier n''existe pas.','Erreur',mb_ok);
end;

Cette procedure peut être appelée de la manière suivante pour supprimer les caractères " du fichier :
SupprimerChaineDansFichier('c:\essai\fic1.txt','c:\essai\fic2.txt','"');

Le résultat sera dans le fichier fic2.txt et non dans le fichier de départ. Cela est plus sûr pour faire des tests...

En espérant que cela te soit utile :P