[R] Lire entre des parenthèses

[TT22]

Bonjour,
Je voudrais que quelqu'un m'aide à créer un script qui permettrait de lire un fichier texte et de garder seulement ce qu' il y a écrit entre parenthèses.

Merci d'avance.

[jchd]

Le principe de base est là :

► Afficher le texte

#include <Array.au3>
Local $str = "(abc) def ghi( )jkl (mno)" & @CRLF & " fhqdsuil (fdqhup) fqhuom(" & @CRLF & ") sur la (ligne2) et fin."
$entrePar = StringRegExp($str, "(?m)\(([^\)]*)\)", 3)
ConsoleWrite(_ArrayToString($entrePar, "") & @LF)

Par contre, s'il te faut gérer des parenthèses sur plusieurs niveaux (comment ?), il faut avoir recours à une technique moins élémentaire, mais toujours possible en PCRE.

[TT22]

Je comprend pas très bien comment ça fonctionne

[jchd]

Voir l'aide sur StringRegExp.

Ah oui, l'aide c'est la touche F1

Edit : bon alors on se fait ça vite, hein.
Disons que le pattern c'est "(?mx) \( ( [^ \) ] * ) \)"
J'ai rajouté ici l'option x pour pouvoir introduire des espaces non significatifs dans le pattern, pour la lisibilité.
Décomposons ce Lego™®.
(?mx) sont des options : m pour "multiline" pour traiter plusieurs lignes d'un coup et x déjà vu
\( matche un caractère (
( début du groupe de capture
[^ \) ] matche "tout caractère qui n'est pas )"
* répété zéro ou plus
) fin du groupe de capture
\) matche la parenthèse fermante

L'option 3 de StringRegExp ré-applique ce pattern (et sa capture) autant de fois que possible dans la chaîne sujet.
Le tableau résultant contient donc toutes les chaînes de caractères qui figurent entre parenthèses dans la chaîne sujet.
On concatène ce tableau et on obtient ce que tu voulais initialement.

[TT22]

Ok, merci beaucoup.

[TopXm]

Bonjour,

Le _StringBetween n'irait pas dans ce cas ?

[jchd]

Certes mais avec une boucle et un découpage à chaque itération... Tortueux.

[mikell]

pattern = motif, modèle, forme
match = répondre à, être l'égal de, correspondre à
Lego = casse-tête suédois

[TT22]

Lego = casse-tête suédois

Lego ça vient pas plutôt du Danemark ?

[mikell]

Si ....
tiens regarde ça qui vient tout droit du fichier d'aide :

Code : Tout sélectionner

#include <String.au3>
#include <Array.au3>

$string = "[18][20][3][5][500][60]"
$aArray1 = _StringBetween($string, "[", "]")
_ArrayDisplay($aArray1, 'Default Search')

c'est pas beautiful ça ? c'est pas amazing ?

[jchd]

Certes, mais as-tu regardé ce que faisait _StringBetween en réalité ?

[mikell]

oui y a comme un air de famille

[jchd]

N'est-ce pas, mais avec trois regexps au lieu d'une.