Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
Essaye ceci: Dim FFN AS Integer, strBuffer As String
FFN = FreeFile
Open "c:monfichiertext.txt" For Binary As FFN strBuffer = String$(LOF(FFN),vbNullChar) Get FFN,, strBuffer Close FFN
Pour accéder à la troisième ligne, tu peux implémenter Split tel que décrit dans http://support.microsoft.com/default.aspx?kbid8007 Et l'utiliser comme ceci:
Msgbox "La troisième ligne de ce document est :" & vbNewLine & Split(strBuffer,vbCrLf)(2)
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
Bonjour/soir,
Essaye ceci:
Dim FFN AS Integer, strBuffer As String
FFN = FreeFile
Open "c:monfichiertext.txt" For Binary As FFN
strBuffer = String$(LOF(FFN),vbNullChar)
Get FFN,, strBuffer
Close FFN
Pour accéder à la troisième ligne, tu peux implémenter Split tel que décrit
dans
http://support.microsoft.com/default.aspx?kbid8007
Et l'utiliser comme ceci:
Msgbox "La troisième ligne de ce document est :" & vbNewLine &
Split(strBuffer,vbCrLf)(2)
Essaye ceci: Dim FFN AS Integer, strBuffer As String
FFN = FreeFile
Open "c:monfichiertext.txt" For Binary As FFN strBuffer = String$(LOF(FFN),vbNullChar) Get FFN,, strBuffer Close FFN
Pour accéder à la troisième ligne, tu peux implémenter Split tel que décrit dans http://support.microsoft.com/default.aspx?kbid8007 Et l'utiliser comme ceci:
Msgbox "La troisième ligne de ce document est :" & vbNewLine & Split(strBuffer,vbCrLf)(2)
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
ng
Bonjour,
Pour faire cela en VB, cf les autres réponses, sinon pour le VBS, il faudra regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici (lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Nicolas.
"Cédric Charlet" a écrit dans le message de news:
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
Bonjour,
Pour faire cela en VB, cf les autres réponses, sinon pour le VBS, il faudra
regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici
(lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Nicolas.
"Cédric Charlet" <news0@charlet.ch> a écrit dans le message de news:
8acaf051.0308150056.1472aa1@posting.google.com...
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
Pour faire cela en VB, cf les autres réponses, sinon pour le VBS, il faudra regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici (lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Nicolas.
"Cédric Charlet" a écrit dans le message de news:
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
François Picalausa
Bonjour/soir,
sinon pour le VBS, il faudra regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici (lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Au lieu de simplement dire qu'il n'est pas apprécié en VB, peut-être dire pourquoi.... car ce n'est pas de la méchanceté gratuite envers FSO.... (bien que ;-) ) http://faq.vb.free.fr/index.php?question6
En Scripting, il est clair que le FSO est a utilisé.
Pour faire cela en VB, cf les autres réponses, sinon pour le VBS, il faudra regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici (lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Nicolas.
"Cédric Charlet" a écrit dans le message de news:
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
Bonjour/soir,
sinon pour le VBS, il
faudra regarder du coté du FileSystemObject, mais vu qu'il n'est
guère aprécié ici (lol) je vous conseille d'en parler sur
microsoft.public.fr.scripting.
Au lieu de simplement dire qu'il n'est pas apprécié en VB, peut-être dire
pourquoi.... car ce n'est pas de la méchanceté gratuite envers FSO.... (bien
que ;-) )
http://faq.vb.free.fr/index.php?question6
En Scripting, il est clair que le FSO est a utilisé.
"ng" <ng@babeuk.net> a écrit dans le message de
news:OtKYQEyYDHA.2572@TK2MSFTNGP09.phx.gbl
Bonjour,
Pour faire cela en VB, cf les autres réponses, sinon pour le VBS, il
faudra regarder du coté du FileSystemObject, mais vu qu'il n'est
guère aprécié ici (lol) je vous conseille d'en parler sur
microsoft.public.fr.scripting.
Nicolas.
"Cédric Charlet" <news0@charlet.ch> a écrit dans le message de news:
8acaf051.0308150056.1472aa1@posting.google.com...
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
sinon pour le VBS, il faudra regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici (lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Au lieu de simplement dire qu'il n'est pas apprécié en VB, peut-être dire pourquoi.... car ce n'est pas de la méchanceté gratuite envers FSO.... (bien que ;-) ) http://faq.vb.free.fr/index.php?question6
En Scripting, il est clair que le FSO est a utilisé.
Pour faire cela en VB, cf les autres réponses, sinon pour le VBS, il faudra regarder du coté du FileSystemObject, mais vu qu'il n'est guère aprécié ici (lol) je vous conseille d'en parler sur microsoft.public.fr.scripting.
Nicolas.
"Cédric Charlet" a écrit dans le message de news:
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
Zoury
Salut à tous! :O)
Je suis peut-être fou, mais le FSO est, je crois, la seule option si vous voulez travailller avec les fichiers textes à l'aide de VBS. L'instruction Open n'est pas disponible. Le FSO ne fournit aucun support pour la lecture binaire.
Lire un fichier '*** <html> <body> <div id="dv"></div> <script type="text/vbscript">
Const ForReading = 1 Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("c:file.txt", ForReading, False) dv.InnerHTML = Replace(ts.ReadAll, vbNewLine, "<br>")
</script> </body> </hmtl> '***
Écrire un fichier '*** <html> <body> <script language="text/vbscript">
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile("c:newfile.txt", True) Call ts.Write("Voici un nouveau" & vbNewLine & "fichier contenant du" & vbNewLine & "nouveau texte") ts.Close
</script> </body> </html> '***
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "Cédric Charlet" wrote in message news:
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
MErci d'avance
Salut à tous! :O)
Je suis peut-être fou, mais le FSO est, je crois, la seule option si vous
voulez travailller avec les fichiers textes à l'aide de VBS. L'instruction
Open n'est pas disponible. Le FSO ne fournit aucun support pour la lecture
binaire.
Lire un fichier
'***
<html>
<body>
<div id="dv"></div>
<script type="text/vbscript">
Const ForReading = 1
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:file.txt", ForReading, False)
dv.InnerHTML = Replace(ts.ReadAll, vbNewLine, "<br>")
</script>
</body>
</hmtl>
'***
Écrire un fichier
'***
<html>
<body>
<script language="text/vbscript">
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile("c:newfile.txt", True)
Call ts.Write("Voici un nouveau" & vbNewLine & "fichier contenant du" &
vbNewLine & "nouveau texte")
ts.Close
</script>
</body>
</html>
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Cédric Charlet" <news0@charlet.ch> wrote in message
news:8acaf051.0308150056.1472aa1@posting.google.com...
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.
Je suis peut-être fou, mais le FSO est, je crois, la seule option si vous voulez travailller avec les fichiers textes à l'aide de VBS. L'instruction Open n'est pas disponible. Le FSO ne fournit aucun support pour la lecture binaire.
Lire un fichier '*** <html> <body> <div id="dv"></div> <script type="text/vbscript">
Const ForReading = 1 Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("c:file.txt", ForReading, False) dv.InnerHTML = Replace(ts.ReadAll, vbNewLine, "<br>")
</script> </body> </hmtl> '***
Écrire un fichier '*** <html> <body> <script language="text/vbscript">
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile("c:newfile.txt", True) Call ts.Write("Voici un nouveau" & vbNewLine & "fichier contenant du" & vbNewLine & "nouveau texte") ts.Close
</script> </body> </html> '***
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "Cédric Charlet" wrote in message news:
Bonjour,
Novice en vbs, je cherche comment lire et écrire un fichier text.