cs_trouduc
Messages postés56Date d'inscriptionjeudi 26 décembre 2002StatutMembreDernière intervention28 septembre 2005 11 sept. 2004 à 08:22
ah oui j'oubliais de remercier jrivet pour son aide avec ce code
Dim Numero As String
Dim i As Integer
A = Text
For i = 1 To Len(A)
If IsNumeric(Mid$(A, i, 1)) And IsNumeric(Mid$(A, i, 7)) Then
Numero = Mid$(A, i, 7)
Exit For
End If
Next
et je tiens a remercier aussi crenaud76 pour son aide avec ce code
If LenB(item) <> 0 Then List1.AddItem item
cs_trouduc
Messages postés56Date d'inscriptionjeudi 26 décembre 2002StatutMembreDernière intervention28 septembre 2005 11 sept. 2004 à 08:17
Des commentaires svp
cs_trouduc
Messages postés56Date d'inscriptionjeudi 26 décembre 2002StatutMembreDernière intervention28 septembre 2005 10 sept. 2004 à 23:58
petite astuce dans IE, clic droit sur le nom de la vidéo
ajouter aux favoris...
pour visionner
aller sur Launch France
et la aller dans favori selectionner votre video.
a noter que les liens sur le site australien sont different
donc ne fonctionneras pas comme si haut mentionner
n'hesite pas a visiter tout les sites de Launch
pour trouver ta video j'ai remarquer que le site anglophone ne contient pas toutes les videos
ex. anastacia - Left Outside Alone
je ne l'ai trouver que sur le site allemand et nul part ailleurs
pour mon prog je vais ajouter un bouton favori qui fonctionneras sur tous les sites incluant le site australien
cs_sandrine29
Messages postés21Date d'inscriptionvendredi 2 mai 2003StatutMembreDernière intervention 8 décembre 2007 10 sept. 2004 à 19:47
C'est une astuce pour faire connaitre le service Yahoo vidéo ;) ?
Bon, je vais suivre le dev du prog, t'as interêt à bien bosser dessus, jour et nuit si il le faut!
TchA0.
cs_trouduc
Messages postés56Date d'inscriptionjeudi 26 décembre 2002StatutMembreDernière intervention28 septembre 2005 9 sept. 2004 à 11:32
as tu remarqué que si tu n'utilise pas mon prog tu as une bande annonce avant de visionner ton video
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 9 sept. 2004 à 11:17
Même genre de code que vbprogcorp (déposé quelques heures avant toi), mais au moins, tu as agrémenté ton code de quelques touches perso. C'est bien.
11 sept. 2004 à 08:22
Dim Numero As String
Dim i As Integer
A = Text
For i = 1 To Len(A)
If IsNumeric(Mid$(A, i, 1)) And IsNumeric(Mid$(A, i, 7)) Then
Numero = Mid$(A, i, 7)
Exit For
End If
Next
et je tiens a remercier aussi crenaud76 pour son aide avec ce code
If LenB(item) <> 0 Then List1.AddItem item
11 sept. 2004 à 08:17
10 sept. 2004 à 23:58
ajouter aux favoris...
pour visionner
aller sur Launch France
et la aller dans favori selectionner votre video.
a noter que les liens sur le site australien sont different
donc ne fonctionneras pas comme si haut mentionner
n'hesite pas a visiter tout les sites de Launch
pour trouver ta video j'ai remarquer que le site anglophone ne contient pas toutes les videos
ex. anastacia - Left Outside Alone
je ne l'ai trouver que sur le site allemand et nul part ailleurs
pour mon prog je vais ajouter un bouton favori qui fonctionneras sur tous les sites incluant le site australien
10 sept. 2004 à 19:47
Bon, je vais suivre le dev du prog, t'as interêt à bien bosser dessus, jour et nuit si il le faut!
TchA0.
9 sept. 2004 à 11:32
9 sept. 2004 à 11:17