Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Supprimer une ligne

Supprimer une ligne

16 réponses
Avatar
eric
Bonjour,

je voudrais supprimer un ligne d'un fichier texte. comment dois-je m'y
prendre? un peu co pr ajouter co ca :
Open "c:\Partage\vb\send\messenger\contacts.txt" For Append As 1
Print #1, text_contact.Text
Close 1

??
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
1 2
Avatar
Bismark Prods
ben il faut l'inclure dans ton projet, et faire référence à son nom ! celui
que tu lui a donné ! Dans le cas de Zoury c'est CFile mais ca peut aussi
etre Class1 !?

"eric" a écrit dans le message de
news:%23deOu%
Oui! j'ai bien créé un module de classe. ms il trouve pas la classe
apparemment.


"Bismark Prods" a écrit dans le message news:
#
> c'est un module de classe attention ! pas un simple module !
>
> "eric" a écrit dans le message de
> news:
> > c'est ce que j'ai fais ms il me met que le type est indéfini.
> >
> >
> > "François Picalausa" a écrit dans le message


news:
> >
> > > Bonjour/soir,
> > >
> > > En employant l'exemple de Zoury:
> > >
> > > Dim f1 As CFile
> > > Dim f2 As CFile
> > > ...
> > >
> > > Set f1 = New CFile
> > > ...
> > > Set f2 = New CFile
> > >
> > > Et en oubliant pas à la fin:
> > > Set f1 = Nothing
> > > Set f2 = Nothing
> > >
> > > --
> > > François Picalausa (MVP VB)
> > > FAQ VB : http://faq.vb.free.fr
> > > MSDN : http://msdn.microsoft.com
> > >
> > >
> > > eric wrote:
> > > > J'ai créé la classe mais comment je fais pour l'appeler?
> > > >
> > > >
> > > >
> > > > "François Picalausa" a écrit dans le message
> > > > news:
> > > >> Bonjour/soir,
> > > >>
> > > >> Elle est dispo dans ce post:
> > > >>
> > > >
> > >
> >
>



http://groups.google.com/groups?selm=OL%23%24KxSIDHA.1732%40TK2MSFTNGP11.phx
> > > > .gbl
> > > >>
> > > >> --
> > > >> François Picalausa (MVP VB)
> > > >> FAQ VB : http://faq.vb.free.fr
> > > >> MSDN : http://msdn.microsoft.com
> > > >>
> > > >>
> > > >> eric wrote:
> > > >>> c'est pas mal ta méthode ms je n'ai pas la classe Cfile. où je
> > > >>> pourrais la trouver?
> > > >>>
> > > >>>
> > > >>> Tu pourrais utiliser ma classe CFile... c'est non nécessaire


dans
ce
> > > >>> cas mais quand même simple à utiliser si tu n'est pas à l'aise
avec
> > > >>> les instructions de fichier..
> > > >>>
> > > >>> voici un exemple qui te permettrait de refaire un fichier sans


la
> > > >>> troisième ligne ...
> > > >>>
> > > >>> Contenu de file1.txt :
> > > >>> Ligne 1
> > > >>> Ligne 2
> > > >>> Ligne 3
> > > >>> Ligne 4
> > > >>> Ligne 5
> > > >>>
> > > >>> <non testé>
> > > >>> '***
> > > >>> ' Module1
> > > >>>
> > > >>> Private Sub Main()
> > > >>>
> > > >>> Dim f1 As CFile
> > > >>> Dim f2 As CFile
> > > >>> Dim i As Long
> > > >>> Dim lLigneSupprimer As Long
> > > >>>
> > > >>> lLigneSupprimer = 3 ' Indique la ligne a supprimer
> > > >>>
> > > >>> Set f1 = New CFile
> > > >>> Call f1.ReadFile("c:file1.txt")
> > > >>>
> > > >>> Set f2 = New CFile
> > > >>> For i = 1 To f1.LineCount
> > > >>> If i <> iLigneSupprimer Then
> > > >>> Call f2.AppendLine(f1.Lines(i))
> > > >>> End If
> > > >>> Next i
> > > >>>
> > > >>> Call f2.SaveAs("C:file2.txt")
> > > >>>
> > > >>> End Sub
> > > >>>
> > > >>>> Bonjour,
> > > >>>>
> > > >>>> je voudrais supprimer un ligne d'un fichier texte. comment
dois-je
> > > >>>> m'y prendre? un peu co pr ajouter co ca :
> > > >>>> Open "c:Partagevbsendmessengercontacts.txt" For Append As


1
> > > >>>> Print #1, text_contact.Text
> > > >>>> Close 1
> > > >>>>
> > > >>>> ??
> > >
> > >
> >
> >
>
>




Avatar
François Picalausa
Bonjour/soir,

As-tu bien nommé la classe CFile sans fautes?

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


eric wrote:
Oui! j'ai bien créé un module de classe. ms il trouve pas la classe
apparemment.


"Bismark Prods" a écrit dans le message news:
#
c'est un module de classe attention ! pas un simple module !

"eric" a écrit dans le message de
news:
c'est ce que j'ai fais ms il me met que le type est indéfini.


"François Picalausa" a écrit dans le message
news:
Bonjour/soir,

En employant l'exemple de Zoury:

Dim f1 As CFile
Dim f2 As CFile
...

Set f1 = New CFile
...
Set f2 = New CFile

Et en oubliant pas à la fin:
Set f1 = Nothing
Set f2 = Nothing

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


eric wrote:
J'ai créé la classe mais comment je fais pour l'appeler?



"François Picalausa" a écrit dans le message
news:
Bonjour/soir,

Elle est dispo dans ce post:


















http://groups.google.com/groups?selm=OL%23%24KxSIDHA.1732%40TK2MSFTNGP11.phx
.gbl

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


eric wrote:
c'est pas mal ta méthode ms je n'ai pas la classe Cfile. où je
pourrais la trouver?


Tu pourrais utiliser ma classe CFile... c'est non nécessaire
dans ce cas mais quand même simple à utiliser si tu n'est pas à
l'aise avec les instructions de fichier..

voici un exemple qui te permettrait de refaire un fichier sans
la troisième ligne ...

Contenu de file1.txt :
Ligne 1
Ligne 2
Ligne 3
Ligne 4
Ligne 5

<non testé>
'***
' Module1

Private Sub Main()

Dim f1 As CFile
Dim f2 As CFile
Dim i As Long
Dim lLigneSupprimer As Long

lLigneSupprimer = 3 ' Indique la ligne a supprimer

Set f1 = New CFile
Call f1.ReadFile("c:file1.txt")

Set f2 = New CFile
For i = 1 To f1.LineCount
If i <> iLigneSupprimer Then
Call f2.AppendLine(f1.Lines(i))
End If
Next i

Call f2.SaveAs("C:file2.txt")

End Sub

Bonjour,

je voudrais supprimer un ligne d'un fichier texte. comment
dois-je m'y prendre? un peu co pr ajouter co ca :
Open "c:Partagevbsendmessengercontacts.txt" For Append As
1 Print #1, text_contact.Text
Close 1

??
















Avatar
eric
ds la ligne "Dim f1 As CFile", CFile c'est la classe pas un type non?



"François Picalausa" a écrit dans le message news:

Bonjour/soir,

As-tu bien nommé la classe CFile sans fautes?

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


eric wrote:
> Oui! j'ai bien créé un module de classe. ms il trouve pas la classe
> apparemment.
>
>
> "Bismark Prods" a écrit dans le message news:
> #
>> c'est un module de classe attention ! pas un simple module !
>>
>> "eric" a écrit dans le message de
>> news:
>>> c'est ce que j'ai fais ms il me met que le type est indéfini.
>>>
>>>
>>> "François Picalausa" a écrit dans le message
>>> news:
>>>> Bonjour/soir,
>>>>
>>>> En employant l'exemple de Zoury:
>>>>
>>>> Dim f1 As CFile
>>>> Dim f2 As CFile
>>>> ...
>>>>
>>>> Set f1 = New CFile
>>>> ...
>>>> Set f2 = New CFile
>>>>
>>>> Et en oubliant pas à la fin:
>>>> Set f1 = Nothing
>>>> Set f2 = Nothing
>>>>
>>>> --
>>>> François Picalausa (MVP VB)
>>>> FAQ VB : http://faq.vb.free.fr
>>>> MSDN : http://msdn.microsoft.com
>>>>
>>>>
>>>> eric wrote:
>>>>> J'ai créé la classe mais comment je fais pour l'appeler?
>>>>>
>>>>>
>>>>>
>>>>> "François Picalausa" a écrit dans le message
>>>>> news:
>>>>>> Bonjour/soir,
>>>>>>
>>>>>> Elle est dispo dans ce post:
>>>>>>
>>>>>
>>>>
>>>
>>
>



http://groups.google.com/groups?selm=OL%23%24KxSIDHA.1732%40TK2MSFTNGP11.phx
>>>>> .gbl
>>>>>>
>>>>>> --
>>>>>> François Picalausa (MVP VB)
>>>>>> FAQ VB : http://faq.vb.free.fr
>>>>>> MSDN : http://msdn.microsoft.com
>>>>>>
>>>>>>
>>>>>> eric wrote:
>>>>>>> c'est pas mal ta méthode ms je n'ai pas la classe Cfile. où je
>>>>>>> pourrais la trouver?
>>>>>>>
>>>>>>>
>>>>>>> Tu pourrais utiliser ma classe CFile... c'est non nécessaire
>>>>>>> dans ce cas mais quand même simple à utiliser si tu n'est pas à
>>>>>>> l'aise avec les instructions de fichier..
>>>>>>>
>>>>>>> voici un exemple qui te permettrait de refaire un fichier sans
>>>>>>> la troisième ligne ...
>>>>>>>
>>>>>>> Contenu de file1.txt :
>>>>>>> Ligne 1
>>>>>>> Ligne 2
>>>>>>> Ligne 3
>>>>>>> Ligne 4
>>>>>>> Ligne 5
>>>>>>>
>>>>>>> <non testé>
>>>>>>> '***
>>>>>>> ' Module1
>>>>>>>
>>>>>>> Private Sub Main()
>>>>>>>
>>>>>>> Dim f1 As CFile
>>>>>>> Dim f2 As CFile
>>>>>>> Dim i As Long
>>>>>>> Dim lLigneSupprimer As Long
>>>>>>>
>>>>>>> lLigneSupprimer = 3 ' Indique la ligne a supprimer
>>>>>>>
>>>>>>> Set f1 = New CFile
>>>>>>> Call f1.ReadFile("c:file1.txt")
>>>>>>>
>>>>>>> Set f2 = New CFile
>>>>>>> For i = 1 To f1.LineCount
>>>>>>> If i <> iLigneSupprimer Then
>>>>>>> Call f2.AppendLine(f1.Lines(i))
>>>>>>> End If
>>>>>>> Next i
>>>>>>>
>>>>>>> Call f2.SaveAs("C:file2.txt")
>>>>>>>
>>>>>>> End Sub
>>>>>>>
>>>>>>>> Bonjour,
>>>>>>>>
>>>>>>>> je voudrais supprimer un ligne d'un fichier texte. comment
>>>>>>>> dois-je m'y prendre? un peu co pr ajouter co ca :
>>>>>>>> Open "c:Partagevbsendmessengercontacts.txt" For Append As
>>>>>>>> 1 Print #1, text_contact.Text
>>>>>>>> Close 1
>>>>>>>>
>>>>>>>> ??




Avatar
Zoury
Salut!

Si on récapitule les étapes...

- Tu te créer un nouveau projet Standard Exe.
- Tu supprimes le Form1 qui y est inclus par défaut.
- Tu ajoutes un module (standard) et un module de classe.
- Tu renomme le module de classe CFile.
- Tu copies le code contenu dans le post vers lequel François t'a redirigé
dedans.
- Tu copies le code que je t'ai posté dedans.
- Tu appuis sur Ctrl-F5.

Si ça ne fonctionne toujours pas je vais te posté le projet entier..

--
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/
"François Picalausa" wrote in message
news:
: Bonjour/soir,
:
: C'est un type de donnée se rapportant à la classe....
:
: --
: François Picalausa (MVP VB)
: FAQ VB : http://faq.vb.free.fr
: MSDN : http://msdn.microsoft.com
:
:
: eric wrote:
: > ds la ligne "Dim f1 As CFile", CFile c'est la classe pas un type non?
: >
: >
: >
: > "François Picalausa" a écrit dans le message
: > news:
: >> Bonjour/soir,
: >>
: >> As-tu bien nommé la classe CFile sans fautes?
: >>
: >> --
: >> François Picalausa (MVP VB)
: >> FAQ VB : http://faq.vb.free.fr
: >> MSDN : http://msdn.microsoft.com
: >>
: >>
: >> eric wrote:
: >>> Oui! j'ai bien créé un module de classe. ms il trouve pas la classe
: >>> apparemment.
: >>>
: >>>
: >>> "Bismark Prods" a écrit dans le message news:
: >>> #
: >>>> c'est un module de classe attention ! pas un simple module !
: >>>>
: >>>> "eric" a écrit dans le message de
: >>>> news:
: >>>>> c'est ce que j'ai fais ms il me met que le type est indéfini.
: >>>>>
: >>>>>
: >>>>> "François Picalausa" a écrit dans le message
: >>>>> news:
: >>>>>> Bonjour/soir,
: >>>>>>
: >>>>>> En employant l'exemple de Zoury:
: >>>>>>
: >>>>>> Dim f1 As CFile
: >>>>>> Dim f2 As CFile
: >>>>>> ...
: >>>>>>
: >>>>>> Set f1 = New CFile
: >>>>>> ...
: >>>>>> Set f2 = New CFile
: >>>>>>
: >>>>>> Et en oubliant pas à la fin:
: >>>>>> Set f1 = Nothing
: >>>>>> Set f2 = Nothing
: >>>>>>
: >>>>>> --
: >>>>>> François Picalausa (MVP VB)
: >>>>>> FAQ VB : http://faq.vb.free.fr
: >>>>>> MSDN : http://msdn.microsoft.com
: >>>>>>
: >>>>>>
: >>>>>> eric wrote:
: >>>>>>> J'ai créé la classe mais comment je fais pour l'appeler?
: >>>>>>>
: >>>>>>>
: >>>>>>>
: >>>>>>> "François Picalausa" a écrit dans le
: >>>>>>> message news:
: >>>>>>>> Bonjour/soir,
: >>>>>>>>
: >>>>>>>> Elle est dispo dans ce post:
: >>>>>>>>
: >>>>>>>
: >>>>>>
: >>>>>
: >>>>
: >>>
: >>
: >
: http://groups.google.com/groups?selm=OL%23%24KxSIDHA.1732%40TK2MSFTNGP11.phx
: >>>>>>> .gbl
: >>>>>>>>
: >>>>>>>> --
: >>>>>>>> François Picalausa (MVP VB)
: >>>>>>>> FAQ VB : http://faq.vb.free.fr
: >>>>>>>> MSDN : http://msdn.microsoft.com
: >>>>>>>>
: >>>>>>>>
: >>>>>>>> eric wrote:
: >>>>>>>>> c'est pas mal ta méthode ms je n'ai pas la classe Cfile. où je
: >>>>>>>>> pourrais la trouver?
: >>>>>>>>>
: >>>>>>>>>
: >>>>>>>>> Tu pourrais utiliser ma classe CFile... c'est non nécessaire
: >>>>>>>>> dans ce cas mais quand même simple à utiliser si tu n'est pas
: >>>>>>>>> à l'aise avec les instructions de fichier..
: >>>>>>>>>
: >>>>>>>>> voici un exemple qui te permettrait de refaire un fichier sans
: >>>>>>>>> la troisième ligne ...
: >>>>>>>>>
: >>>>>>>>> Contenu de file1.txt :
: >>>>>>>>> Ligne 1
: >>>>>>>>> Ligne 2
: >>>>>>>>> Ligne 3
: >>>>>>>>> Ligne 4
: >>>>>>>>> Ligne 5
: >>>>>>>>>
: >>>>>>>>> <non testé>
: >>>>>>>>> '***
: >>>>>>>>> ' Module1
: >>>>>>>>>
: >>>>>>>>> Private Sub Main()
: >>>>>>>>>
: >>>>>>>>> Dim f1 As CFile
: >>>>>>>>> Dim f2 As CFile
: >>>>>>>>> Dim i As Long
: >>>>>>>>> Dim lLigneSupprimer As Long
: >>>>>>>>>
: >>>>>>>>> lLigneSupprimer = 3 ' Indique la ligne a supprimer
: >>>>>>>>>
: >>>>>>>>> Set f1 = New CFile
: >>>>>>>>> Call f1.ReadFile("c:file1.txt")
: >>>>>>>>>
: >>>>>>>>> Set f2 = New CFile
: >>>>>>>>> For i = 1 To f1.LineCount
: >>>>>>>>> If i <> iLigneSupprimer Then
: >>>>>>>>> Call f2.AppendLine(f1.Lines(i))
: >>>>>>>>> End If
: >>>>>>>>> Next i
: >>>>>>>>>
: >>>>>>>>> Call f2.SaveAs("C:file2.txt")
: >>>>>>>>>
: >>>>>>>>> End Sub
: >>>>>>>>>
: >>>>>>>>>> Bonjour,
: >>>>>>>>>>
: >>>>>>>>>> je voudrais supprimer un ligne d'un fichier texte. comment
: >>>>>>>>>> dois-je m'y prendre? un peu co pr ajouter co ca :
: >>>>>>>>>> Open "c:Partagevbsendmessengercontacts.txt" For Append
: >>>>>>>>>> As 1 Print #1, text_contact.Text
: >>>>>>>>>> Close 1
: >>>>>>>>>>
: >>>>>>>>>> ??
:
:
Avatar
eric
Ca veut tjs pas fonctionner...



"Zoury" a écrit dans le message news:
OqSS$
Salut!

Si on récapitule les étapes...

- Tu te créer un nouveau projet Standard Exe.
- Tu supprimes le Form1 qui y est inclus par défaut.
- Tu ajoutes un module (standard) et un module de classe.
- Tu renomme le module de classe CFile.
- Tu copies le code contenu dans le post vers lequel François t'a redirigé
dedans.
- Tu copies le code que je t'ai posté dedans.
- Tu appuis sur Ctrl-F5.

Si ça ne fonctionne toujours pas je vais te posté le projet entier..

--
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/
"François Picalausa" wrote in message
news:
: Bonjour/soir,
:
: C'est un type de donnée se rapportant à la classe....
:
: --
: François Picalausa (MVP VB)
: FAQ VB : http://faq.vb.free.fr
: MSDN : http://msdn.microsoft.com
:
:
: eric wrote:
: > ds la ligne "Dim f1 As CFile", CFile c'est la classe pas un type non?
: >
: >
: >
: > "François Picalausa" a écrit dans le message
: > news:
: >> Bonjour/soir,
: >>
: >> As-tu bien nommé la classe CFile sans fautes?
: >>
: >> --
: >> François Picalausa (MVP VB)
: >> FAQ VB : http://faq.vb.free.fr
: >> MSDN : http://msdn.microsoft.com
: >>
: >>
: >> eric wrote:
: >>> Oui! j'ai bien créé un module de classe. ms il trouve pas la classe
: >>> apparemment.
: >>>
: >>>
: >>> "Bismark Prods" a écrit dans le message news:
: >>> #
: >>>> c'est un module de classe attention ! pas un simple module !
: >>>>
: >>>> "eric" a écrit dans le message de
: >>>> news:
: >>>>> c'est ce que j'ai fais ms il me met que le type est indéfini.
: >>>>>
: >>>>>
: >>>>> "François Picalausa" a écrit dans le message
: >>>>> news:
: >>>>>> Bonjour/soir,
: >>>>>>
: >>>>>> En employant l'exemple de Zoury:
: >>>>>>
: >>>>>> Dim f1 As CFile
: >>>>>> Dim f2 As CFile
: >>>>>> ...
: >>>>>>
: >>>>>> Set f1 = New CFile
: >>>>>> ...
: >>>>>> Set f2 = New CFile
: >>>>>>
: >>>>>> Et en oubliant pas à la fin:
: >>>>>> Set f1 = Nothing
: >>>>>> Set f2 = Nothing
: >>>>>>
: >>>>>> --
: >>>>>> François Picalausa (MVP VB)
: >>>>>> FAQ VB : http://faq.vb.free.fr
: >>>>>> MSDN : http://msdn.microsoft.com
: >>>>>>
: >>>>>>
: >>>>>> eric wrote:
: >>>>>>> J'ai créé la classe mais comment je fais pour l'appeler?
: >>>>>>>
: >>>>>>>
: >>>>>>>
: >>>>>>> "François Picalausa" a écrit dans le
: >>>>>>> message news:
: >>>>>>>> Bonjour/soir,
: >>>>>>>>
: >>>>>>>> Elle est dispo dans ce post:
: >>>>>>>>
: >>>>>>>
: >>>>>>
: >>>>>
: >>>>
: >>>
: >>
: >
:


http://groups.google.com/groups?selm=OL%23%24KxSIDHA.1732%40TK2MSFTNGP11.phx
: >>>>>>> .gbl
: >>>>>>>>
: >>>>>>>> --
: >>>>>>>> François Picalausa (MVP VB)
: >>>>>>>> FAQ VB : http://faq.vb.free.fr
: >>>>>>>> MSDN : http://msdn.microsoft.com
: >>>>>>>>
: >>>>>>>>
: >>>>>>>> eric wrote:
: >>>>>>>>> c'est pas mal ta méthode ms je n'ai pas la classe Cfile. où je
: >>>>>>>>> pourrais la trouver?
: >>>>>>>>>
: >>>>>>>>>
: >>>>>>>>> Tu pourrais utiliser ma classe CFile... c'est non nécessaire
: >>>>>>>>> dans ce cas mais quand même simple à utiliser si tu n'est pas
: >>>>>>>>> à l'aise avec les instructions de fichier..
: >>>>>>>>>
: >>>>>>>>> voici un exemple qui te permettrait de refaire un fichier sans
: >>>>>>>>> la troisième ligne ...
: >>>>>>>>>
: >>>>>>>>> Contenu de file1.txt :
: >>>>>>>>> Ligne 1
: >>>>>>>>> Ligne 2
: >>>>>>>>> Ligne 3
: >>>>>>>>> Ligne 4
: >>>>>>>>> Ligne 5
: >>>>>>>>>
: >>>>>>>>> <non testé>
: >>>>>>>>> '***
: >>>>>>>>> ' Module1
: >>>>>>>>>
: >>>>>>>>> Private Sub Main()
: >>>>>>>>>
: >>>>>>>>> Dim f1 As CFile
: >>>>>>>>> Dim f2 As CFile
: >>>>>>>>> Dim i As Long
: >>>>>>>>> Dim lLigneSupprimer As Long
: >>>>>>>>>
: >>>>>>>>> lLigneSupprimer = 3 ' Indique la ligne a supprimer
: >>>>>>>>>
: >>>>>>>>> Set f1 = New CFile
: >>>>>>>>> Call f1.ReadFile("c:file1.txt")
: >>>>>>>>>
: >>>>>>>>> Set f2 = New CFile
: >>>>>>>>> For i = 1 To f1.LineCount
: >>>>>>>>> If i <> iLigneSupprimer Then
: >>>>>>>>> Call f2.AppendLine(f1.Lines(i))
: >>>>>>>>> End If
: >>>>>>>>> Next i
: >>>>>>>>>
: >>>>>>>>> Call f2.SaveAs("C:file2.txt")
: >>>>>>>>>
: >>>>>>>>> End Sub
: >>>>>>>>>
: >>>>>>>>>> Bonjour,
: >>>>>>>>>>
: >>>>>>>>>> je voudrais supprimer un ligne d'un fichier texte. comment
: >>>>>>>>>> dois-je m'y prendre? un peu co pr ajouter co ca :
: >>>>>>>>>> Open "c:Partagevbsendmessengercontacts.txt" For Append
: >>>>>>>>>> As 1 Print #1, text_contact.Text
: >>>>>>>>>> Close 1
: >>>>>>>>>>
: >>>>>>>>>> ??
:
:



Avatar
Zoury
Essai avec ce code dans le module... il y avait des erreurs de syntaxe dans
l'autre (d'où l'avertissement pour le non testé) :O/

'***
' Module1

Option Explicit

Private Sub Main()

Dim f1 As CFile
Dim f2 As CFile
Dim i As Long
Dim lLigneSupprimer As Long

lLigneSupprimer = 3 ' Indique la ligne a supprimer

Set f1 = New CFile
Call f1.OpenFile("c:file1.txt")

Set f2 = New CFile
For i = 1 To f1.LineCount
If i <> lLigneSupprimer Then
Call f2.AppendLine(f1.Lines(i))
End If
Next i

Call f2.SaveFileAs("c:file2.txt")

End Sub
'***

--
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/
"eric" wrote in message
news:%23$
: Ca veut tjs pas fonctionner...
:
:
:
: "Zoury" a écrit dans le message news:
: OqSS$
: > Salut!
: >
: > Si on récapitule les étapes...
: >
: > - Tu te créer un nouveau projet Standard Exe.
: > - Tu supprimes le Form1 qui y est inclus par défaut.
: > - Tu ajoutes un module (standard) et un module de classe.
: > - Tu renomme le module de classe CFile.
: > - Tu copies le code contenu dans le post vers lequel François t'a redirigé
: > dedans.
: > - Tu copies le code que je t'ai posté dedans.
: > - Tu appuis sur Ctrl-F5.
: >
: > Si ça ne fonctionne toujours pas je vais te posté le projet entier..
: >
: > --
: > 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/
: > "François Picalausa" wrote in message
: > news:
: > : Bonjour/soir,
: > :
: > : C'est un type de donnée se rapportant à la classe....
: > :
: > : --
: > : François Picalausa (MVP VB)
: > : FAQ VB : http://faq.vb.free.fr
: > : MSDN : http://msdn.microsoft.com
: > :
: > :
: > : eric wrote:
: > : > ds la ligne "Dim f1 As CFile", CFile c'est la classe pas un type non?
: > : >
: > : >
: > : >
: > : > "François Picalausa" a écrit dans le message
: > : > news:
: > : >> Bonjour/soir,
: > : >>
: > : >> As-tu bien nommé la classe CFile sans fautes?
: > : >>
: > : >> --
: > : >> François Picalausa (MVP VB)
: > : >> FAQ VB : http://faq.vb.free.fr
: > : >> MSDN : http://msdn.microsoft.com
: > : >>
: > : >>
: > : >> eric wrote:
: > : >>> Oui! j'ai bien créé un module de classe. ms il trouve pas la classe
: > : >>> apparemment.
: > : >>>
: > : >>>
: > : >>> "Bismark Prods" a écrit dans le message news:
: > : >>> #
: > : >>>> c'est un module de classe attention ! pas un simple module !
: > : >>>>
: > : >>>> "eric" a écrit dans le message de
: > : >>>> news:
: > : >>>>> c'est ce que j'ai fais ms il me met que le type est indéfini.
: > : >>>>>
: > : >>>>>
: > : >>>>> "François Picalausa" a écrit dans le message
: > : >>>>> news:
: > : >>>>>> Bonjour/soir,
: > : >>>>>>
: > : >>>>>> En employant l'exemple de Zoury:
: > : >>>>>>
: > : >>>>>> Dim f1 As CFile
: > : >>>>>> Dim f2 As CFile
: > : >>>>>> ...
: > : >>>>>>
: > : >>>>>> Set f1 = New CFile
: > : >>>>>> ...
: > : >>>>>> Set f2 = New CFile
: > : >>>>>>
: > : >>>>>> Et en oubliant pas à la fin:
: > : >>>>>> Set f1 = Nothing
: > : >>>>>> Set f2 = Nothing
: > : >>>>>>
: > : >>>>>> --
: > : >>>>>> François Picalausa (MVP VB)
: > : >>>>>> FAQ VB : http://faq.vb.free.fr
: > : >>>>>> MSDN : http://msdn.microsoft.com
: > : >>>>>>
: > : >>>>>>
: > : >>>>>> eric wrote:
: > : >>>>>>> J'ai créé la classe mais comment je fais pour l'appeler?
: > : >>>>>>>
: > : >>>>>>>
: > : >>>>>>>
: > : >>>>>>> "François Picalausa" a écrit dans le
: > : >>>>>>> message news:
: > : >>>>>>>> Bonjour/soir,
: > : >>>>>>>>
: > : >>>>>>>> Elle est dispo dans ce post:
: > : >>>>>>>>
: > : >>>>>>>
: > : >>>>>>
: > : >>>>>
: > : >>>>
: > : >>>
: > : >>
: > : >
: > :
: http://groups.google.com/groups?selm=OL%23%24KxSIDHA.1732%40TK2MSFTNGP11.phx
: > : >>>>>>> .gbl
: > : >>>>>>>>
: > : >>>>>>>> --
: > : >>>>>>>> François Picalausa (MVP VB)
: > : >>>>>>>> FAQ VB : http://faq.vb.free.fr
: > : >>>>>>>> MSDN : http://msdn.microsoft.com
: > : >>>>>>>>
: > : >>>>>>>>
: > : >>>>>>>> eric wrote:
: > : >>>>>>>>> c'est pas mal ta méthode ms je n'ai pas la classe Cfile. où je
: > : >>>>>>>>> pourrais la trouver?
: > : >>>>>>>>>
: > : >>>>>>>>>
: > : >>>>>>>>> Tu pourrais utiliser ma classe CFile... c'est non nécessaire
: > : >>>>>>>>> dans ce cas mais quand même simple à utiliser si tu n'est pas
: > : >>>>>>>>> à l'aise avec les instructions de fichier..
: > : >>>>>>>>>
: > : >>>>>>>>> voici un exemple qui te permettrait de refaire un fichier sans
: > : >>>>>>>>> la troisième ligne ...
: > : >>>>>>>>>
: > : >>>>>>>>> Contenu de file1.txt :
: > : >>>>>>>>> Ligne 1
: > : >>>>>>>>> Ligne 2
: > : >>>>>>>>> Ligne 3
: > : >>>>>>>>> Ligne 4
: > : >>>>>>>>> Ligne 5
: > : >>>>>>>>>
: > : >>>>>>>>> <non testé>
: > : >>>>>>>>> '***
: > : >>>>>>>>> ' Module1
: > : >>>>>>>>>
: > : >>>>>>>>> Private Sub Main()
: > : >>>>>>>>>
: > : >>>>>>>>> Dim f1 As CFile
: > : >>>>>>>>> Dim f2 As CFile
: > : >>>>>>>>> Dim i As Long
: > : >>>>>>>>> Dim lLigneSupprimer As Long
: > : >>>>>>>>>
: > : >>>>>>>>> lLigneSupprimer = 3 ' Indique la ligne a supprimer
: > : >>>>>>>>>
: > : >>>>>>>>> Set f1 = New CFile
: > : >>>>>>>>> Call f1.ReadFile("c:file1.txt")
: > : >>>>>>>>>
: > : >>>>>>>>> Set f2 = New CFile
: > : >>>>>>>>> For i = 1 To f1.LineCount
: > : >>>>>>>>> If i <> iLigneSupprimer Then
: > : >>>>>>>>> Call f2.AppendLine(f1.Lines(i))
: > : >>>>>>>>> End If
: > : >>>>>>>>> Next i
: > : >>>>>>>>>
: > : >>>>>>>>> Call f2.SaveAs("C:file2.txt")
: > : >>>>>>>>>
: > : >>>>>>>>> End Sub
: > : >>>>>>>>>
: > : >>>>>>>>>> Bonjour,
: > : >>>>>>>>>>
: > : >>>>>>>>>> je voudrais supprimer un ligne d'un fichier texte. comment
: > : >>>>>>>>>> dois-je m'y prendre? un peu co pr ajouter co ca :
: > : >>>>>>>>>> Open "c:Partagevbsendmessengercontacts.txt" For Append
: > : >>>>>>>>>> As 1 Print #1, text_contact.Text
: > : >>>>>>>>>> Close 1
: > : >>>>>>>>>>
: > : >>>>>>>>>> ??
: > :
: > :
: >
:
:
1 2