- C / C++ / C++.NET : Recherche d'une chaine de caractère dans un fichier - CodeS SourceS
- Visual Basic / VB.NET : Recherche de chaine de caracteres dans une requete d'une base de donné
- C / C++ / C++.NET : Supprimer une chaine de caracteres d'un fichier - CodeS SourceS
- [VB6 -> VBA]Recuperer une chaine de caractere dans un fichier W à partir de Exce
- Remplacer une chaine de caractères dans un fichier htm
Rechercher une chaine de caractère dans un fichier texte... [Résolu]
Signaler
cs_Luuna
cs_menix
- Messages postés
- 8
- Date d'inscription
- samedi 22 mars 2003
- Statut
- Membre
- Dernière intervention
- 15 juillet 2004
cs_menix
- Messages postés
- 3
- Date d'inscription
- dimanche 13 juillet 2003
- Statut
- Membre
- Dernière intervention
- 14 juillet 2003
A voir également:
- Rechercher une chaine de caractère dans un fichier texte...
- C / C++ / C++.NET : Recherche de chaîne de caractères dans un fichier - CodeS SourceS - Guide
- [ansi c][reponse forum 372070] - recherche d'une chaîne de caractère dans un fichier texte composé d - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Recherche de chaine de caractéres sur des fichiers .txt avec séparateurs entre les champs, et affic - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Rechercher une chaîne de caractère quelconque dans un fichier quelconque - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- C / C++ / C++.NET : Recherche d'une chaine de caractère dans un fichier - CodeS SourceS - Guide
2 réponses
cs_menix
- Messages postés
- 3
- Date d'inscription
- dimanche 13 juillet 2003
- Statut
- Membre
- Dernière intervention
- 14 juillet 2003
Les lignes de codes sont de format basic standard et non VB6
essaye la fonction (INSTR) qui recherche une chaine dans une autre chaine.
essaye la fonction (INSTR) qui recherche une chaine dans une autre chaine.
nhervagault
- Messages postés
- 6063
- Date d'inscription
- dimanche 13 avril 2003
- Statut
- Modérateur
- Dernière intervention
- 15 juillet 2011
Utilise les expression regurliere et tu y arriveras peut etre
Private Sub Form_Load()
Dim reg As New RegExp
Dim strTest As String
Dim regPattern As String
Dim Matches As MatchCollection
Dim mtch As Match
Dim blnFound As Boolean
strTest = "A1234B4567"
regPattern = "B\d+$"
With reg
.Pattern = regPattern
MsgBox .Test(strTest)
Set Matches = .Execute(strTest)
For Each mtch In Matches
MsgBox mtch.Value
Next mtch
End With
Set reg = Nothing
End Sub
Il faut bien sur ajouter la refernce à vbscript regexp
Pour ajouter les données
utilise ADO
et pour lire les fichier je prefere filesystemobject
---> plus clair a utiliser que les #1 ...
Utilise les refernce microsoft scripting runtime
et microsoft activex data object 2.7 ... (? en fonction de ce que tu as sur ta machine)
Dim fso as new filesystemobject
Dim ts as textstream
Set ts = fso.opentextfile("c:\.....") 'option for reading si tu veux
while not ts.eofodstream
ligne = ts.readligne()
---> tu traites la ligne avec les regexp comme ci dessus
wend
ts.close
------------------------ADO
Dim conn as new adodb.connection
Dim com as new adodb.command
strconn = "chaine de connection access"
conn.open strconn
com.activeconnection = conn
strsql = "insert ............................."
com.commandtext = strsql
com.execute
conn.close
voila j'esperes que ca t'aider il reste a tout mettre ensuite pour que ca marche et a trouver les bonne expression reguliere
cf. Internet MSDN ou des cours de perl ....
Private Sub Form_Load()
Dim reg As New RegExp
Dim strTest As String
Dim regPattern As String
Dim Matches As MatchCollection
Dim mtch As Match
Dim blnFound As Boolean
strTest = "A1234B4567"
regPattern = "B\d+$"
With reg
.Pattern = regPattern
MsgBox .Test(strTest)
Set Matches = .Execute(strTest)
For Each mtch In Matches
MsgBox mtch.Value
Next mtch
End With
Set reg = Nothing
End Sub
Il faut bien sur ajouter la refernce à vbscript regexp
Pour ajouter les données
utilise ADO
et pour lire les fichier je prefere filesystemobject
---> plus clair a utiliser que les #1 ...
Utilise les refernce microsoft scripting runtime
et microsoft activex data object 2.7 ... (? en fonction de ce que tu as sur ta machine)
Dim fso as new filesystemobject
Dim ts as textstream
Set ts = fso.opentextfile("c:\.....") 'option for reading si tu veux
while not ts.eofodstream
ligne = ts.readligne()
---> tu traites la ligne avec les regexp comme ci dessus
wend
ts.close
------------------------ADO
Dim conn as new adodb.connection
Dim com as new adodb.command
strconn = "chaine de connection access"
conn.open strconn
com.activeconnection = conn
strsql = "insert ............................."
com.commandtext = strsql
com.execute
conn.close
voila j'esperes que ca t'aider il reste a tout mettre ensuite pour que ca marche et a trouver les bonne expression reguliere
cf. Internet MSDN ou des cours de perl ....