[R] Probleme d'utilisation de StringMid & StringInStr

[LqX]

Bonjour, voici mon problème.

J'aimerai extraire d'une variable une partie du contenu de celle-ci.

Exemple de deux contenu differents :
1- 122_departs_HTA_C.REGC0013_-_TOISON_-_A3V_10321931_1
2- 122_departs_HTA_C.REGC0014_-_DARBOI_-_A3V_10321759_1

Il faudrai que j'arrive a extraire ce qui en Rouge.

Donc j'ai essayer d'utiliser StringMid en utilisant StringInStr pour les valeur de départ et du nombre de caractere a extraire.

Pour la valeur de départ de StringMid j'utilisai ce caractère "-" et StringInStr pour me réperer et ainsi recuperer la bonne position de départs.

De même pour la valeur d'arriver mais c'est fois en partant directement du premier StringInStr ou il trouve "-".

Voici mon code brouillon.

► Afficher le texte

#include<Array.au3>
#include"_FileListToArrayEx.au3"

$ar_Array = _FileListToArrayEx (@ScriptDir, "*.pdf", 1, 1)

_ArrayDisplay($ar_Array, "Liste fichier") ; récupère tous les noms des fichier présent dans @scriptdir et les mets dans un tableau.

For $i = 1 To $ar_Array[0] ; La boucle qui permettra d'effectuer une action sur chaque nom de fichier présent dans le tableau.

MsgBox(0,"Array",StringMid($ar_Array[$i], StringInStr($ar_Array[$i], "-", 2, 1), StringInStr($ar_Array[$i], "-", 0, 1)))

Next

Voila en esperant avoir un petit coup de pouce.
Cordialement.

[Iste]

avec

Code : Tout sélectionner

_StringBetween($str, "_-_", "_-_")

ca le ferait ?

[mikell]

Voilà... mais c'est un peu barbare, vaudrait mieux le faire en regexp

Code : Tout sélectionner

$txt = "122_departs_HTA_C.REGC0013_-_TOISON_-_A3V_10321931_1"

$n = StringInStr($txt, "-", 0, -1) - StringInStr($txt, "-", 0, 1) - 3
MsgBox(0,"Array",StringMid($txt, StringInStr($txt, "-", 0, 1)+2, $n))

[LqX]

Merci

J'ai encore beaucoup de mal avec tous les String*.

EDIT : j'ai encore parler beaucoup trop vite.

J'ai donc utiliser ce que tu m'avait envoyer mikell et sa ne renvoi pas la valeur voulu, même aucune.

Voici le code adapté :

► Afficher le texte

#include<Array.au3>
#include"_FileListToArrayEx.au3"

$txt = _FileListToArrayEx (@ScriptDir, "*.pdf", 1, 1)

_ArrayDisplay($txt, "Liste fichier")
For $i = 1 To $txt[0]

$n = StringInStr($txt, "-", 0, -1) - StringInStr($txt, "-", 0, 1) - 3
MsgBox(0,"Array",StringMid($txt, StringInStr($txt, "-", 0, 1)+2, $n))

Next

Voici ce que contient le Tableau global des noms.

► Afficher le texte

[0]|17
[1]| 122_departs_HTA_AVENIC0010_-_C.AFFA_-_A3V_10321713_1.pdf
[2]| 122_departs_HTA_AVENIC0011_-_MALADI_-_A3V_10321832_1.pdf
[3]| 122_departs_HTA_AVENIC0012_-_MAYENC_-_A3V_10321842_1.pdf
[4]| 122_departs_HTA_AVENIC0013_-_C.COGN_-_A3V_10321714_1.pdf
[5]| 122_departs_HTA_AVENIC0014_-_THOMSO_-_A3V_10321929_1.pdf
[6]| 122_departs_HTA_AVENIC0015_-_MALINE_-_A3V_10321834_1.pdf
[7]| 122_departs_HTA_C.REGC0011_-_P.TECH_-_A3H_10321868_1.pdf
[8]| 122_departs_HTA_C.REGC0012_-_AUDITO_-_A3V_10321689_1.pdf

[mikell]

Le regexp, pour le fun

Code : Tout sélectionner

$txt = "122_departs_HTA_C.REGC0013_-_TOISON_-_A3V_10321931_1"

MsgBox(0,"Array", StringRegExpReplace($txt, '.+?-_(.+?)_.+', "$1") )

[LqX]

L'erreur est de moi, $txt[$i] , j'avais oublier [$i].
Autant pour moi, je me précipite trop souvent

Merci, je ne m'étais pas encore pencher sur RegExp mais je voit que c'est vraiment plus pratique.

Sujet résolu.