Lire un text entre parenthéses d'une textbox

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour,

C'est encore moi :')

Cette fois, j'aimerais savoir comment faire pour que le logitiel que je suis en train de créer en VB sache que l'orsque l'on rentre une paire de parenthése n'importe où dans une textbox, il retienne se qu'il y est écrit : exemple 


Public Class Form2
    Dim speaks = CreateObject("sapi.spvoice")



    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If InStr(1, TextBox1.Text, "(...)", vbTextCompare) > 0 Then 'trouver les ()

            speaks.speak() 'ce qu'il y a dans les parenthéses comme par exemple dans la textbox : "<   lire ce texte(blablabla...)   >"
            'et le sapi  lit le text entre les ().

        End If


    End Sub
End Class



Voilà, merci d'avoir lu

Cordialement VANAUR
A voir également:

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Tu peux te tourner vers les expressions régulières (REGEX)
https://www.commentcamarche.net/faq/41005-vba-initiation-aux-expressions-rationnelles

0
Utilisateur anonyme
 
Bonjour, et merci d'avoir répondu si vite, j'ai déja chercher dans les archives des expressions régulières sur CCM mais, rien, ou pas grand chose ne corespondes...

Désoler
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
pas grand chose ne corespond

A quel niveau ?
Certes... dans le tuto .. ton cas précis n'y est pas expliqué .... c'est juste le principe qui l'est.

Ensuite... pour trouver la regex à utiliser... google est là !!

Enfin bon.. je vais t'éviter de chercher (pour une fois...)
Voici par exemple une regex que tu pourrais utiliser : 
reg.Pattern = "\(([^)]+)\)"


Que tu pourrais donc utiliser dans une fonction : 
Public Function GetStringInParens(search_str As String)
Dim regEx As New VBScript_RegExp_55.RegExp
Dim matches
    GetStringInParens = ""
    regEx.Pattern = "\(([^)]+)\)"
    regEx.Global = True
    If regEx.test(search_str) Then
        Set matches = regEx.Execute(search_str)
        GetStringInParens = matches(0).SubMatches(0)
    End If
End Function
0
Réponse 2 / 2
Utilisateur anonyme
 
Ok j'ai compris le principe

Ca à l'aire un peu spécial et compliquer, mais je vais m'informer, merci
0