Recuperer des caracteres dans une string?Résolu

Question

comment je pourrais faire pour recuperer 
les chiffres 1110808 et 1110810 dans ces chaines avec la commande instr( , , ) je crois

javascript:playVideos(1110808);

http://today.launch.yahoo.com/player/player.asp?cid=512&ps=&sx=ondemand%2Exml&vid=1110810

svp merci

jrivet · Accepted Answer

Resalut, 

j avais pas compris la question.

tiens essaie cette fonction.

avec tes deux exemple elle te retourne bien la serie de 7 chiffre.
elle peut d ailleurs etre ameliorer et retourne une serie de moins ou plus de 7 chiffres

Private Function StrinCh(ch As String) As String
Dim i As Integer
Dim Pos As Integer
Pos = 0
For i = 1 To Len(ch)
    If IsNumeric(Mid$(ch, i, 1)) And IsNumeric(Mid$(ch, i, 7)) Then
        StrinCh = Mid$(ch, i, 7)
        Exit For
    End If
Next
End Function

Voila @+
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

 :big)

jrivet · Answer

Salut

If Instr(1,tachaineComplete, "1110808") = 0 then
 ' c est pas contenu dans la chaine
else
' cest contenu
end if

Mais a mon avis tu aurais pu le trouve en essayant simplement la commande...

@+

-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

 :big)

cs_trouduc · Answer

je veut recuperer le chiffre mais je le sais pas d'avance lequel je vais avoir en fais je veut recuperer une serie de 7 chiffres qui ce suivent dans une chaine peut importe la chaine et peut importe ou elle ce trouve dans la chaine

svp merci

cs_ITALIA · Answer

Tu peux avoir d'autre nombre dans ton string ? avant et aprés ?

It@li@

cs_starfighter · Answer

c'est toujours le même format de chaine
javascript:playVideos(XXXXXXX);

http://today.launch.yahoo.com/player/player.asp?cid=512&ps=&sx=ondemand%2Exml&vid=YYYYY

Si oui, fais le test sur les chaines elle même
XXXXXXX est toujours compris entre  "javascript:playVideos(" et ")"
YYYYY est toujours compris entre "vid=" et rien ou "&" dans le cas ou tu aurais  &vid=YYYYY&rep=51 rep etant une autre rubrique

bien sur, il faut que les chaines restent les mêmes surtou la deuxième.

cs_trouduc · Answer

il peut y en avoir comme dans ce lien

http://today.launch.yahoo.com/player/player.asp?cid=512&ps=&sx=ondemand%2Exml&vid=1110810

mais pas juste avant ou juste apres mon nombre

cs_starfighter · Answer

donc:

szChaine="javascript:playVideos(1110808);"
lFirst=len("javascript:playVideos(")
Valeur1=Mid(szChaine,lFirst+1,instr(lFirst+1,szChaine,")")-lFirst-1)

szChaine="http://today.launch.yahoo.com/player/player.asp?cid=512&ps=&sx=ondemand%2Exml&vid=1110810"
lFirst=len("&vid=")
Valeur2=Mid(szChaine,instr(1,szChaine,"&vis=")+lFirst)

cs_starfighter · Answer

Valeur2=Mid(szChaine,instr(1,szChaine,"&vid=")+lFirst)  au lieu de Valeur2=Mid(szChaine,instr(1,szChaine,"&vis=")+lFirst)

cs_trouduc · Answer

(jrivet)
j'essais ca et je reviens apres mon dodo 
yé fatigué le gars
5h30 du matin ici a Montréal

(starfighter)
et puis c vrai que mes chaines risque de pas mal se ressembler
mais j'aime mieux une solution comme jrivet me propose

et merci pour vos reponse aussi prompt
si ya d'autres exemple je suis preneur
il doit y avoir plusieurs moyens de recuperer ca

jrivet · Answer

ok bonne nuit ;)

-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

 :big)

cs_ITALIA · Answer

Regarde du coté de la Fonction Left :

TonNumero=Left$(TaChaine,7)

It@li@

cs_trouduc · Answer

Merci beaucoup jrivet ca fonctionne mais j'ai du modifier un peu
pour bien la comprendre

Private Sub Command1_Click()
Dim Strinch As String
Dim i As Integer
For i = 1 To Len(Text1)
If IsNumeric(Mid$(Text1, i, 1)) And IsNumeric(Mid$(Text1, i, 7)) Then
Strinch = Mid$(Text1, i, 7)
Exit For
End If
Next
Text2 = Strinch
End Sub

ah oui et merci aussi a  starfighter et It@li@

Recuperer des caracteres dans une string?

12 réponses

Discussions similaires