WhiteDwarf
Messages postés510Date d'inscriptionsamedi 29 décembre 2001StatutMembreDernière intervention23 mai 2008
-
28 oct. 2005 à 15:15
WhiteDwarf
Messages postés510Date d'inscriptionsamedi 29 décembre 2001StatutMembreDernière intervention23 mai 2008
-
29 oct. 2005 à 13:41
Je cherche a isoler une chaine de caractère dans un fichier texte, je veux isoler tout le texte se trouvant entre deux indicateurs mais je ne connais pas la longeur de celui ci, il faut aussi savoir que le texte s'étend sur plusieures lignes...
Je ne sais pas comment faire un traitement ligne par ligne (j'ai déja récupéré le contenu du texte dans une variable)
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 oct. 2005 à 17:27
re,
je vois pas comment t'aider plus, la fonction est faite, et t'as même le bouton exemple....
pour tester sans la source de ton WebBrowser, remplace
CodeScr = UCase (WebBrowser1.Document.documentElement.innerHTML)
par
CodeScr = UCase("blablabla ceci est la première partie du texte qui devrait " & _
"s'arrête ici!j'aime bien Shrek apparemment...pour continuer juste là pour" & _
" notre 2e partie. la zone est donc bien isolée....")
WhiteDwarf
Messages postés510Date d'inscriptionsamedi 29 décembre 2001StatutMembreDernière intervention23 mai 2008 28 oct. 2005 à 17:35
Ouais mais je me suis mal exprimé, en fait je veu récupérer le texte du milieu. Sinon dans l'autre sens ca marche nikel...
---------------------- La lumière étant plus rapide que le son, un homme peu paraître brillant avant qu'il se mette a parler ["http://www.laxis.net" [Laxis]]WhiteDwarf ----------------------
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 oct. 2005 à 18:01
ok. 2e fois : explique-toi mieux STP !!!!
Option Explicit
'
'
Private Sub Command1_Click()
Dim sFind As String
If Recherche(sFind, _
"blablabla ceci est la première partie du texte qui devrait s'arrête ici!", _
"pour continuer juste là pour notre 2e partie. la zone est donc bien isolée....") Then
MsgBox "TROUVé ->" & vbCrLf & sFind, 32
Else
MsgBox "Erreur dans la fonction recherche, ou séparateurs (début et fin) non-trouvés", 32
End If
End Sub
'
'
Public Function Recherche(ByRef Texte As String, ByVal Expression_debut As String, ByVal Expression_fin As String) As Boolean
On Error GoTo ErrHandler
Dim CodeScr As String, sTxt As String
'....test ci dessous à virer et enlever la côte du WebBrowser
CodeScr = UCase ("blablabla ceci est la première partie du texte qui devrait " & _
"s'arrête ici!j'aime bien Shrek apparemment...pour continuer juste là pour" & _
" notre 2e partie. la zone est donc bien isolée....")
'CodeScr = UCase(WebBrowser1.Document.documentElement.innerHTML)
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 oct. 2005 à 18:33
tite' modif pour vérifier l'existance des déparateurs choisis
Public Function Recherche(ByRef Texte As String, ByVal Expression_debut As String, ByVal Expression_fin As String) As Boolean
On Error GoTo ErrHandler
Dim CodeScr As String, sTxt As String, lPos As Long
'....test ci dessous à virer et enlever la côte du WebBrowser
CodeScr = UCase ("blablabla ceci est la première partie du texte qui devrait " & _
"s'arrête ici!j'aime bien Shrek apparemment...pour continuer juste là pour" & _
" notre 2e partie. la zone est donc bien isolée....")
'CodeScr = UCase(WebBrowser1.Document.documentElement.innerHTML)
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 28 oct. 2005 à 15:28
utilise la fonction Split par exemple pour séparer ton texte en trois :
ce qu'il y a avant ton indicateur, ce qu'il y a entre tes deux
indicateurs, et ce qu'il y a après l'indicateur, et ensuite, il te
suffit de n'utiliser que ce qui te faut.
_____________________________________________________________________
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
WhiteDwarf
Messages postés510Date d'inscriptionsamedi 29 décembre 2001StatutMembreDernière intervention23 mai 2008 28 oct. 2005 à 15:30
Merci de ta réponse, mais Split ne marche pas, voila ce que j'ai fais :
Public Function Recherche(Texte As String, Expression_debut As String, Expression_fin As String) As String
Dim Variable
Dim Valeur
CodeScr = WebBrowser1.Document.documentElement.innerHTML
Valeur = Split(UCase(CodeScr), Expression_debut)
Variable = Split(Valeur(1), Expression_fin)
Recherche = Variable(0)
End Function
Mais je crois que split ne marche pas sur un texte lorsqu'il y a plusieures lignes...
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 oct. 2005 à 16:51
re
[VB6]
normalement, çà devrait être bon :
Option Explicit
'
'
Private Sub Command1_Click()
Dim sDebut As String
Dim sFin As String
If Recherche("j'aime bien Shrek apparemment...", sDebut, sFin) Then
MsgBox "DéBUT ->" & vbCrLf & sDebut & vbCrLf & vbCrLf & "FIN ->" & vbCrLf & sFin, 32
Else
MsgBox "Erreur dans la fonction recherche, ou texte non trouvé", 32
End If
End Sub
'
'
Public Function Recherche(ByVal Texte As String, ByRef Expression_debut As String, ByRef Expression_fin As String) As Boolean
On Error GoTo ErrHandler
Dim aSplit() As String, CodeScr As String
CodeScr = UCase (WebBrowser1.Document.documentElement.innerHTML)
aSplit = Split(CodeScr, UCase(Texte))
Expression_debut = aSplit(0)
Expression_fin = aSplit(1)
Erase aSplit
On Error GoTo 0 ' *FGE*
Recherche = True
Exit Function
ErrHandler:
Err.Clear
Recherche = False
End Function
WhiteDwarf
Messages postés510Date d'inscriptionsamedi 29 décembre 2001StatutMembreDernière intervention23 mai 2008 28 oct. 2005 à 17:19
Merci, mais en fait, j'aurais aimé isoler le texte entre les deux et je n'arrive pas en utilisant ton code, pourrais tu encore uine fois m'aider ?
Merci encore
---------------------- La lumière étant plus rapide que le son, un homme peu paraître brillant avant qu'il se mette a parler ["http://www.laxis.net" [Laxis]]WhiteDwarf ----------------------
WhiteDwarf
Messages postés510Date d'inscriptionsamedi 29 décembre 2001StatutMembreDernière intervention23 mai 2008 29 oct. 2005 à 13:41
Merci pcpt pour ton aide, ca marche nikel, et j'ai compris pkoi ca marchais pas avec mon webbrowser, le code que je réupère n'est pas celui de la page que je veux mais celui de la page d'erreur de windows...
je ne sais pas pkoi je vais essayer de trouver, merci encore
---------------------- La lumière étant plus rapide que le son, un homme peu paraître brillant avant qu'il se mette a parler ["http://www.laxis.net" [Laxis]]WhiteDwarf ----------------------