Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 16 00:50:03

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

Texte

mercredi 8 mars 2006 à 18:22:16 | Texte

John7

22 msg

45 msg CS

bonjour à tous,

Voilà mon problème: J'ai un fichier texte et je voudrais lire ligne par ligne et chaque ligne la découper en N caractères pour pouvoir mettre certaine données dans une DB.
Bien sur je pourrais mettre un bouton qui change de ligne à chaque fois, mais sur un fichier de 16 mo, j'ai pas fini !!!
Si vous avez une bonne idée. Merci d'avance.
john

mercredi 8 mars 2006 à 19:05:00 | Re : Texte

casy

7047 msg

7979 msg CS

Réponse acceptée !
J'ai pas très bien compris ton problème. Pourquoi tu veux un bouton pour passer à la ligne suivante ?
Lorsque tu as lu une ligne, le pointeur dans ton fichier est automatiquement positionné sur la ligne suivante, tu n'as pas besoin de changer de ligne, il te suffit de lire séquentiellement les lignes les unes après les autres. Tu peux faire ça dans une boucle par exemple :

Tant que pas fin du fichier
--> lecture de la ligne
--> traitement de la ligne lue
--> enregistrement des données
--> et on reboucle

mercredi 8 mars 2006 à 19:16:25 | Re : Texte

ScSami

968 msg

1023 msg CS

En effet!!! Autrement dit, il faut un code du genre :

Dim varCheminDuFichier As String
Dim varCanal As Integer '0-512

varCheminDuFichier = "C:\...\...\fichier.ext"
varCanal = FreeFile

Open varCheminDuFichier As Input As varCanal
Do While Not(EOF(varCanal)
Line Input #varCanal, maVariableATraiter
'traitement de ta variable (ta ligne récupérée)
Loop
Close varCanal

Enjoy

( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )<

mercredi 8 mars 2006 à 19:54:03 | Re : Texte

John7

22 msg

45 msg CS

Bonsoir ScSami et merci pour cette réponse
Le plus gros problème c'est que dans chaque ligne, j'ai des données a récupérer qui ne sont pas identiques. Je m'explique:
Voiçi une ligne type: 201500000000000000000000000170BMAUTO COR_B39.9 2003043020030808075848
je dois couper cette ligne à partir du début en 9 puis 6 puis 6 puis1 puis 2 puis 3 chiffres et c'est à partir des 3 chiffres, suivant les chiffres, que je mets dans une DB ce qui suit !!! j'espere que ça va, c'est pas dur a comprendre mais à ecrire!!!!

john

mercredi 8 mars 2006 à 20:36:24 | Re : Texte

ScSami

968 msg

1023 msg CS

Bon, je sais pas exactement comment tu veux faire exactement et comment ni même ce que tu veux mettre dans ta DB mais pour découper une String, c'est pas compliqué : il faut utiliser Mid !
Mid(String, Début, Longueur)
P.ex. : Mid("ABCD", 2, 3) >> "BCD"

Remplace ceci :
'traitement de ta variable (ta ligne récupérée)
Par un truc du genre :
Partie1 = Mid(maVariableATraiter, 1, 9)
Partie2 = Mid(maVariableATraiter, 10, 6)
Partie3 = Mid(maVariableATraiter, 16, 6)
Partie4 = Mid(maVariableATraiter, 22, 6)
Partie5 = Mid(maVariableATraiter, 28, 1)
Partie6 = Mid(maVariableATraiter, 29, 3)

Ensuite, c'est à toi de voir quoi faire de toutes ces parties et comment les traiter !!!
Mais ça, c'est un autre problème (qui mériterait un autre post sans doute!)...

Enjoy

( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )<

mercredi 8 mars 2006 à 21:27:56 | Re : Texte

John7

22 msg

45 msg CS

Mercci ScSami mais comment faire pour passer à une autre ligne automatiquement
A+

john

mercredi 8 mars 2006 à 21:40:10 | Re : Texte

econs

3031 msg

3344 msg CS

Réponse acceptée !

Salut,
Il faut combiner les deux codes de ScSami :

Dim varCheminDuFichier As String
Dim varCanal As Integer '0-512

varCheminDuFichier = "C:\...\...\fichier.ext"
varCanal = FreeFile

Open varCheminDuFichier For Input As varCanal
    While Not(EOF(varCanal)
        Line Input #varCanal, maVariableATraiter
        Partie1 = Mid(maVariableATraiter, 1, 9)
        Partie2 = Mid(maVariableATraiter, 10, 6)
        Partie3 = Mid(maVariableATraiter, 16, 6)
        Partie4 = Mid(maVariableATraiter, 22, 6)
        Partie5 = Mid(maVariableATraiter, 28, 1)
        Partie6 = Mid(maVariableATraiter, 29, 3)
    Wend
Close varCanal

La méthode Line Input passe automatiquement à la ligne suivante après avoir lu une ligne. Et la boucle While te permet de faire çà jusqu'à la fin du fichier.

Manu

mercredi 8 mars 2006 à 21:55:58 | Re : Texte

John7

22 msg

45 msg CS

Bonsoir, ça j'avais bien compris, mais quand je veux afficher 3 ou 4 parties dans des textbox et passer à une autre ligne pour en lire d'autres, je repasse par ce sub mais ça ne marche pas !!!

john

mercredi 8 mars 2006 à 22:12:42 | Re : Texte

ScSami

968 msg

1023 msg CS

Ce que tu n'as pas compris c'est que le code que je t'ai donné parcours AUTOMATIQUEMENT (via la boucle Do/Loop [ou While/Wend dans le code de Econs] ) TOUTES LES LIGNES de ton fichier, UNE PAR UNE en les découpant à chaque fois.

Tu n'es pas clair !!! Déjà, au début, y'avait pas de TextBox mais tu parlais de DB... Alors ma question est simple : qu'est-ce que tu veux faire ???? Soit un peu plus clair s'il te plait.

Enjoy

( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )<

mercredi 8 mars 2006 à 22:33:45 | Re : Texte

John7

22 msg

45 msg CS

Re,
c'est vrai que c'est plus dur par écrit, mais je vais essayer.
Je reçois un fichier txt avec des lignes presque semblable du genre :
201500000000000000000000000170BMAUTO COR_B39.9 2003043020030808075848
201500000305422426498A00020 1000 000000B 112 1+000000000014151+000000000011040+000000000000000+000000000000000+040 B 0400
je dois enlever 24 caractères puis suivant les 3 d'aprés (000 ou 001 ou 003 ou 005 etc...), je mets dans une DB tout ce qui suit au bon endroit.Pour la base , je sais!!! Il etait temps me direz-vous !!!!
Je voulais juste tester avec des textbox pour voir ce que ça faisait.
J'espere avoir été assez clair merci................

john

Cette discussion est classée dans : fichier, ligne, texte

Répondre à ce message

Sujets en rapport avec ce message

Lecture de fichier texte avec récupération des espaces.... [ par interkira ] Bonjour,J'ai en entrèe un fichier texte et je dois lire ligne par ligne le fichier.Mon souci est que je ne récupére pas les espaces devant et je n'arr problème avec la lecture et l'écriture sur les fichiers texte [ par zouh ] salut tout le monde.mon souci c'est que je n'arrive pas à écrire ou lire dans un fichier texte malgrès le fait que j'arrive à le créer ce fichier.voic effacer des block de texte dans un fichier [ par gmorin ] Bonjour,je cherche à effacer des block de texte spécifiques dans un fichier. Je connais la première ligne et la dernière, mais je ne peux jamais savo Effacer une ligne dans un fichier texte [ par Asghaard ] Bonjour,(je fais des macros sous VBE Excel)Je ne parviens pas à trouver comment effacer une ligne précise dans un fichier en .txtje sais écrire à la f Modifier un fichier texte [ par spartacus1er ] BonjourJe cherche à modifier un fichier texte déjà existant à une ligne déterminée.Je sais déterminer la ligne en question mais je ne sais pas comment ecriture sur une seule ligne [ par neolitic ] resalut: J'écris un prog de cryptage et après avoir modifié toutes les lettres d'apres un fichier texte. J'écris ces lettres modifiees dans un autre obtenir le nombre de ligne d'un fichier texte en .net [ par SAXOBIC ] bonjour,est-ce que qqn connait l'instruction ou un bout de code pour obtenir le nombre de ligne d'un fichier texte?A+merci d'avance pour vos réponse Rechercher un ligne dans un fichier texte [ par veler ] Bonjour tous le monde, voila, après de nombreuses recherches sur différent site web, je n'ai toujours pas de réponses à mais questions:comment cherche Cherche Aide Download File Fonction et Liste [ par dremos ] Bonjour <p class="MsoNormal" st Variable d'une ligne de texte [ par gramlinz60 ] Bonjour à tous,Voila, j'ai un fichier texte de 200 000 lignes. j'ai une fichier excel de 45000 lignes.Je voudrais cherché les infos dans le fichier te

Livres en rapport

Illustrator 10 pour PC/MAC

Algorithmique du texte

Works 2000 vol.2

Bien écrire pour le web

Tous les livres pour Fichier, Ligne, Texte

Nos sponsors

Derniers Blogs

GESTION D'EXCEPTION AVEC LES TASKS par richardc

DéMARRONS AVEC LES TASKS par richardc

SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

Forum

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par NHenry

RE : OUVRIR PLUSIEURS FICHIERS EXCEL EN MêME AVEC VB par ossama261988

ACCES ODBC par yannickcottin

RE : PROBLEME PROCEDURE FERMETURE FORM par thomasaurelien

RE : PROBLEME PROCEDURE FERMETURE FORM par ShayW

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Finalisation site d-encheres au centime
Budget : 2 800€
Recherche expert webmarketing
Budget : 3 000€
Republication - fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System