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.
-------------------------------
Réponse au message :
-------------------------------
c pa plu simple de passer par un
open nom for attribut as canal
close canal
pour ouvrir et fermer un fichier?
-------------------------------
Réponse au message :
-------------------------------
Voili voilo
Option Explicit
' Permet d'écrire dans un fichier soit en ajout soit en écrasant
' Fichier = chemin vers le fichier (ex "c:\temp\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:\temp\toto.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.
-------------------------------
Réponse au message :
-------------------------------
j'ai un fichier *.dat, je voudrais ajouter un caractere comme @ en fin de ligne.
comment fait-on?
merci d'avance!
fred
