Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
dans le genre
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
dans le genre
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
dans le genre
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
"Franck" a écrit dans le message de
news:%Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
de quoidans le genre
Hello,
voila une façon de faire, parmi d'autres:
Private Sub Command1_Click()
Dim f As Integer ' descripteur de fichier
Dim buffer As String ' un buffer pour lire le fichier
Dim lignes() As String ' un tableau pour mettre les lignes
Dim i As Long ' pour parcourir le tableau
Dim szPattern As String ' le texte recherché
szPattern = "TRUC" ' exemple de motif recherché
f = FreeFile ' on prend un descritpeur libre
Open "c:test.txt" For Binary As #f ' on ouvre en binaire
' on demande la taille et on alloue la place
buffer = Space$(LOF(f))
Get #f, , buffer ' on lit tout d'un coup
Close #f ' on ferme
lignes = Split(buffer, vbCrLf) ' on découpe en lignes
' puis on parcourt ligne par ligne
For i = LBound(lignes()) To UBound(lignes())
' on cherche notre motif
If InStr(lignes(i), szPattern) > 0 Then
' si on l'a trouvé on affiche
Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
i + 1
End If
Next i
' et voila
End Sub
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"Franck" <Franck_1243@hotmail.com> a écrit dans le message de
news:%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
de quoi
dans le genre
Hello,
voila une façon de faire, parmi d'autres:
Private Sub Command1_Click()
Dim f As Integer ' descripteur de fichier
Dim buffer As String ' un buffer pour lire le fichier
Dim lignes() As String ' un tableau pour mettre les lignes
Dim i As Long ' pour parcourir le tableau
Dim szPattern As String ' le texte recherché
szPattern = "TRUC" ' exemple de motif recherché
f = FreeFile ' on prend un descritpeur libre
Open "c:test.txt" For Binary As #f ' on ouvre en binaire
' on demande la taille et on alloue la place
buffer = Space$(LOF(f))
Get #f, , buffer ' on lit tout d'un coup
Close #f ' on ferme
lignes = Split(buffer, vbCrLf) ' on découpe en lignes
' puis on parcourt ligne par ligne
For i = LBound(lignes()) To UBound(lignes())
' on cherche notre motif
If InStr(lignes(i), szPattern) > 0 Then
' si on l'a trouvé on affiche
Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
i + 1
End If
Next i
' et voila
End Sub
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
"Franck" a écrit dans le message de
news:%Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
de quoidans le genre
Hello,
voila une façon de faire, parmi d'autres:
Private Sub Command1_Click()
Dim f As Integer ' descripteur de fichier
Dim buffer As String ' un buffer pour lire le fichier
Dim lignes() As String ' un tableau pour mettre les lignes
Dim i As Long ' pour parcourir le tableau
Dim szPattern As String ' le texte recherché
szPattern = "TRUC" ' exemple de motif recherché
f = FreeFile ' on prend un descritpeur libre
Open "c:test.txt" For Binary As #f ' on ouvre en binaire
' on demande la taille et on alloue la place
buffer = Space$(LOF(f))
Get #f, , buffer ' on lit tout d'un coup
Close #f ' on ferme
lignes = Split(buffer, vbCrLf) ' on découpe en lignes
' puis on parcourt ligne par ligne
For i = LBound(lignes()) To UBound(lignes())
' on cherche notre motif
If InStr(lignes(i), szPattern) > 0 Then
' si on l'a trouvé on affiche
Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
i + 1
End If
Next i
' et voila
End Sub
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Bonjour,
Dans le même ordre d'idées....
Je viens de suivre votre exemple, et j'ai réussi à créer un listing dans
fichier *.txt
Impeccable, mais je crois qu'il faudrait améliorer un peu pour avoir des
belles colonnes régulièrement espacées...
Mais il me reste une petite chose:
Comment faire pour que le fichier Remise.txt (par exemple) apparaisse à la
fin ?
Quelle est la (toute) petite instruction qui manque , du style Show #1
dans le genre ?)
Merci,
Pierre
"Jean-Marc" a écrit dans le message de
440df577$0$22150$
> "Franck" a écrit dans le message de
> news:%
>> Bonjour a tous,
>>
>> Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
> dedans
>>
>> Open "C:test.txt" For Append As #1
>> Print #1, "Ceci est un test"
>> Close #1
>>
>>
>> mais je me demandait si c'etait possible de faire une recherche de d'y
>> ramener le résultat dans
>>
>> visual basic.
>>
>> Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
> de quoi
>> dans le genre
>
> Hello,
>
> voila une façon de faire, parmi d'autres:
>
> Private Sub Command1_Click()
> Dim f As Integer ' descripteur de fichier
> Dim buffer As String ' un buffer pour lire le fichier
> Dim lignes() As String ' un tableau pour mettre les lignes
> Dim i As Long ' pour parcourir le tableau
> Dim szPattern As String ' le texte recherché
>
> szPattern = "TRUC" ' exemple de motif recherché
>
> f = FreeFile ' on prend un descritpeur libre
> Open "c:test.txt" For Binary As #f ' on ouvre en binaire
> ' on demande la taille et on alloue la place
> buffer = Space$(LOF(f))
> Get #f, , buffer ' on lit tout d'un coup
> Close #f ' on ferme
> lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>
> ' puis on parcourt ligne par ligne
> For i = LBound(lignes()) To UBound(lignes())
> ' on cherche notre motif
> If InStr(lignes(i), szPattern) > 0 Then
> ' si on l'a trouvé on affiche
> Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
> i + 1
> End If
> Next i
> ' et voila
> End Sub
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
Bonjour,
Dans le même ordre d'idées....
Je viens de suivre votre exemple, et j'ai réussi à créer un listing dans
fichier *.txt
Impeccable, mais je crois qu'il faudrait améliorer un peu pour avoir des
belles colonnes régulièrement espacées...
Mais il me reste une petite chose:
Comment faire pour que le fichier Remise.txt (par exemple) apparaisse à la
fin ?
Quelle est la (toute) petite instruction qui manque , du style Show #1
dans le genre ?)
Merci,
Pierre
"Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
440df577$0$22150$ba620e4c@news.skynet.be...
> "Franck" <Franck_1243@hotmail.com> a écrit dans le message de
> news:%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
>> Bonjour a tous,
>>
>> Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
> dedans
>>
>> Open "C:test.txt" For Append As #1
>> Print #1, "Ceci est un test"
>> Close #1
>>
>>
>> mais je me demandait si c'etait possible de faire une recherche de d'y
>> ramener le résultat dans
>>
>> visual basic.
>>
>> Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
> de quoi
>> dans le genre
>
> Hello,
>
> voila une façon de faire, parmi d'autres:
>
> Private Sub Command1_Click()
> Dim f As Integer ' descripteur de fichier
> Dim buffer As String ' un buffer pour lire le fichier
> Dim lignes() As String ' un tableau pour mettre les lignes
> Dim i As Long ' pour parcourir le tableau
> Dim szPattern As String ' le texte recherché
>
> szPattern = "TRUC" ' exemple de motif recherché
>
> f = FreeFile ' on prend un descritpeur libre
> Open "c:test.txt" For Binary As #f ' on ouvre en binaire
> ' on demande la taille et on alloue la place
> buffer = Space$(LOF(f))
> Get #f, , buffer ' on lit tout d'un coup
> Close #f ' on ferme
> lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>
> ' puis on parcourt ligne par ligne
> For i = LBound(lignes()) To UBound(lignes())
> ' on cherche notre motif
> If InStr(lignes(i), szPattern) > 0 Then
> ' si on l'a trouvé on affiche
> Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
> i + 1
> End If
> Next i
> ' et voila
> End Sub
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>
Bonjour,
Dans le même ordre d'idées....
Je viens de suivre votre exemple, et j'ai réussi à créer un listing dans
fichier *.txt
Impeccable, mais je crois qu'il faudrait améliorer un peu pour avoir des
belles colonnes régulièrement espacées...
Mais il me reste une petite chose:
Comment faire pour que le fichier Remise.txt (par exemple) apparaisse à la
fin ?
Quelle est la (toute) petite instruction qui manque , du style Show #1
dans le genre ?)
Merci,
Pierre
"Jean-Marc" a écrit dans le message de
440df577$0$22150$
> "Franck" a écrit dans le message de
> news:%
>> Bonjour a tous,
>>
>> Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
> dedans
>>
>> Open "C:test.txt" For Append As #1
>> Print #1, "Ceci est un test"
>> Close #1
>>
>>
>> mais je me demandait si c'etait possible de faire une recherche de d'y
>> ramener le résultat dans
>>
>> visual basic.
>>
>> Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
> de quoi
>> dans le genre
>
> Hello,
>
> voila une façon de faire, parmi d'autres:
>
> Private Sub Command1_Click()
> Dim f As Integer ' descripteur de fichier
> Dim buffer As String ' un buffer pour lire le fichier
> Dim lignes() As String ' un tableau pour mettre les lignes
> Dim i As Long ' pour parcourir le tableau
> Dim szPattern As String ' le texte recherché
>
> szPattern = "TRUC" ' exemple de motif recherché
>
> f = FreeFile ' on prend un descritpeur libre
> Open "c:test.txt" For Binary As #f ' on ouvre en binaire
> ' on demande la taille et on alloue la place
> buffer = Space$(LOF(f))
> Get #f, , buffer ' on lit tout d'un coup
> Close #f ' on ferme
> lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>
> ' puis on parcourt ligne par ligne
> For i = LBound(lignes()) To UBound(lignes())
> ' on cherche notre motif
> If InStr(lignes(i), szPattern) > 0 Then
> ' si on l'a trouvé on affiche
> Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
> i + 1
> End If
> Next i
> ' et voila
> End Sub
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
Option Explicit ' signale si la variable n'est pas déclarée
Sub Form_Load()
Dim p1 As Long ' numéro d'ordre fichier
Dim ou As Long ' position de l'octet de début du mot trouvé
Dim ligne As String ' reçoit chaque ligne du fichier
Dim i As Long ' pour compter les lignes
p1 = FreeFile ' réserve n° de fichier
On Error GoTo erreur ' gère l'erreur si inexistant ou non trouvé
Open "C:test.txt" For Input As p1 ' ouvre en lecture texte
i = 0 ' compteur de lignes
Do While EOF(p1) <> False ' tant que le fichier n'est pas parcouru
totalement
If EOF(p1) = True Then Exit Do ' si le fichier est terminé on sort
(évite des lignes vides)
Line Input #p1, ligne ' ligne reçoit chaque ligne du fichier
i = i + 1 ' le compteur de ligne avance
If ou = InStr(1, ligne, "[TEST]", 1) <> 0 Then ' si le mot est trouvé
(n° de l'octet)
MsgBox "Mot trouvé :" & vbLf & "Ligne = " & i & ", Octet = " & ou '
on affiche la trouvaille
End If
Loop ' on continue tant que pas fini
Close p1 ' ferme fichier
Exit Sub ' sort procédure
erreur: ' gère l'erreur
MsgBox "Erreur, fichier inexistant", vbExclamation
On Error Resume Next ' passe l'erreur
End Sub
-------------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Franck" a écrit dans le message de news:
%Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Option Explicit ' signale si la variable n'est pas déclarée
Sub Form_Load()
Dim p1 As Long ' numéro d'ordre fichier
Dim ou As Long ' position de l'octet de début du mot trouvé
Dim ligne As String ' reçoit chaque ligne du fichier
Dim i As Long ' pour compter les lignes
p1 = FreeFile ' réserve n° de fichier
On Error GoTo erreur ' gère l'erreur si inexistant ou non trouvé
Open "C:test.txt" For Input As p1 ' ouvre en lecture texte
i = 0 ' compteur de lignes
Do While EOF(p1) <> False ' tant que le fichier n'est pas parcouru
totalement
If EOF(p1) = True Then Exit Do ' si le fichier est terminé on sort
(évite des lignes vides)
Line Input #p1, ligne ' ligne reçoit chaque ligne du fichier
i = i + 1 ' le compteur de ligne avance
If ou = InStr(1, ligne, "[TEST]", 1) <> 0 Then ' si le mot est trouvé
(n° de l'octet)
MsgBox "Mot trouvé :" & vbLf & "Ligne = " & i & ", Octet = " & ou '
on affiche la trouvaille
End If
Loop ' on continue tant que pas fini
Close p1 ' ferme fichier
Exit Sub ' sort procédure
erreur: ' gère l'erreur
MsgBox "Erreur, fichier inexistant", vbExclamation
On Error Resume Next ' passe l'erreur
End Sub
-------------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Franck" <Franck_1243@hotmail.com> a écrit dans le message de news:
%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Option Explicit ' signale si la variable n'est pas déclarée
Sub Form_Load()
Dim p1 As Long ' numéro d'ordre fichier
Dim ou As Long ' position de l'octet de début du mot trouvé
Dim ligne As String ' reçoit chaque ligne du fichier
Dim i As Long ' pour compter les lignes
p1 = FreeFile ' réserve n° de fichier
On Error GoTo erreur ' gère l'erreur si inexistant ou non trouvé
Open "C:test.txt" For Input As p1 ' ouvre en lecture texte
i = 0 ' compteur de lignes
Do While EOF(p1) <> False ' tant que le fichier n'est pas parcouru
totalement
If EOF(p1) = True Then Exit Do ' si le fichier est terminé on sort
(évite des lignes vides)
Line Input #p1, ligne ' ligne reçoit chaque ligne du fichier
i = i + 1 ' le compteur de ligne avance
If ou = InStr(1, ligne, "[TEST]", 1) <> 0 Then ' si le mot est trouvé
(n° de l'octet)
MsgBox "Mot trouvé :" & vbLf & "Ligne = " & i & ", Octet = " & ou '
on affiche la trouvaille
End If
Loop ' on continue tant que pas fini
Close p1 ' ferme fichier
Exit Sub ' sort procédure
erreur: ' gère l'erreur
MsgBox "Erreur, fichier inexistant", vbExclamation
On Error Resume Next ' passe l'erreur
End Sub
-------------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Franck" a écrit dans le message de news:
%Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Hello,
Désolé, je ne comprend pas la question.
Que veux tu dire par apparaisse à la fin?
Apparaitre ou ça?
Peux tu donner un exemple?
--
Jean-marc
"pierre.rivet" wrote in message
news:440ec7fb$0$21261$Bonjour,
Dans le même ordre d'idées....
Je viens de suivre votre exemple, et j'ai réussi à créer un listing dans
unfichier *.txt
Impeccable, mais je crois qu'il faudrait améliorer un peu pour avoir des
belles colonnes régulièrement espacées...
Mais il me reste une petite chose:
Comment faire pour que le fichier Remise.txt (par exemple) apparaisse à
la
fin ?
Quelle est la (toute) petite instruction qui manque , du style Show #1
(oudans le genre ?)
Merci,
Pierre
"Jean-Marc" a écrit dans le message de
news:440df577$0$22150$
> "Franck" a écrit dans le message de
> news:%
>> Bonjour a tous,
>>
>> Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
> dedans
>>
>> Open "C:test.txt" For Append As #1
>> Print #1, "Ceci est un test"
>> Close #1
>>
>>
>> mais je me demandait si c'etait possible de faire une recherche de d'y
>> ramener le résultat dans
>>
>> visual basic.
>>
>> Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
> de quoi
>> dans le genre
>
> Hello,
>
> voila une façon de faire, parmi d'autres:
>
> Private Sub Command1_Click()
> Dim f As Integer ' descripteur de fichier
> Dim buffer As String ' un buffer pour lire le fichier
> Dim lignes() As String ' un tableau pour mettre les lignes
> Dim i As Long ' pour parcourir le tableau
> Dim szPattern As String ' le texte recherché
>
> szPattern = "TRUC" ' exemple de motif recherché
>
> f = FreeFile ' on prend un descritpeur libre
> Open "c:test.txt" For Binary As #f ' on ouvre en binaire
> ' on demande la taille et on alloue la place
> buffer = Space$(LOF(f))
> Get #f, , buffer ' on lit tout d'un coup
> Close #f ' on ferme
> lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>
> ' puis on parcourt ligne par ligne
> For i = LBound(lignes()) To UBound(lignes())
> ' on cherche notre motif
> If InStr(lignes(i), szPattern) > 0 Then
> ' si on l'a trouvé on affiche
> Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
> i + 1
> End If
> Next i
> ' et voila
> End Sub
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
Hello,
Désolé, je ne comprend pas la question.
Que veux tu dire par apparaisse à la fin?
Apparaitre ou ça?
Peux tu donner un exemple?
--
Jean-marc
"pierre.rivet" <pierre.rivet@wanadoo.fr> wrote in message
news:440ec7fb$0$21261$8fcfb975@news.wanadoo.fr...
Bonjour,
Dans le même ordre d'idées....
Je viens de suivre votre exemple, et j'ai réussi à créer un listing dans
un
fichier *.txt
Impeccable, mais je crois qu'il faudrait améliorer un peu pour avoir des
belles colonnes régulièrement espacées...
Mais il me reste une petite chose:
Comment faire pour que le fichier Remise.txt (par exemple) apparaisse à
la
fin ?
Quelle est la (toute) petite instruction qui manque , du style Show #1
(ou
dans le genre ?)
Merci,
Pierre
"Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message de
news:
440df577$0$22150$ba620e4c@news.skynet.be...
> "Franck" <Franck_1243@hotmail.com> a écrit dans le message de
> news:%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
>> Bonjour a tous,
>>
>> Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
> dedans
>>
>> Open "C:test.txt" For Append As #1
>> Print #1, "Ceci est un test"
>> Close #1
>>
>>
>> mais je me demandait si c'etait possible de faire une recherche de d'y
>> ramener le résultat dans
>>
>> visual basic.
>>
>> Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
> de quoi
>> dans le genre
>
> Hello,
>
> voila une façon de faire, parmi d'autres:
>
> Private Sub Command1_Click()
> Dim f As Integer ' descripteur de fichier
> Dim buffer As String ' un buffer pour lire le fichier
> Dim lignes() As String ' un tableau pour mettre les lignes
> Dim i As Long ' pour parcourir le tableau
> Dim szPattern As String ' le texte recherché
>
> szPattern = "TRUC" ' exemple de motif recherché
>
> f = FreeFile ' on prend un descritpeur libre
> Open "c:test.txt" For Binary As #f ' on ouvre en binaire
> ' on demande la taille et on alloue la place
> buffer = Space$(LOF(f))
> Get #f, , buffer ' on lit tout d'un coup
> Close #f ' on ferme
> lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>
> ' puis on parcourt ligne par ligne
> For i = LBound(lignes()) To UBound(lignes())
> ' on cherche notre motif
> If InStr(lignes(i), szPattern) > 0 Then
> ' si on l'a trouvé on affiche
> Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
> i + 1
> End If
> Next i
> ' et voila
> End Sub
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>
Hello,
Désolé, je ne comprend pas la question.
Que veux tu dire par apparaisse à la fin?
Apparaitre ou ça?
Peux tu donner un exemple?
--
Jean-marc
"pierre.rivet" wrote in message
news:440ec7fb$0$21261$Bonjour,
Dans le même ordre d'idées....
Je viens de suivre votre exemple, et j'ai réussi à créer un listing dans
unfichier *.txt
Impeccable, mais je crois qu'il faudrait améliorer un peu pour avoir des
belles colonnes régulièrement espacées...
Mais il me reste une petite chose:
Comment faire pour que le fichier Remise.txt (par exemple) apparaisse à
la
fin ?
Quelle est la (toute) petite instruction qui manque , du style Show #1
(oudans le genre ?)
Merci,
Pierre
"Jean-Marc" a écrit dans le message de
news:440df577$0$22150$
> "Franck" a écrit dans le message de
> news:%
>> Bonjour a tous,
>>
>> Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
> dedans
>>
>> Open "C:test.txt" For Append As #1
>> Print #1, "Ceci est un test"
>> Close #1
>>
>>
>> mais je me demandait si c'etait possible de faire une recherche de d'y
>> ramener le résultat dans
>>
>> visual basic.
>>
>> Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou
> de quoi
>> dans le genre
>
> Hello,
>
> voila une façon de faire, parmi d'autres:
>
> Private Sub Command1_Click()
> Dim f As Integer ' descripteur de fichier
> Dim buffer As String ' un buffer pour lire le fichier
> Dim lignes() As String ' un tableau pour mettre les lignes
> Dim i As Long ' pour parcourir le tableau
> Dim szPattern As String ' le texte recherché
>
> szPattern = "TRUC" ' exemple de motif recherché
>
> f = FreeFile ' on prend un descritpeur libre
> Open "c:test.txt" For Binary As #f ' on ouvre en binaire
> ' on demande la taille et on alloue la place
> buffer = Space$(LOF(f))
> Get #f, , buffer ' on lit tout d'un coup
> Close #f ' on ferme
> lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>
> ' puis on parcourt ligne par ligne
> For i = LBound(lignes()) To UBound(lignes())
> ' on cherche notre motif
> If InStr(lignes(i), szPattern) > 0 Then
> ' si on l'a trouvé on affiche
> Debug.Print "texte [" & szPattern & "] trouvé ligne N°: " &
> i + 1
> End If
> Next i
> ' et voila
> End Sub
>
> --
> Jean-marc
> Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
> "There are only 10 kind of people
> those who understand binary and those who don't."
> mailto: remove '_no_spam_' ;
>
Re Bonjour a tous,
J'ai essayer les solution et sa fonctionne mais sa me ramene le numero de
la ligne.... moi je veux que sa me ramene ce qui est ecrit sur cette
ligne.
exemple :
[TEST]
CECI EST UN TEST
et bien il me ramene ceci est un test et non ligne 8,1....
Merci de votre attention
"X" a écrit dans le message de news:
%23nF$Option Explicit ' signale si la variable n'est pas déclarée
Sub Form_Load()
Dim p1 As Long ' numéro d'ordre fichier
Dim ou As Long ' position de l'octet de début du mot trouvé
Dim ligne As String ' reçoit chaque ligne du fichier
Dim i As Long ' pour compter les lignes
p1 = FreeFile ' réserve n° de fichier
On Error GoTo erreur ' gère l'erreur si inexistant ou non trouvé
Open "C:test.txt" For Input As p1 ' ouvre en lecture texte
i = 0 ' compteur de lignes
Do While EOF(p1) <> False ' tant que le fichier n'est pas parcouru
totalement
If EOF(p1) = True Then Exit Do ' si le fichier est terminé on sort
(évite des lignes vides)
Line Input #p1, ligne ' ligne reçoit chaque ligne du fichier
i = i + 1 ' le compteur de ligne avance
If ou = InStr(1, ligne, "[TEST]", 1) <> 0 Then ' si le mot est trouvé
(n° de l'octet)
MsgBox "Mot trouvé :" & vbLf & "Ligne = " & i & ", Octet = " & ou '
on affiche la trouvaille
End If
Loop ' on continue tant que pas fini
Close p1 ' ferme fichier
Exit Sub ' sort procédure
erreur: ' gère l'erreur
MsgBox "Erreur, fichier inexistant", vbExclamation
On Error Resume Next ' passe l'erreur
End Sub
-------------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Franck" a écrit dans le message de news:
%Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Re Bonjour a tous,
J'ai essayer les solution et sa fonctionne mais sa me ramene le numero de
la ligne.... moi je veux que sa me ramene ce qui est ecrit sur cette
ligne.
exemple :
[TEST]
CECI EST UN TEST
et bien il me ramene ceci est un test et non ligne 8,1....
Merci de votre attention
"X" <X@Y.Z> a écrit dans le message de news:
%23nF$XMjQGHA.4264@TK2MSFTNGP11.phx.gbl...
Option Explicit ' signale si la variable n'est pas déclarée
Sub Form_Load()
Dim p1 As Long ' numéro d'ordre fichier
Dim ou As Long ' position de l'octet de début du mot trouvé
Dim ligne As String ' reçoit chaque ligne du fichier
Dim i As Long ' pour compter les lignes
p1 = FreeFile ' réserve n° de fichier
On Error GoTo erreur ' gère l'erreur si inexistant ou non trouvé
Open "C:test.txt" For Input As p1 ' ouvre en lecture texte
i = 0 ' compteur de lignes
Do While EOF(p1) <> False ' tant que le fichier n'est pas parcouru
totalement
If EOF(p1) = True Then Exit Do ' si le fichier est terminé on sort
(évite des lignes vides)
Line Input #p1, ligne ' ligne reçoit chaque ligne du fichier
i = i + 1 ' le compteur de ligne avance
If ou = InStr(1, ligne, "[TEST]", 1) <> 0 Then ' si le mot est trouvé
(n° de l'octet)
MsgBox "Mot trouvé :" & vbLf & "Ligne = " & i & ", Octet = " & ou '
on affiche la trouvaille
End If
Loop ' on continue tant que pas fini
Close p1 ' ferme fichier
Exit Sub ' sort procédure
erreur: ' gère l'erreur
MsgBox "Erreur, fichier inexistant", vbExclamation
On Error Resume Next ' passe l'erreur
End Sub
-------------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Franck" <Franck_1243@hotmail.com> a écrit dans le message de news:
%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Re Bonjour a tous,
J'ai essayer les solution et sa fonctionne mais sa me ramene le numero de
la ligne.... moi je veux que sa me ramene ce qui est ecrit sur cette
ligne.
exemple :
[TEST]
CECI EST UN TEST
et bien il me ramene ceci est un test et non ligne 8,1....
Merci de votre attention
"X" a écrit dans le message de news:
%23nF$Option Explicit ' signale si la variable n'est pas déclarée
Sub Form_Load()
Dim p1 As Long ' numéro d'ordre fichier
Dim ou As Long ' position de l'octet de début du mot trouvé
Dim ligne As String ' reçoit chaque ligne du fichier
Dim i As Long ' pour compter les lignes
p1 = FreeFile ' réserve n° de fichier
On Error GoTo erreur ' gère l'erreur si inexistant ou non trouvé
Open "C:test.txt" For Input As p1 ' ouvre en lecture texte
i = 0 ' compteur de lignes
Do While EOF(p1) <> False ' tant que le fichier n'est pas parcouru
totalement
If EOF(p1) = True Then Exit Do ' si le fichier est terminé on sort
(évite des lignes vides)
Line Input #p1, ligne ' ligne reçoit chaque ligne du fichier
i = i + 1 ' le compteur de ligne avance
If ou = InStr(1, ligne, "[TEST]", 1) <> 0 Then ' si le mot est trouvé
(n° de l'octet)
MsgBox "Mot trouvé :" & vbLf & "Ligne = " & i & ", Octet = " & ou '
on affiche la trouvaille
End If
Loop ' on continue tant que pas fini
Close p1 ' ferme fichier
Exit Sub ' sort procédure
erreur: ' gère l'erreur
MsgBox "Erreur, fichier inexistant", vbExclamation
On Error Resume Next ' passe l'erreur
End Sub
-------------
Site logiciels
http://irolog.free.fr
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Franck" a écrit dans le message de news:
%Bonjour a tous,
Je ses qu'on peut ouvrir un fichier texte avec visual basic et ecrire
dedans
Open "C:test.txt" For Append As #1
Print #1, "Ceci est un test"
Close #1
mais je me demandait si c'etait possible de faire une recherche de d'y
ramener le résultat dans
visual basic.
Exemple recherche moi "[TEST]" et ramene moi la ligne qui suit... ou de
quoi dans le genre
Merci de Votre attention
Par exemple dans VB, quand on crée un fichier Word ou Excel, il
Ici, quand j'ai créé mon fichier *.txt il faut que j'aille dans
l'explorateur Windows pour l'ouvrir ....
Est-ce clair ?
Pierre
"jean-marc" a écrit dans le message de news:
440ecf4d$0$26054$
> Hello,
>
> Désolé, je ne comprend pas la question.
>
> Que veux tu dire par apparaisse à la fin?
> Apparaitre ou ça?
>
> Peux tu donner un exemple?
>
> --
> Jean-marc
>
> "pierre.rivet" wrote in message
> news:440ec7fb$0$21261$
>> Bonjour,
>>
>> Dans le même ordre d'idées....
>>
>> Je viens de suivre votre exemple, et j'ai réussi à créer un listing
> un
>> fichier *.txt
>>
>> Impeccable, mais je crois qu'il faudrait améliorer un peu pour
>> belles colonnes régulièrement espacées...
>>
>> Mais il me reste une petite chose:
>> Comment faire pour que le fichier Remise.txt (par exemple)
>> la
>> fin ?
>>
>> Quelle est la (toute) petite instruction qui manque , du style Show
> (ou
>> dans le genre ?)
>>
>> Merci,
>>
>> Pierre
>>
>>
>> "Jean-Marc" a écrit dans le message
> news:
>> 440df577$0$22150$
>> > "Franck" a écrit dans le message de
>> > news:%
>> >> Bonjour a tous,
>> >>
>> >> Je ses qu'on peut ouvrir un fichier texte avec visual basic et
>> > dedans
>> >>
>> >> Open "C:test.txt" For Append As #1
>> >> Print #1, "Ceci est un test"
>> >> Close #1
>> >>
>> >>
>> >> mais je me demandait si c'etait possible de faire une recherche
>> >> ramener le résultat dans
>> >>
>> >> visual basic.
>> >>
>> >> Exemple recherche moi "[TEST]" et ramene moi la ligne qui
>> > de quoi
>> >> dans le genre
>> >
>> > Hello,
>> >
>> > voila une façon de faire, parmi d'autres:
>> >
>> > Private Sub Command1_Click()
>> > Dim f As Integer ' descripteur de fichier
>> > Dim buffer As String ' un buffer pour lire le fichier
>> > Dim lignes() As String ' un tableau pour mettre les lignes
>> > Dim i As Long ' pour parcourir le tableau
>> > Dim szPattern As String ' le texte recherché
>> >
>> > szPattern = "TRUC" ' exemple de motif recherché
>> >
>> > f = FreeFile ' on prend un descritpeur libre
>> > Open "c:test.txt" For Binary As #f ' on ouvre en binaire
>> > ' on demande la taille et on alloue la place
>> > buffer = Space$(LOF(f))
>> > Get #f, , buffer ' on lit tout d'un coup
>> > Close #f ' on ferme
>> > lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>> >
>> > ' puis on parcourt ligne par ligne
>> > For i = LBound(lignes()) To UBound(lignes())
>> > ' on cherche notre motif
>> > If InStr(lignes(i), szPattern) > 0 Then
>> > ' si on l'a trouvé on affiche
>> > Debug.Print "texte [" & szPattern & "] trouvé ligne
>> > i + 1
>> > End If
>> > Next i
>> > ' et voila
>> > End Sub
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ;
>> >
>>
>>
>
>
Par exemple dans VB, quand on crée un fichier Word ou Excel, il
Ici, quand j'ai créé mon fichier *.txt il faut que j'aille dans
l'explorateur Windows pour l'ouvrir ....
Est-ce clair ?
Pierre
"jean-marc" <aa@BB.com> a écrit dans le message de news:
440ecf4d$0$26054$ba620e4c@news.skynet.be...
> Hello,
>
> Désolé, je ne comprend pas la question.
>
> Que veux tu dire par apparaisse à la fin?
> Apparaitre ou ça?
>
> Peux tu donner un exemple?
>
> --
> Jean-marc
>
> "pierre.rivet" <pierre.rivet@wanadoo.fr> wrote in message
> news:440ec7fb$0$21261$8fcfb975@news.wanadoo.fr...
>> Bonjour,
>>
>> Dans le même ordre d'idées....
>>
>> Je viens de suivre votre exemple, et j'ai réussi à créer un listing
> un
>> fichier *.txt
>>
>> Impeccable, mais je crois qu'il faudrait améliorer un peu pour
>> belles colonnes régulièrement espacées...
>>
>> Mais il me reste une petite chose:
>> Comment faire pour que le fichier Remise.txt (par exemple)
>> la
>> fin ?
>>
>> Quelle est la (toute) petite instruction qui manque , du style Show
> (ou
>> dans le genre ?)
>>
>> Merci,
>>
>> Pierre
>>
>>
>> "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message
> news:
>> 440df577$0$22150$ba620e4c@news.skynet.be...
>> > "Franck" <Franck_1243@hotmail.com> a écrit dans le message de
>> > news:%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
>> >> Bonjour a tous,
>> >>
>> >> Je ses qu'on peut ouvrir un fichier texte avec visual basic et
>> > dedans
>> >>
>> >> Open "C:test.txt" For Append As #1
>> >> Print #1, "Ceci est un test"
>> >> Close #1
>> >>
>> >>
>> >> mais je me demandait si c'etait possible de faire une recherche
>> >> ramener le résultat dans
>> >>
>> >> visual basic.
>> >>
>> >> Exemple recherche moi "[TEST]" et ramene moi la ligne qui
>> > de quoi
>> >> dans le genre
>> >
>> > Hello,
>> >
>> > voila une façon de faire, parmi d'autres:
>> >
>> > Private Sub Command1_Click()
>> > Dim f As Integer ' descripteur de fichier
>> > Dim buffer As String ' un buffer pour lire le fichier
>> > Dim lignes() As String ' un tableau pour mettre les lignes
>> > Dim i As Long ' pour parcourir le tableau
>> > Dim szPattern As String ' le texte recherché
>> >
>> > szPattern = "TRUC" ' exemple de motif recherché
>> >
>> > f = FreeFile ' on prend un descritpeur libre
>> > Open "c:test.txt" For Binary As #f ' on ouvre en binaire
>> > ' on demande la taille et on alloue la place
>> > buffer = Space$(LOF(f))
>> > Get #f, , buffer ' on lit tout d'un coup
>> > Close #f ' on ferme
>> > lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>> >
>> > ' puis on parcourt ligne par ligne
>> > For i = LBound(lignes()) To UBound(lignes())
>> > ' on cherche notre motif
>> > If InStr(lignes(i), szPattern) > 0 Then
>> > ' si on l'a trouvé on affiche
>> > Debug.Print "texte [" & szPattern & "] trouvé ligne
>> > i + 1
>> > End If
>> > Next i
>> > ' et voila
>> > End Sub
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>> >
>>
>>
>
>
Par exemple dans VB, quand on crée un fichier Word ou Excel, il
Ici, quand j'ai créé mon fichier *.txt il faut que j'aille dans
l'explorateur Windows pour l'ouvrir ....
Est-ce clair ?
Pierre
"jean-marc" a écrit dans le message de news:
440ecf4d$0$26054$
> Hello,
>
> Désolé, je ne comprend pas la question.
>
> Que veux tu dire par apparaisse à la fin?
> Apparaitre ou ça?
>
> Peux tu donner un exemple?
>
> --
> Jean-marc
>
> "pierre.rivet" wrote in message
> news:440ec7fb$0$21261$
>> Bonjour,
>>
>> Dans le même ordre d'idées....
>>
>> Je viens de suivre votre exemple, et j'ai réussi à créer un listing
> un
>> fichier *.txt
>>
>> Impeccable, mais je crois qu'il faudrait améliorer un peu pour
>> belles colonnes régulièrement espacées...
>>
>> Mais il me reste une petite chose:
>> Comment faire pour que le fichier Remise.txt (par exemple)
>> la
>> fin ?
>>
>> Quelle est la (toute) petite instruction qui manque , du style Show
> (ou
>> dans le genre ?)
>>
>> Merci,
>>
>> Pierre
>>
>>
>> "Jean-Marc" a écrit dans le message
> news:
>> 440df577$0$22150$
>> > "Franck" a écrit dans le message de
>> > news:%
>> >> Bonjour a tous,
>> >>
>> >> Je ses qu'on peut ouvrir un fichier texte avec visual basic et
>> > dedans
>> >>
>> >> Open "C:test.txt" For Append As #1
>> >> Print #1, "Ceci est un test"
>> >> Close #1
>> >>
>> >>
>> >> mais je me demandait si c'etait possible de faire une recherche
>> >> ramener le résultat dans
>> >>
>> >> visual basic.
>> >>
>> >> Exemple recherche moi "[TEST]" et ramene moi la ligne qui
>> > de quoi
>> >> dans le genre
>> >
>> > Hello,
>> >
>> > voila une façon de faire, parmi d'autres:
>> >
>> > Private Sub Command1_Click()
>> > Dim f As Integer ' descripteur de fichier
>> > Dim buffer As String ' un buffer pour lire le fichier
>> > Dim lignes() As String ' un tableau pour mettre les lignes
>> > Dim i As Long ' pour parcourir le tableau
>> > Dim szPattern As String ' le texte recherché
>> >
>> > szPattern = "TRUC" ' exemple de motif recherché
>> >
>> > f = FreeFile ' on prend un descritpeur libre
>> > Open "c:test.txt" For Binary As #f ' on ouvre en binaire
>> > ' on demande la taille et on alloue la place
>> > buffer = Space$(LOF(f))
>> > Get #f, , buffer ' on lit tout d'un coup
>> > Close #f ' on ferme
>> > lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>> >
>> > ' puis on parcourt ligne par ligne
>> > For i = LBound(lignes()) To UBound(lignes())
>> > ' on cherche notre motif
>> > If InStr(lignes(i), szPattern) > 0 Then
>> > ' si on l'a trouvé on affiche
>> > Debug.Print "texte [" & szPattern & "] trouvé ligne
>> > i + 1
>> > End If
>> > Next i
>> > ' et voila
>> > End Sub
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ;
>> >
>>
>>
>
>
Hello,
Tu veux donc **OUVRIR** le fichier nouvellement créé en *utilisant*
pour ce faire *l'application la plus appropriée*, dans ce cas
l'application associée par défaut aux fichiers d'extension .txt.
Une fois décrypté, c'est simple :-)
' -----------------------
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL As Long = 1
Private Sub Command1_Click()
Dim s As String
s = "c:test.txt" ' le nom du fichier que l'on vient de créer
ShellExecute hwnd, "open", s, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
' -----------------------
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"pierre.rivet" a écrit dans le message de
news:440edb7e$0$22714$Par exemple dans VB, quand on crée un fichier Word ou Excel, il
apparaît...
Ici, quand j'ai créé mon fichier *.txt il faut que j'aille dans
l'explorateur Windows pour l'ouvrir ....
Est-ce clair ?
Pierre
"jean-marc" a écrit dans le message de news:
440ecf4d$0$26054$
> Hello,
>
> Désolé, je ne comprend pas la question.
>
> Que veux tu dire par apparaisse à la fin?
> Apparaitre ou ça?
>
> Peux tu donner un exemple?
>
> --
> Jean-marc
>
> "pierre.rivet" wrote in message
> news:440ec7fb$0$21261$
>> Bonjour,
>>
>> Dans le même ordre d'idées....
>>
>> Je viens de suivre votre exemple, et j'ai réussi à créer un listing
dans> un
>> fichier *.txt
>>
>> Impeccable, mais je crois qu'il faudrait améliorer un peu pour
avoir des>> belles colonnes régulièrement espacées...
>>
>> Mais il me reste une petite chose:
>> Comment faire pour que le fichier Remise.txt (par exemple)
apparaisse à>> la
>> fin ?
>>
>> Quelle est la (toute) petite instruction qui manque , du style Show
#1> (ou
>> dans le genre ?)
>>
>> Merci,
>>
>> Pierre
>>
>>
>> "Jean-Marc" a écrit dans le message
de> news:
>> 440df577$0$22150$
>> > "Franck" a écrit dans le message de
>> > news:%
>> >> Bonjour a tous,
>> >>
>> >> Je ses qu'on peut ouvrir un fichier texte avec visual basic et
ecrire>> > dedans
>> >>
>> >> Open "C:test.txt" For Append As #1
>> >> Print #1, "Ceci est un test"
>> >> Close #1
>> >>
>> >>
>> >> mais je me demandait si c'etait possible de faire une recherche
de d'y>> >> ramener le résultat dans
>> >>
>> >> visual basic.
>> >>
>> >> Exemple recherche moi "[TEST]" et ramene moi la ligne qui
suit... ou>> > de quoi
>> >> dans le genre
>> >
>> > Hello,
>> >
>> > voila une façon de faire, parmi d'autres:
>> >
>> > Private Sub Command1_Click()
>> > Dim f As Integer ' descripteur de fichier
>> > Dim buffer As String ' un buffer pour lire le fichier
>> > Dim lignes() As String ' un tableau pour mettre les lignes
>> > Dim i As Long ' pour parcourir le tableau
>> > Dim szPattern As String ' le texte recherché
>> >
>> > szPattern = "TRUC" ' exemple de motif recherché
>> >
>> > f = FreeFile ' on prend un descritpeur libre
>> > Open "c:test.txt" For Binary As #f ' on ouvre en binaire
>> > ' on demande la taille et on alloue la place
>> > buffer = Space$(LOF(f))
>> > Get #f, , buffer ' on lit tout d'un coup
>> > Close #f ' on ferme
>> > lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>> >
>> > ' puis on parcourt ligne par ligne
>> > For i = LBound(lignes()) To UBound(lignes())
>> > ' on cherche notre motif
>> > If InStr(lignes(i), szPattern) > 0 Then
>> > ' si on l'a trouvé on affiche
>> > Debug.Print "texte [" & szPattern & "] trouvé ligne
N°: " &>> > i + 1
>> > End If
>> > Next i
>> > ' et voila
>> > End Sub
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ;
>> >
>>
>>
>
>
Hello,
Tu veux donc **OUVRIR** le fichier nouvellement créé en *utilisant*
pour ce faire *l'application la plus appropriée*, dans ce cas
l'application associée par défaut aux fichiers d'extension .txt.
Une fois décrypté, c'est simple :-)
' -----------------------
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL As Long = 1
Private Sub Command1_Click()
Dim s As String
s = "c:test.txt" ' le nom du fichier que l'on vient de créer
ShellExecute hwnd, "open", s, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
' -----------------------
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de
news:440edb7e$0$22714$8fcfb975@news.wanadoo.fr...
Par exemple dans VB, quand on crée un fichier Word ou Excel, il
apparaît...
Ici, quand j'ai créé mon fichier *.txt il faut que j'aille dans
l'explorateur Windows pour l'ouvrir ....
Est-ce clair ?
Pierre
"jean-marc" <aa@BB.com> a écrit dans le message de news:
440ecf4d$0$26054$ba620e4c@news.skynet.be...
> Hello,
>
> Désolé, je ne comprend pas la question.
>
> Que veux tu dire par apparaisse à la fin?
> Apparaitre ou ça?
>
> Peux tu donner un exemple?
>
> --
> Jean-marc
>
> "pierre.rivet" <pierre.rivet@wanadoo.fr> wrote in message
> news:440ec7fb$0$21261$8fcfb975@news.wanadoo.fr...
>> Bonjour,
>>
>> Dans le même ordre d'idées....
>>
>> Je viens de suivre votre exemple, et j'ai réussi à créer un listing
dans
> un
>> fichier *.txt
>>
>> Impeccable, mais je crois qu'il faudrait améliorer un peu pour
avoir des
>> belles colonnes régulièrement espacées...
>>
>> Mais il me reste une petite chose:
>> Comment faire pour que le fichier Remise.txt (par exemple)
apparaisse à
>> la
>> fin ?
>>
>> Quelle est la (toute) petite instruction qui manque , du style Show
#1
> (ou
>> dans le genre ?)
>>
>> Merci,
>>
>> Pierre
>>
>>
>> "Jean-Marc" <NO_SPAM_jean_marc_n2@yahoo.fr> a écrit dans le message
de
> news:
>> 440df577$0$22150$ba620e4c@news.skynet.be...
>> > "Franck" <Franck_1243@hotmail.com> a écrit dans le message de
>> > news:%23GMsV5hQGHA.4312@TK2MSFTNGP12.phx.gbl...
>> >> Bonjour a tous,
>> >>
>> >> Je ses qu'on peut ouvrir un fichier texte avec visual basic et
ecrire
>> > dedans
>> >>
>> >> Open "C:test.txt" For Append As #1
>> >> Print #1, "Ceci est un test"
>> >> Close #1
>> >>
>> >>
>> >> mais je me demandait si c'etait possible de faire une recherche
de d'y
>> >> ramener le résultat dans
>> >>
>> >> visual basic.
>> >>
>> >> Exemple recherche moi "[TEST]" et ramene moi la ligne qui
suit... ou
>> > de quoi
>> >> dans le genre
>> >
>> > Hello,
>> >
>> > voila une façon de faire, parmi d'autres:
>> >
>> > Private Sub Command1_Click()
>> > Dim f As Integer ' descripteur de fichier
>> > Dim buffer As String ' un buffer pour lire le fichier
>> > Dim lignes() As String ' un tableau pour mettre les lignes
>> > Dim i As Long ' pour parcourir le tableau
>> > Dim szPattern As String ' le texte recherché
>> >
>> > szPattern = "TRUC" ' exemple de motif recherché
>> >
>> > f = FreeFile ' on prend un descritpeur libre
>> > Open "c:test.txt" For Binary As #f ' on ouvre en binaire
>> > ' on demande la taille et on alloue la place
>> > buffer = Space$(LOF(f))
>> > Get #f, , buffer ' on lit tout d'un coup
>> > Close #f ' on ferme
>> > lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>> >
>> > ' puis on parcourt ligne par ligne
>> > For i = LBound(lignes()) To UBound(lignes())
>> > ' on cherche notre motif
>> > If InStr(lignes(i), szPattern) > 0 Then
>> > ' si on l'a trouvé on affiche
>> > Debug.Print "texte [" & szPattern & "] trouvé ligne
N°: " &
>> > i + 1
>> > End If
>> > Next i
>> > ' et voila
>> > End Sub
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
>> >
>>
>>
>
>
Hello,
Tu veux donc **OUVRIR** le fichier nouvellement créé en *utilisant*
pour ce faire *l'application la plus appropriée*, dans ce cas
l'application associée par défaut aux fichiers d'extension .txt.
Une fois décrypté, c'est simple :-)
' -----------------------
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL As Long = 1
Private Sub Command1_Click()
Dim s As String
s = "c:test.txt" ' le nom du fichier que l'on vient de créer
ShellExecute hwnd, "open", s, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
' -----------------------
--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"pierre.rivet" a écrit dans le message de
news:440edb7e$0$22714$Par exemple dans VB, quand on crée un fichier Word ou Excel, il
apparaît...
Ici, quand j'ai créé mon fichier *.txt il faut que j'aille dans
l'explorateur Windows pour l'ouvrir ....
Est-ce clair ?
Pierre
"jean-marc" a écrit dans le message de news:
440ecf4d$0$26054$
> Hello,
>
> Désolé, je ne comprend pas la question.
>
> Que veux tu dire par apparaisse à la fin?
> Apparaitre ou ça?
>
> Peux tu donner un exemple?
>
> --
> Jean-marc
>
> "pierre.rivet" wrote in message
> news:440ec7fb$0$21261$
>> Bonjour,
>>
>> Dans le même ordre d'idées....
>>
>> Je viens de suivre votre exemple, et j'ai réussi à créer un listing
dans> un
>> fichier *.txt
>>
>> Impeccable, mais je crois qu'il faudrait améliorer un peu pour
avoir des>> belles colonnes régulièrement espacées...
>>
>> Mais il me reste une petite chose:
>> Comment faire pour que le fichier Remise.txt (par exemple)
apparaisse à>> la
>> fin ?
>>
>> Quelle est la (toute) petite instruction qui manque , du style Show
#1> (ou
>> dans le genre ?)
>>
>> Merci,
>>
>> Pierre
>>
>>
>> "Jean-Marc" a écrit dans le message
de> news:
>> 440df577$0$22150$
>> > "Franck" a écrit dans le message de
>> > news:%
>> >> Bonjour a tous,
>> >>
>> >> Je ses qu'on peut ouvrir un fichier texte avec visual basic et
ecrire>> > dedans
>> >>
>> >> Open "C:test.txt" For Append As #1
>> >> Print #1, "Ceci est un test"
>> >> Close #1
>> >>
>> >>
>> >> mais je me demandait si c'etait possible de faire une recherche
de d'y>> >> ramener le résultat dans
>> >>
>> >> visual basic.
>> >>
>> >> Exemple recherche moi "[TEST]" et ramene moi la ligne qui
suit... ou>> > de quoi
>> >> dans le genre
>> >
>> > Hello,
>> >
>> > voila une façon de faire, parmi d'autres:
>> >
>> > Private Sub Command1_Click()
>> > Dim f As Integer ' descripteur de fichier
>> > Dim buffer As String ' un buffer pour lire le fichier
>> > Dim lignes() As String ' un tableau pour mettre les lignes
>> > Dim i As Long ' pour parcourir le tableau
>> > Dim szPattern As String ' le texte recherché
>> >
>> > szPattern = "TRUC" ' exemple de motif recherché
>> >
>> > f = FreeFile ' on prend un descritpeur libre
>> > Open "c:test.txt" For Binary As #f ' on ouvre en binaire
>> > ' on demande la taille et on alloue la place
>> > buffer = Space$(LOF(f))
>> > Get #f, , buffer ' on lit tout d'un coup
>> > Close #f ' on ferme
>> > lignes = Split(buffer, vbCrLf) ' on découpe en lignes
>> >
>> > ' puis on parcourt ligne par ligne
>> > For i = LBound(lignes()) To UBound(lignes())
>> > ' on cherche notre motif
>> > If InStr(lignes(i), szPattern) > 0 Then
>> > ' si on l'a trouvé on affiche
>> > Debug.Print "texte [" & szPattern & "] trouvé ligne
N°: " &>> > i + 1
>> > End If
>> > Next i
>> > ' et voila
>> > End Sub
>> >
>> > --
>> > Jean-marc
>> > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
>> > "There are only 10 kind of people
>> > those who understand binary and those who don't."
>> > mailto: remove '_no_spam_' ;
>> >
>>
>>
>
>
