Lire un text entre parenthéses d'une textbox

Résolu/Fermé
Utilisateur anonyme - 12 juin 2016 à 17:31
 Utilisateur anonyme - 12 juin 2016 à 19:54
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

jordane45 Messages postés 38423 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 15 février 2025 4 734
12 juin 2016 à 17:44
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
12 juin 2016 à 17:58
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 38423 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 15 février 2025 4 734
12 juin 2016 à 18:13
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
Utilisateur anonyme
12 juin 2016 à 19:54
Ok j'ai compris le principe

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