Rechercher une chaine de caractere dans un fichier texte
cs_simonfr
Messages postés
9
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
-
10 juin 2005 à 13:57
Diurnambule95 Messages postés 3 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 29 octobre 2005 - 29 oct. 2005 à 11:34
Diurnambule95 Messages postés 3 Date d'inscription vendredi 28 octobre 2005 Statut Membre Dernière intervention 29 octobre 2005 - 29 oct. 2005 à 11:34
A voir également:
- Rechercher une chaine de caractere dans un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Python extraire une partie d'une chaine de caractère - Forum ColdFusion
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Python extraire chaine de caractère ✓ - Forum VB.NET
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
7 réponses
Teclis01
Messages postés
1423
Date d'inscription
mardi 14 décembre 2004
Statut
Membre
Dernière intervention
29 décembre 2012
4
10 juin 2005 à 14:10
10 juin 2005 à 14:10
Dim txt As String
Open "E:\wow\commandgmuse.txt" For Input As #1
Do While Not EOF(1) 'boucle jusque la fin du fichier
Line Input #1, txt
commandes = commandes & txt 'ajoute la ligne ds le string a la suite'
'traitement de la ligne'
nbchartxt = Len(txt) 'nombre de caractere de la ligne'
For i = 1 To nbchartxt
car = Mid(txt, i, 1) 'on recupere a partir du i ème caractere 1 caractere'
If car = "-" Then 'si on trouve le séparateur'
Item = Left(txt, i - 1) 'on enleve le separateur'
Combo1.AddItem Item 'on ajoute '
Exit For
End If
Next i
Loop 'retour de boucle
Close #1
voilà je pense un bon exemple ...le separateur au lieu d etre - sera cke tu cherche en string et il faut changer certain parametre tel le fichier, les limites
Lignes a changer
car = Mid(txt, i, 1)
If car = "-" Then 'si on trouve le séparateur'
Item = Left(txt, i - 1) 'on enleve le separateur'
Merci d accepter la reponse si elle te convient
-------------------------------------------------------------------------------------------------------
Il vaut mieux poser une question et passer pour bête que le rester toute sa vie
Open "E:\wow\commandgmuse.txt" For Input As #1
Do While Not EOF(1) 'boucle jusque la fin du fichier
Line Input #1, txt
commandes = commandes & txt 'ajoute la ligne ds le string a la suite'
'traitement de la ligne'
nbchartxt = Len(txt) 'nombre de caractere de la ligne'
For i = 1 To nbchartxt
car = Mid(txt, i, 1) 'on recupere a partir du i ème caractere 1 caractere'
If car = "-" Then 'si on trouve le séparateur'
Item = Left(txt, i - 1) 'on enleve le separateur'
Combo1.AddItem Item 'on ajoute '
Exit For
End If
Next i
Loop 'retour de boucle
Close #1
voilà je pense un bon exemple ...le separateur au lieu d etre - sera cke tu cherche en string et il faut changer certain parametre tel le fichier, les limites
Lignes a changer
car = Mid(txt, i, 1)
If car = "-" Then 'si on trouve le séparateur'
Item = Left(txt, i - 1) 'on enleve le separateur'
Merci d accepter la reponse si elle te convient
-------------------------------------------------------------------------------------------------------
Il vaut mieux poser une question et passer pour bête que le rester toute sa vie
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
10 juin 2005 à 14:14
10 juin 2005 à 14:14
Ca doit faire un truc comme çà (pas testé):
(on appelle la fonction comme ceci :
valeurRetour=isPresent("C:\toto.txt","titi")
=================================================
Public Function isPresent(sFilename As String,sChaine As String) As Long
Dim numFile As Long
Dim s As String
Dim lFound As Long
lFound=0
numFile=FreeFile
Open sFilename For Input As #numFile
While not EOF(numFile) And lFound=0
Line Input #numFile,s
If Instr(1,s,sChaine,vbTextCompare)>0 then
lFound=1
End If
Wend
close #numFile
isPresent=lFound
End Function
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
(on appelle la fonction comme ceci :
valeurRetour=isPresent("C:\toto.txt","titi")
=================================================
Public Function isPresent(sFilename As String,sChaine As String) As Long
Dim numFile As Long
Dim s As String
Dim lFound As Long
lFound=0
numFile=FreeFile
Open sFilename For Input As #numFile
While not EOF(numFile) And lFound=0
Line Input #numFile,s
If Instr(1,s,sChaine,vbTextCompare)>0 then
lFound=1
End If
Wend
close #numFile
isPresent=lFound
End Function
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
cs_franckydeluka
Messages postés
228
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
4 janvier 2008
1
10 juin 2005 à 14:33
10 juin 2005 à 14:33
Salut !!
Essaie cet algorythme :
Dim Text As String 'dans cette variable le programme copie entièrement le fichier text
Dim CaracToSearch As String 'caractère à rechercher
Dim validation As Integer 'si validation = 0 la chaine de caractère n'est pas présente
Open "C:\NouveauTexte.txt" For Binary Access Read As 1 'chemin d'accès à ton fichier .txt
lFileSize = LOF(1)
Text = String(lFileSize, " ")
Get #1, , Text
Close 1
validation = 0
For i = 1 To Len(Text)
CaracToSearch = Mid(Text, i, 8) '8 est le nombre de caractère composant la string à rechercher
If CaracToSearch = "alleluia" Then
validation = 1
MsgBox ("chaine de caractère présente")
Exit For
End If
Next i
If validation = 0 Then MsgBox ("chaine de caractère pas présente")
Bon courage
Deluka.
Essaie cet algorythme :
Dim Text As String 'dans cette variable le programme copie entièrement le fichier text
Dim CaracToSearch As String 'caractère à rechercher
Dim validation As Integer 'si validation = 0 la chaine de caractère n'est pas présente
Open "C:\NouveauTexte.txt" For Binary Access Read As 1 'chemin d'accès à ton fichier .txt
lFileSize = LOF(1)
Text = String(lFileSize, " ")
Get #1, , Text
Close 1
validation = 0
For i = 1 To Len(Text)
CaracToSearch = Mid(Text, i, 8) '8 est le nombre de caractère composant la string à rechercher
If CaracToSearch = "alleluia" Then
validation = 1
MsgBox ("chaine de caractère présente")
Exit For
End If
Next i
If validation = 0 Then MsgBox ("chaine de caractère pas présente")
Bon courage
Deluka.
cs_franckydeluka
Messages postés
228
Date d'inscription
mardi 5 avril 2005
Statut
Membre
Dernière intervention
4 janvier 2008
1
10 juin 2005 à 14:36
10 juin 2005 à 14:36
oh j'avais pas vu qu'il y avait autant de réponse ! >>lol
j'espère que tu trouveras ton bonheur là dedans
Deluka.
j'espère que tu trouveras ton bonheur là dedans
Deluka.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_simonfr
Messages postés
9
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
10 juin 2005 à 14:59
10 juin 2005 à 14:59
merci a tous pour vos reponses
je ne peut pas encore vous dire si ca marche mais je vousle ferai savoir des que possible
encore merci+++
je ne peut pas encore vous dire si ca marche mais je vousle ferai savoir des que possible
encore merci+++
cs_simonfr
Messages postés
9
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
14 juin 2005 à 11:17
14 juin 2005 à 11:17
re,
dsl de repondre si tard mais j'avais laisser de cote ce porjet pendant quelques jours
j'ai tester tous les script que vous m'avez fournit mais j'ai toujours la meme erreur
des qu'il i a un As dans le script ca plante et ca me dit une erreur souvent : fin d'instruction attendue mais defois ca change.
je suis perdu :(
dsl de repondre si tard mais j'avais laisser de cote ce porjet pendant quelques jours
j'ai tester tous les script que vous m'avez fournit mais j'ai toujours la meme erreur
des qu'il i a un As dans le script ca plante et ca me dit une erreur souvent : fin d'instruction attendue mais defois ca change.
je suis perdu :(
Diurnambule95
Messages postés
3
Date d'inscription
vendredi 28 octobre 2005
Statut
Membre
Dernière intervention
29 octobre 2005
29 oct. 2005 à 11:34
29 oct. 2005 à 11:34
Open strAutoexec For Output As #1
pourquoi sa merde il me dit kil y a une erreur mais bon je début donc ...
pourquoi sa merde il me dit kil y a une erreur mais bon je début donc ...
