begin process at 2012 02 13 23:34:14
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > TUTO VB6 : SUPPRIMER UNE LIGNE DANS UN FICHIER

TUTO VB6 : SUPPRIMER UNE LIGNE DANS UN FICHIER


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :supprimer, ligne, fichier Niveau :Débutant Date de création :15/05/2004 Date de mise à jour :31/10/2005 22:40:26 Vu / téléchargé :14 804 / 2 012

Auteur : jack

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note


 Description

Une idée avec Proviste : créer un module de fonction identique en VB6 et en VB.NET --> Voici la version VB6.
( Version .Net ici  http://www.vbfrance.com/code.aspx?id=22827 )

Cette fonction, logée dans un module (facilement réutilisable) permet de supprimer :
- Soit une ligne, en précisant son numéro
- Soit du texte, en précisant le texte
Parmi les options, on peut choisir :
- Le fichier de destination (différent ou identique à l'original)
- Le type de comparaison (insensible aux majuscules ou pas)



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

31 octobre 2005 22:40:26 :
Ajout référence au projet en .Net

 Sources du même auteur

Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R...
Source avec Zip Source avec une capture [VBA EXCEL] CALCULER LA DISTANCE ENTRE DEUX COORDONNÉES GÉOG...
Source avec Zip Source avec une capture Source .NET (Dotnet) JPG + ZIP = JPG ET ZIP
Source avec Zip Source avec une capture SYSTRAY + BALLOON - VARIANTE AVEC TEXTE DANS L'ICÔNE
Source avec Zip Source avec une capture DATE-HEURE DE LANCEMENT D'UN PROGRAMME

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MODIFIER LES EXTENSION DES FICHIERS par okosa
ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde
Source avec Zip Source avec une capture FILE,SECURITY,FICHIER par okosa
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture LECTURE DES INFORMATIONS DES DISQUES COMPOSANT UN ENSEMBLE R... par jack

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) SUPPRIMER LIGNES VIDES FICHIER TEXTE par onix88
SUPPRIMER UN RACCOURCI DU BUREAU ET/OU DU MENU DÉMARRER par sergiooi
Source .NET (Dotnet) TUTO VB.NET : SUPPRIMER UNE LIGNE DANS UN FICHIER par Alain Proviste
SUPPRIMER UNE LIGNE DANS UN FICHIER par Willi
SUPPRIMER LES LIGNES VIDES DANS UN FICHIER TEXTE par ols

Commentaires et avis

Commentaire de Napster le 04/06/2004 23:32:42

ben pour supprimer une ligne il faut preciser le numero de la ligne , suposent que que je veu supprimer une ligne d'un autre programme , et comment je vais savoire le numero de la ligne si je suis pas le createur de ce programme ????

Commentaire de jack le 04/06/2004 23:48:06 administrateur CS

Napster : ici je parle de fichier texte, pas de programmes.
De plus, si tu regardes bien, tu peux aussi supprimer un ligne en entrant le texte à supprimer.

Commentaire de Alain Proviste le 22/08/2004 13:34:15 administrateur CS

http://www.vbfrance.com/code.aspx?ID=22827

Version dotnet

Commentaire de evilmajestik le 01/12/2004 11:24:02

et pour supprimer juste un caractère donné faut faire comment ?
J'ai une ligne avec des " et je voudrais les supprimer dans le fichier texte avant des les importer dans ACCESS.

Merci.

Commentaire de jack le 16/03/2006 20:08:15 administrateur CS

John7 disait :
Bonjour jack, voilà,je me sert de votre source pour supprimer 2 lignes dans un fichier texte. La première(là il n'y a pas de problème) et la dernière. Pour l'instant je passe par le texte de la dernière ligne car j'ai un fichier test mais sinon c'est jamais le même texte de fin et bien entendu c'est jamais la même longueur de texte !! Faut-il passer le fichier par une nouvelle boucle et s'arréter à la fin du fichier-1 pour avoir la dernière ligne ou une autre solution plus en rapport avec votre source ? J'espère que vous me répondrez, en attendant...Trés bonne journée à vous .

Je réponds ... euh
Dans ton cas, tu ne connais pas le contenu de la ligne ni son numéro.
Il faut alors charger tout le fichier :
Open "monFichier.txt" For Binary As #1
Temp$ = Space(FileLen("monFichier.txt"))
Get #1, , Temp$  ' On lit tout le fichier d'un coup -> Temp
Close #1
Dim Tableau() As String
Tableau = Split(Temp$, vbCrLf)  ' Mets toutes les lignes dans un tableau
' La dernière ligne est dans Tableau(UBound(Tableau))
' Il suffit donc de réécrire le fichier, ligne par ligne, sans aller jusqu'au bout :
Open "monFichier.txt" For Output As #1
For r = 0 To (UBound(Tableau) - 1)
  Print #1, Tableau(r)
Next r
Close #1

Commentaire de BruNews le 16/03/2006 21:02:43 administrateur CS

Le Split va engager quasi 2,5 fois en mémoire la taille du fichier, ne passera pas si le fichier est gros, manque de mémoire assuré. Niveau temps de traitement c'est aussi la cata.
Il y a des cas (très souvent en VB) où il convient de se faire une vraie dll qui traitera cela en qlqs millisecondes.
- buffer de 4 Ko (suffisant pour 2 lignes) => VirtuallAlloc.
- Ouverture fichier => CreateFile.
- Taille fichier => GetFileSizeEx.
- Si taille > 4 Ko, aller au bout - 4 Ko => SetFilePointer.
- Remplir buffer => ReadFile (qui dira taille lue).
- Repositionner même place que avant lecture => SetFilePointer.
- Pointeur au bout du buffer, remonter tant que (Ptr > buffer) ET (2 sauts ligne non rencontrés).
- Si Ptr > buffer alors tamponner (Ptr - buffer) octets => WriteFile.
- Tronquer à la position actuelle du ptr de fichier => SetEndOfFile.
- Fermer fichier => CloseHandle.

Voila les 2 dernières lignes enlevées en un temps difficilement mesurable et sur nimporte quelle taille de fichier.

Commentaire de jihednond le 10/12/2008 15:40:25

lol source pro

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

supprimer UNE ligne dans un fichier txt [ par vince ] mon fichier texte contient par exemple 3 lignes de texte. Je souhaite supprimer la 1ere et en rajouter une à la fin (comme une mémoire déroulante).Mer Comment supprimer la première ligne dans un fichier texte? Merci:) [ par Kali ] Je crois que tout est dit dans le titre, j'ai besoin d'automatiser la suppression de la première ligne d'un fichier texte, est-ce possible?Peut-on par Comment supprimer la première ligne dans un fichier texte? Merci:) [ par Kali ] Je crois que tout est dit dans le titre, j'ai besoin d'automatiser la suppression de la première ligne d'un fichier texte, est-ce possible?Peut-on par fichier txt [ par dede86 ] Bonjour,j'ai un fichier txt qui contient plusieurs lignes de data.Je voudrais pouvoir chercher et supprimer une ligne de données de ce fichier.La rech Supprimer une ligne vide dans un fichier texte [ par zebu001 ] J'aimerais savoir comment supprimer simplement une ligne vide d'un fichier texte.Exemple de mon fichier :popo;toto;momo;lolo;papa;tata;mama;lala;pepe; Supprimer le retour a la ligne a la fin d'un richtextbox [ par z980x ] Salut !Dans mon programme, le contenu d'un rtb va etre inscrit dans un fichier texte.(Par la commande Print)Malheureusement, il y a un retour à la lig Problème avec fichier txt. [ par ptitrobertpointfr ] Bonsoir,J'essaye mais en vain de trouver la technique pour supprimer un ligne dans un fichier txt.Mon fichier est créé en mode Append et je veux suppr supprimer une ligne dans un fichier [ par curl ] Bonjour,Je cherche à supprimer une ligne dans un fichier texte .?Comment faire ?Je peux, ouvrir (open), me déplacer (seek), écrire (write) une ligne v supprimer une ligne dans un fichier .txt, par rapport à un identifiant (un numero) [ par logancalle ] Je voudrai a partir d'un bouton "supprimer", supprimer une ligne d'enregistrement dans un fichier txt, et qu'il reconnaisse la ligne à supprimer pa ra Supprimer du texte dans un fichier [ par mbar ] Bonjour, Je cherche à faire la manip suivante.Ouverture d'un fichier texte.Lecture d'une ligne de texte.Si la ligne est correcte, je la supprime du fi


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,092 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales