[R] Je cherche à effacer tout ce qui se trouve à gauche et à droite du symbole apostrophe

[Boulanza]

Bonjour,
Ceci est le résultat du MsgBox : Global $size = ' 60047544 ' du code ci-dessous.
Je cherche à effacer tout ce qui se trouve à gauche et à droite du symbole apostrophe '
C'est à dire je ne garde que les chiffres : 60047544
Merci pour votre aide
Cordialement.

Code: [Tout sélectionner] [Déplier/Replier]

#include <File.au3>
Local $iFileSize = @ScriptDir&"\Test.au3"
Local $hFileOpen = FileOpen($iFileSize, $FO_READ)
Local $sFileRead = FileReadLine($hFileOpen, 111)
MsgBox(64,"test",$sFileRead)

GeSHi © Extension Codebox Plus

[Boulanza]

Bonjour,
Le résultat est : 60047544 ' sans que je puisse supprimer l'apostrophe de droite.
Il reste juste à effacer l'apostrophe de droite.
Votre aide est la bien venue.
Cordialement.

Code: [Tout sélectionner] [Déplier/Replier]

#include <File.au3>
Local $iFileSize = @ScriptDir&"\Test.au3"
Local $hFileOpen = FileOpen($iFileSize, $FO_READ)
Local $sFileRead = FileReadLine($hFileOpen, 111)
MsgBox(64,"test",$sFileRead)
$phrase = $sFileRead
$phrase_sans_apostrophe = StringReplace ($phrase, "Global $size = '" , "")
MsgBox (0, "", $phrase_sans_apostrophe)

GeSHi © Extension Codebox Plus

[jl56]

Bonjour

de la même façon avec une deuxième passe

Code: [Tout sélectionner] [Déplier/Replier]

$phrase="Global $size = ' 60047544 '"
$phrase_sans_apostrophe = StringReplace ($phrase, "Global $size = ' " , "")
$phrase_sans_apostrophe = StringReplace ($phrase_sans_apostrophe, " '" , "")
MsgBox (0, "", $phrase_sans_apostrophe)

GeSHi © Extension Codebox Plus

A+

Jl56

[Boulanza]

Merci jl56 pour votre réponse, ça marche parfaitement avec quelques petites modifications.
Cordialement.

Code: [Tout sélectionner] [Déplier/Replier]

$phrase = $sFileRead
$phrase1 = StringReplace ($sFileRead, "Global $size = '" , " '")
$phrase2 = StringReplace ($phrase1, " '" , "")
MsgBox (0, "", $phrase2)

GeSHi © Extension Codebox Plus

[Nine]

Ceci peut-être ?

Code : Tout sélectionner

#include <Array.au3>

$str = "Global $Test1 = '12345'" & @CRLF & _
  "Local $Test2 = 'Abcdef' ; ceci est un test" & @CRLF & _
  "MsgBox (0, 'Message', 'Test')"

$arr = StringRegExp ($str, "[^']*(?:'([^']*)')", 3)
_ArrayDisplay ($arr)

[mikell]

$arr = StringRegExp ($str, "'([^']*)'", 3) est suffisant

[Nine]

Bon, bon, bon. mikell a senti le besoin de me reprendre...

[TommyDDR]

Je ne pense pas qu'il vous "reprend", il ajuste simplement votre proposition. Autant avoir une solution simple et fonctionnelle qu'une solution fonctionnelle et un peu plus "compliquée".

[Nine]

C'était pas méchant, juste un clin d’œil...Car je peux pas compétitionner avec mikell sur ce terrain

[mikell]

Bon, on aurait dû (tous les 2) utiliser le smiley "sourire" toujours très utile pour relativiser la portée des commentaires

[TommyDDR]

Désolé, j'avais senti vos "..." comme un sentiment saoulé ^^