Séparateurs dans un fichier
cs_manudel
Messages postés
63
Date d'inscription
lundi 29 avril 2002
Statut
Membre
Dernière intervention
7 mars 2005
-
12 août 2002 à 23:47
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 13 août 2002 à 20:52
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 13 août 2002 à 20:52
A voir également:
- Séparateurs de fichiers
- Séparateur de liste vba - Forum Visual Basic 6
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
- Rechercher des fichiers commençant par le même nom ✓ - Forum VB.NET
- Search & Replace dans TOUS les fichiers d'un dossier. ✓ - Forum VB.NET
- Rechercher/Remplacer dans un fichier ✓ - Forum VB.NET
1 réponse
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
13 août 2002 à 20:52
13 août 2002 à 20:52
Ce n'est pas compliqué et en cherchant un peu dans les sources tu trouverais sans doute. Mais bon, voici le résultat au cas ou tu serais pressé :
procedure TForm1.Button1Click(Sender: TObject);
Var Fichier:TextFile;
begin
With Table1 Do
Begin
// Creation du fichier texte
AssignFile(Fichier,'C:\TEMP\TOTO.TXT');
Rewrite(Fichier);
First;
While Not Eof Do
Begin
// Copie des champs séparés par @
Write(Fichier,FieldByName('A').AsString,'@');
Write(Fichier,FieldByName('B').AsString,'@');
// Ajout d'un ~ en fin d'enregistrement
Write(Fichier,'~');
Next;
End;
CloseFile(Fichier);
End;
end;
Ici c'est un TTable ( Table1 ), mais ça fonctionne aussi avec un TQuery ou un StoredProc.
--- :sleepy) Nono du Moulin :sleepy) ---
procedure TForm1.Button1Click(Sender: TObject);
Var Fichier:TextFile;
begin
With Table1 Do
Begin
// Creation du fichier texte
AssignFile(Fichier,'C:\TEMP\TOTO.TXT');
Rewrite(Fichier);
First;
While Not Eof Do
Begin
// Copie des champs séparés par @
Write(Fichier,FieldByName('A').AsString,'@');
Write(Fichier,FieldByName('B').AsString,'@');
// Ajout d'un ~ en fin d'enregistrement
Write(Fichier,'~');
Next;
End;
CloseFile(Fichier);
End;
end;
Ici c'est un TTable ( Table1 ), mais ça fonctionne aussi avec un TQuery ou un StoredProc.
--- :sleepy) Nono du Moulin :sleepy) ---