Récup du texte dans une page web
Résolu
Marneus73
Messages postés
344
Date d'inscription
mercredi 24 janvier 2007
Statut
Membre
Dernière intervention
27 octobre 2008
-
25 oct. 2008 à 11:40
Marneus73 Messages postés 344 Date d'inscription mercredi 24 janvier 2007 Statut Membre Dernière intervention 27 octobre 2008 - 27 oct. 2008 à 13:47
Marneus73 Messages postés 344 Date d'inscription mercredi 24 janvier 2007 Statut Membre Dernière intervention 27 octobre 2008 - 27 oct. 2008 à 13:47
A voir également:
- Récup du texte dans une page web
- Exemple de page d'authentification - Conseils pratiques -PHP
- Modele de site web - Conseils pratiques -PHP
- Service web - Conseils pratiques -Visual Basic / VB.NET
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Souligner texte illustrator - Forum Graphisme/design
4 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
25 oct. 2008 à 13:45
25 oct. 2008 à 13:45
salut,
base-toi sur cet exemple avec les "parties entourantes"
' RÉCUPÉRER UNE CHAÎNE
(INCONNUE) PLACÉE ENTRE DEUX CHAÎNES (CONNUES)
' http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1046
' Posté par [ Charles Racaud ] le 04/03/2007
<hr />
Private Function MidStr(ByVal Str As String, ByVal sStart As String, ByVal sEnd As String, Optional ByVal Start As Integer = 30) As String
Try
Dim iStart As Integer = Str.IndexOf(sStart, Start) + 1
Dim iEnd As Integer = Str.IndexOf(sEnd, iStart)
Return Str.Substring(iStart, iEnd - iStart)
Catch ex As Exception
Return String.Empty
End Try
End Function
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp <
base-toi sur cet exemple avec les "parties entourantes"
' RÉCUPÉRER UNE CHAÎNE
(INCONNUE) PLACÉE ENTRE DEUX CHAÎNES (CONNUES)
' http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx#1046
' Posté par [ Charles Racaud ] le 04/03/2007
<hr />
Private Function MidStr(ByVal Str As String, ByVal sStart As String, ByVal sEnd As String, Optional ByVal Start As Integer = 30) As String
Try
Dim iStart As Integer = Str.IndexOf(sStart, Start) + 1
Dim iEnd As Integer = Str.IndexOf(sEnd, iStart)
Return Str.Substring(iStart, iEnd - iStart)
Catch ex As Exception
Return String.Empty
End Try
End Function
++
<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp <
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
26 oct. 2008 à 20:41
26 oct. 2008 à 20:41
à toi cherche chercher vbcrlf & "<td>" au lieu juste de "<td>" ...
le code fait ce que tu lui dit de faire, à toi de spécifier les bons critères
ps : je crois qu'en dotnet c'est pas VBCRLF mais quelque chose comme environment.vbnewline, à vérifier
le code fait ce que tu lui dit de faire, à toi de spécifier les bons critères
ps : je crois qu'en dotnet c'est pas VBCRLF mais quelque chose comme environment.vbnewline, à vérifier
Marneus73
Messages postés
344
Date d'inscription
mercredi 24 janvier 2007
Statut
Membre
Dernière intervention
27 octobre 2008
26 oct. 2008 à 19:32
26 oct. 2008 à 19:32
Merci ça marche nickel, mais j'ai juste un petit souci avec les saut de ligne, parfois j'ai <td>mon truc</td> sur une seule ligne, sauf que j'ai d'autres lignes qui commencent par <td> dans le doc. Je voudrais savoir si il serait possible de récup l'info de la ligne d'avant pour qu'au moins un de mes deux critéres (sStart ou
sEnd
) soit unique dans le document.
sEnd
) soit unique dans le document.
Marneus73
Messages postés
344
Date d'inscription
mercredi 24 janvier 2007
Statut
Membre
Dernière intervention
27 octobre 2008
27 oct. 2008 à 13:47
27 oct. 2008 à 13:47
Ah oui, en plus j'y avait pensé mais j'étais persuadé que cela ne marcherait pas !!! Comme quoi...
