ecrire à fin de chaque ligne dans un fichier autre que texte

Question

j'ai un fichier *.dat, je voudrais ajouter un caractere comme @ en fin de ligne.
comment fait-on?

merci d'avance!

fred
 :question)

TeKiT · Answer

Voili voilo

Option Explicit

' Permet d'écrire dans un fichier soit en ajout soit en écrasant
'   Fichier = chemin vers le fichier (ex "c:	emp\exemple.txt")
'   Contenu = chaîne de caractère à insérer dans le fichier 
'   Ajouter = True  si l'on veut ajouter à la fin du fichier 
'             False si l'on veut écraser le fichier
Sub EcrireDansFichier(ByVal Fichier,ByVal  Contenu,ByVal  Ajouter)
Dim LeMode
Dim FsError
Dim LeFichierTexte
If Ajouter = True Then
LeMode=8
Else
LeMode=2
End If
Set FsError = CreateObject("Scripting.FileSystemObject")
Set LeFichierTexte = FsError.OpenTextFile(Fichier,LeMode, True)
LeFichierTexte.Write Contenu
LeFichierTexte.Close
Set	 LeFichierTexte = Nothing
Set FsError = Nothing
End Sub

Const cFile = "c:	emp	oto.txt"
Dim objFso,ts,Text,ligne
Set objFso = CreateObject("Scripting.FileSystemObject")
Set ts = objFso.OpenTextFile(cFile, 1)
ligne=ts.readline()
Do 
Text=Text&ligne&"@"&vbcrlf
ligne=ts.readline()
Loop While not ts.AtEndOfStream 
Text=Text&ligne&"@"&vbcrlf
call EcrireDansFichier(cFile,Text,false)

------------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.

cs_Cadbury · Answer

c pa plu simple de passer par un

open nom for attribut as canal 
close canal

pour ouvrir et fermer un fichier?

TeKiT · Answer

JE sais pas ....
Quel est le plus rapide ....
Ouvrir un canal ça nécessite pas une API ??
A voir 
----------
Un optimiste, c'est un homme qui plante deux glands ......... et qui s'achète un hamac.

cs_Cadbury · Answer

meu non pa beuzoin d'api :

Public Function AjoutChar(ByVal Fichier As String, ByVal Charac As String)
Dim CanalSrc
Dim CanalDest
Dim Ligne As String
CanalSrc = FreeFile
Open Fichier For Input As #CanalSrc
CanalDest = FreeFile
Open (Fichier + ".tmp") For Output As #CanalDest
Do
   Input #CanalSrc, Ligne
   Print #CanalDest, Ligne & Charac
Loop While (Not (EOF(CanalSrc)))
Close #CanalSrc
Close #CanalDest
Kill Fichier
Name (Fichier & ".tmp") As Fichier
End Function

ca suffit largement :)
Fichier est le chemin complet du ficher (genre "c:	oto.dat") et char est la chaine a rajouter a la fin de chaque ligne
c po compliké :) VB c le language de la simplicité

Bonne prog
en esperant ke c'est utile a qqn

Cad

Ecrire à fin de chaque ligne dans un fichier autre que texte

4 réponses

Discussions similaires