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
EddiGordo
"Christophe JOYEZ" vient de nous annoncer :
Bonjour à tous,
Win98 / VB6
j'ai un fichier txt qui contient les lignes suivantes :
"aaa 4 " "bbb 2 " "ccc 1 "
et je voudrais supprimer le caractere de retour chariot de chaque fin de ligne de manière à obtenir la ligne suivante : "aaa 4 bbb 2 ccc 1 "
Est il possible de le detecter et de le supprimer simplement ?
Par avance merci,
Bonjour
' Ouverture et lecture du fichier Dim Lecture As String, Ff as Long Ff = FreeFile Open "C:MonFichier.Txt" For Binary As Ff Lecture = String$(LOF(Ff), Chr$(0)) Get #Ff, , Lecture Close Ff
j'ai un fichier txt qui contient les lignes suivantes :
"aaa 4 "
"bbb 2 "
"ccc 1 "
et je voudrais supprimer le caractere de retour chariot de chaque fin de
ligne de manière à obtenir la ligne suivante :
"aaa 4 bbb 2 ccc 1 "
Est il possible de le detecter et de le supprimer simplement ?
Par avance merci,
Bonjour
' Ouverture et lecture du fichier
Dim Lecture As String, Ff as Long
Ff = FreeFile
Open "C:MonFichier.Txt" For Binary As Ff
Lecture = String$(LOF(Ff), Chr$(0))
Get #Ff, , Lecture
Close Ff
j'ai un fichier txt qui contient les lignes suivantes :
"aaa 4 " "bbb 2 " "ccc 1 "
et je voudrais supprimer le caractere de retour chariot de chaque fin de ligne de manière à obtenir la ligne suivante : "aaa 4 bbb 2 ccc 1 "
Est il possible de le detecter et de le supprimer simplement ?
Par avance merci,
Bonjour
' Ouverture et lecture du fichier Dim Lecture As String, Ff as Long Ff = FreeFile Open "C:MonFichier.Txt" For Binary As Ff Lecture = String$(LOF(Ff), Chr$(0)) Get #Ff, , Lecture Close Ff
Bonjour Comme indiqué dans la réponse de EddiGordo il te faut supprimer et le retour chariot et le saut à la ligne
chr(10) et chr(13)
christophe Vergon
"Christophe JOYEZ" a écrit dans le message de news: bltukb$ov9$
Bonjour à tous,
Win98 / VB6
j'ai un fichier txt qui contient les lignes suivantes :
"aaa 4 " "bbb 2 " "ccc 1 "
et je voudrais supprimer le caractere de retour chariot de chaque fin de ligne de manière à obtenir la ligne suivante : "aaa 4 bbb 2 ccc 1 "
Est il possible de le detecter et de le supprimer simplement ?
Par avance merci,
Christophe JOYEZ
Un grand merci à tous les 2 pour cette aide rapide Ca marche du tonnere
"EddiGordo" a écrit dans le message de news:
"Christophe JOYEZ" vient de nous annoncer : > Bonjour à tous, > > Win98 / VB6 > > j'ai un fichier txt qui contient les lignes suivantes : > > "aaa 4 " > "bbb 2 " > "ccc 1 " > > et je voudrais supprimer le caractere de retour chariot de chaque fin de > ligne de manière à obtenir la ligne suivante : > "aaa 4 bbb 2 ccc 1 " > > Est il possible de le detecter et de le supprimer simplement ? > > Par avance merci,
Bonjour
' Ouverture et lecture du fichier Dim Lecture As String, Ff as Long Ff = FreeFile Open "C:MonFichier.Txt" For Binary As Ff Lecture = String$(LOF(Ff), Chr$(0)) Get #Ff, , Lecture Close Ff
Un grand merci à tous les 2 pour cette aide rapide
Ca marche du tonnere
"EddiGordo" <Eddigordo@fr.st> a écrit dans le message de news:
mesnews.3a8e7d3a.cc8aaf2d.7.0@fr.st...
"Christophe JOYEZ" vient de nous annoncer :
> Bonjour à tous,
>
> Win98 / VB6
>
> j'ai un fichier txt qui contient les lignes suivantes :
>
> "aaa 4 "
> "bbb 2 "
> "ccc 1 "
>
> et je voudrais supprimer le caractere de retour chariot de chaque fin de
> ligne de manière à obtenir la ligne suivante :
> "aaa 4 bbb 2 ccc 1 "
>
> Est il possible de le detecter et de le supprimer simplement ?
>
> Par avance merci,
Bonjour
' Ouverture et lecture du fichier
Dim Lecture As String, Ff as Long
Ff = FreeFile
Open "C:MonFichier.Txt" For Binary As Ff
Lecture = String$(LOF(Ff), Chr$(0))
Get #Ff, , Lecture
Close Ff
Un grand merci à tous les 2 pour cette aide rapide Ca marche du tonnere
"EddiGordo" a écrit dans le message de news:
"Christophe JOYEZ" vient de nous annoncer : > Bonjour à tous, > > Win98 / VB6 > > j'ai un fichier txt qui contient les lignes suivantes : > > "aaa 4 " > "bbb 2 " > "ccc 1 " > > et je voudrais supprimer le caractere de retour chariot de chaque fin de > ligne de manière à obtenir la ligne suivante : > "aaa 4 bbb 2 ccc 1 " > > Est il possible de le detecter et de le supprimer simplement ? > > Par avance merci,
Bonjour
' Ouverture et lecture du fichier Dim Lecture As String, Ff as Long Ff = FreeFile Open "C:MonFichier.Txt" For Binary As Ff Lecture = String$(LOF(Ff), Chr$(0)) Get #Ff, , Lecture Close Ff