Ligne
Résolu
manud31
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
-
20 janv. 2006 à 08:56
manud31 Messages postés 81 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 16 mai 2006 - 21 janv. 2006 à 12:24
manud31 Messages postés 81 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 16 mai 2006 - 21 janv. 2006 à 12:24
4 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
20 janv. 2006 à 12:05
20 janv. 2006 à 12:05
Bonjour,
Tu veux récupérer le contenu d'une ligne par rapport à un mot si
trouvant, où connais-tu le n° de ligne que tu veux récupérer ??.
jpleroisse
Tu veux récupérer le contenu d'une ligne par rapport à un mot si
trouvant, où connais-tu le n° de ligne que tu veux récupérer ??.
jpleroisse
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
20 janv. 2006 à 09:24
20 janv. 2006 à 09:24
Pas le choix avec un ficheir texte, il faut le lire depuis le début, jusqu'à ta ligne voulue ...
CR
CR
manud31
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
20 janv. 2006 à 12:53
20 janv. 2006 à 12:53
hello jpleroisse !!!
merci d'avoir repondu !
d'ailleurs je te remercie pour les reponses de hier soir qui m'ont bien servies !!!
a la ligne 25 de mon fichier texte j'ai un truc de la forme:
diametre de je sais pas quoi = 15,1134 mm
là mon probleme c'est que je veux aller recuperer le nombre 15,1134
comment dois-je faire
j'espere avoir été clair !
@+
merci d'avoir repondu !
d'ailleurs je te remercie pour les reponses de hier soir qui m'ont bien servies !!!
a la ligne 25 de mon fichier texte j'ai un truc de la forme:
diametre de je sais pas quoi = 15,1134 mm
là mon probleme c'est que je veux aller recuperer le nombre 15,1134
comment dois-je faire
j'espere avoir été clair !
@+
manud31
Messages postés
81
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2006
21 janv. 2006 à 12:24
21 janv. 2006 à 12:24
j'ai accepté la reponse si ca peu aider quelqu'un qui aurait le meme pb
je vous donne le code de jpleroisse adapté a mon fichier
Dim str1 As String
Option Explicit
Private Function chercheLigne(mot As String) As String
'rechercher la ligne dans laquelle est contenu le "mot"
Dim texte As String
Open ".\monfichier.txt" For Input As 1#
Dim arret As Boolean
arret = False
While Not (EOF(1) Or arret)
Input #1, texte
If InStr(texte, mot) <> 0 Then
arret = True
End If
Wend
Close #1
chercheLigne = texte
End Function
Private Sub resultats_Click()
'Ecriture des résultats dans les textbox
'MsgBox chercheLigne("tau1")
tau1.Text = chercheLigne("tau1")
tau1.Text = Mid(tau1.Text, 43, 9)
End Sub
je vous donne le code de jpleroisse adapté a mon fichier
Dim str1 As String
Option Explicit
Private Function chercheLigne(mot As String) As String
'rechercher la ligne dans laquelle est contenu le "mot"
Dim texte As String
Open ".\monfichier.txt" For Input As 1#
Dim arret As Boolean
arret = False
While Not (EOF(1) Or arret)
Input #1, texte
If InStr(texte, mot) <> 0 Then
arret = True
End If
Wend
Close #1
chercheLigne = texte
End Function
Private Sub resultats_Click()
'Ecriture des résultats dans les textbox
'MsgBox chercheLigne("tau1")
tau1.Text = chercheLigne("tau1")
tau1.Text = Mid(tau1.Text, 43, 9)
End Sub