Accueil > Forum > > > > Lire une ligne quelconque d'un fichier *.txt
 Lire une ligne quelconque d'un fichier *.txt
dimanche 7 novembre 2004 à 02:33:09 |
Lire une ligne quelconque d'un fichier *.txt
Mechanicman
|
Voilà, j'ai un fichier .txt avec par exemple 20 prénoms en vrac ( 1 prenom par ligne) , je voudrais savoir comment lire par exemple la ligne 3 pour afficher aleatoirement des prenoms Merci d'avance Mechanicman "Ceux qui jouissent de nos privilèges oublient avec le temps que d'autres sont morts pour les acquérir." Franklin D. Roosevelt |
|
dimanche 7 novembre 2004 à 04:22:42 |
Re : Lire une ligne quelconque d'un fichier *.txt
jack
|
Réponse acceptée !
Salut Mechanicman
Non, si ton fichier doit-être lu ligne par ligne et ces lignes n'ayant pas la même taille, il n'est pas possible d'aller directement à la 3ème ligne.
Il faut que tu lises toutes les lignes de 1 à 3 et t'arrêter de lire quand tu as atteint ta 3e ligne (avec un peit compteur).
Pour info, quand tu es dans une boucle et que tu veux sortir, il te suffit de faire : Exit Do, Exit For
Vala
Jack
|
|
dimanche 7 novembre 2004 à 10:24:30 |
Re : Lire une ligne quelconque d'un fichier *.txt
DARKSIDIOUS
|
Pour cela, je te conseille plutôt de stocker toutes tes lignes dans un tableau de chaîne, et d'afficher la ligne que tu veux. Ca évite ainsi d'accèder trop souvent au fichier si tu dois le faire plusieurs fois ! _______________________________________ DarK Sidious [Responsable API/VB du site www.ProgOtoP.com] Téléchargez ProgOtoP API Viewer |
|
dimanche 7 novembre 2004 à 10:47:26 |
Re : Lire une ligne quelconque d'un fichier *.txt
econs
|
Ceci ressemble plus à la méthode de DARKSIDIOUS qu'à celle de jack... en fait, c'est même carrément çà. 
Dim tablo(50) As String
Private Sub Form_Load()
Dim num As Long
Dim s As String
Dim compt As Long
num=FreeFile
compt=0
Open "C:\mon_texte.txt" For Input As #num
While not EOF(num) And compt<=50
Line Input #num,s
tablo(compt)=s
compt=compt+1
Wend
Close #num
End Sub
|
et partout ailleurs dans le code : tablo(3) = 4ème nom tablo(25) = 26ème nom tablo(N) = (N+1)ème nom N'oublie pas de remplacer "C:\mon_texte.txt" par la bonne valeur !! Manu------------------------------------------- Une question bien posée, c'est une chance de réponse bien adaptée. |
|
dimanche 7 novembre 2004 à 13:21:33 |
Re : Lire une ligne quelconque d'un fichier *.txt
Mechanicman
|
Merci pour vos réponses, j'ai opté pour l'ajout d'une variables qui fait office de compteur, c'était ma solution de rechange mais bon...comme il n'y a pas mieux...on fait avec :/
"Ceux qui jouissent de nos privilèges oublient avec le temps que d'autres sont morts pour les acquérir." Franklin D. Roosevelt
|
|
dimanche 7 novembre 2004 à 18:32:40 |
Re : Lire une ligne quelconque d'un fichier *.txt
jack
|
Oui, aussi la technique du "je charge tout le fichier en mémoire" : Dim ff As Integer, Lignes() As String, Temp As String
ff = FreeFile
Open "C:\MonRép\MonFichier.txt" For Binary As #ff
Temp = String(FileLen("C:\MonRép\MonFichier.txt"), " ")
Get #ff, , Temp ' Récupère tout le fichier
Close #ff
' Sépare toutes les lignes
Lignes = Split(Temp, vbCrLf)
Debug.Print Lignes(0) ' 1ere ligne
Debug.Print Lignes(32) ' 33ème ligne
|
Vala Jack |
|
Cette discussion est classée dans : fichier, ligne, lire, txt, quelconque
 Répondre à ce message
 Sujets en rapport avec ce message
Lire une ligne quelconque d'un fichier *.txt [ par Mechanicman ]
Voilà,j'ai un fichier .txt avec par exemple 20 prénoms en vrac ( 1 prenom par ligne) , je voudrais savoir comment lire par exemple la ligne 3 pour af
Lire un txt et atribuer des valeurs pour chaque ligne [ par Ramendust ]
Bonjour à tousJe suis débutant sur VB 5, et mes connaissances dans ce language s'arrêtent à peu près à des macros toutes gentilles sur Excel. Je n'ai
Vbscript: tri par ordre alphabétique dans un fichier txt [ par manolo66 ]
Salut tous le monde ! voila j'essaye de faire un script VBS qui doit lire un fichier texte et crée un autre fichier texte avec les lignes qui se trouv
Comment lire un fichier txt a partir d'une ligne précise ?! [ par darksoul551 ]
Voila, tout est dans le titre, je sais qu'il faut utiliser "line input" mais je capte pas comment commencer la lecture a une ligne précise, pourtant j
lire un fichier .txt ou .dat ou autre ligne pa ligne [ par sammy918 ]
bonjour, j'aimerai savoir si c'est possible de lire un fichier .txt ou autre ligne par ligne de faire que de la ligne 1 a 10 s'ajoute au listbox1 la l
VBS : lire ligne par ligne un fichier txt [ par tsotb ]
Salut, cmt lire ligne par ligne un fichier txt en VBS???MerciThe Sins Of Thy Beloved
lire 1 fichier txt ligne par ligne [ par thedragon25 ]
Bonjours, je voudrais savoir comment on peut récupérer par exemple la 2eme ligne d'un fichier .txt puis la 3eme ligne pour une autre utilité en m'expl
lecture rapide dans un fichier txt [ par depelek ]
Bonjour, J'aurais une question bien spécifique. J'enregistre un fichier *.txt avec la fonction : Open Combmulti For Output As #2 Write #2, a, b, c,
Lire une ligne [ par Vincentsoft ]
SalutLorsque je quitte un programme, j'écrit des infos ds un fichier txt afin que d'autre programmes puisse aller lire dedans.Mais ce que je souhaite
Lire la n-ième ligne d'un fichier .txt ? [ par Mdeffontaines ]
Bonjour à tous,J'aimerais extraire des informations à partir d'un fichier texte pour les réutiliser dans mon programme.Voici ce que j'ai pour l'intsta
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
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
|