Discussion :

[takepaf]

Bonjour à tous,

Voilà le texte que je récupérer dans un de mes string :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Intel Corporation 82801FB/FBM/FR/FW/FRW (ICH6 Family) USB UHCI #1 (rev 05) (prog-if 00 [UHCI]) USB Controller: Intel Corporation 82801FB/FBM/FR/FW/FRW (ICH6 Family) USB UHCI #2 (rev 05) (prog-if 00 [UHCI]) USB Controller: Intel Corporation 82801FB/FBM/FR/FW/FRW (ICH6 Family) USB UHCI #3 (rev 05) (prog-if 00 [UHCI]) USB Controller: Intel Corporation 82801FB/FBM/FR/FW/FRW (ICH6 Family) USB UHCI #4 (rev 05) (prog-if 00 [UHCI]) USB Controller: Intel Corporation 82801FB/FBM/FR/FW/FRW (ICH6 Family) USB2 EHCI Controller (rev 05) (prog-if 20 [EHCI])

Ma question est, comment je pourrai faire pour que le texte à la ligne à chaque fois qu'il voit USB Controller: ????

Merci d'avance pour vos réponse.

[pc75]

Bonjour,

Tu utilises la fonction InStr() pour récupérer la position d'une sous-chaine dans une chaine, et tu fais des concaténations avec des vbcrlf

[takepaf]

Merci pour ta réponse, je men suis inspirai. Merci pour ton aide.

Je mes mon code pour se que sa pourrais intéresser
J'ai utilisé la fonction Split.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
monTab = Split(chaine_usb, "USB Controller:")
    For i = 0 To UBound(monTab) Step 1
        Me.USB = Me.USB & monTab(i) & vbCrLf
    Next i

c'est un exemple après adapter le pour vos besoin.

Encore merci pour ton aide.