StringRegExp tilde - (Moved)

[jcpetu]

Hi there,

I'm trying to create a little script using StringRegExp to filter the interface connection status, but I can't make the appropriate expression to filter letters with tilde in spanish. 

This is what I have by now:

#include <Array.au3>
#include <constants.au3>

Local $interface = Run("netsh interface show interface wi-fi", "", @SW_HIDE, $STDOUT_CHILD)
Local $output = ""
While 1
    $output &= StdoutRead($interface)
    If @error Then ExitLoop
WEnd
ConsoleWrite($output & @CRLF)

$Status = StringRegExp($output, "(?m).+\hEstado de conexión+\h+\h+(.*)\s", 3)

If Not @error Then ConsoleWrite("Status: " & $Status & @CRLF)

Any help will be appreciated!

[jchd]

Post subject and expected result strings.

[jcpetu]

Hi jchd, when running netsh interface show interface wi-fi you get:

Wi-Fi
   Tipo:                 Dedicado
   Estado administrativo: Habilitado
   Estado de conexión:        Conectado

And I'm using StringRegExp to extract: Conectado

The code I corrected is:

#include <Array.au3>
#include <constants.au3>

Local $interface = Run("netsh interface show interface wi-fi", "", @SW_HIDE, $STDOUT_CHILD)
Local $output = ""
While 1
    $output &= StdoutRead($interface)
    If @error Then ExitLoop
WEnd
ConsoleWrite($output & @CRLF)

$Status = StringRegExp($output, "(?m).+\hEstado de conexión+\h+\h+(.*)\s", 3)
_ArrayDisplay($Status )
If Not @error Then ConsoleWrite("Status: " & $Status[0] & @CRLF)

 

[Jos]

Moved to the appropriate forum, as the AutoIt Example Scripts forum very clearly states:

Quote

Share your cool AutoIt scripts, UDFs and applications with others.

---

Do not post general support questions here, instead use the AutoIt Help and Support forums.

Moderation Team

[mikell]

No problem with spanish letters, There were some errors in the pattern
Please try this

$status = StringRegExpReplace($output, "(?s).+Estado de conexión:\h+(\w+).*", "$1")

 

[jcpetu]

Hi mikel, thls for your help.

It doesn't work. It doesn't output anything.

I would like to get the result in an array to been able to use it in a list view where I would like to show the connection status for different interfaces.

For example, if I use this little piece of code I got an array with the result:

#include <Array.au3>
#include <constants.au3>

Local $interface = Run("netsh interface show interface wi-fi", "", @SW_HIDE, $STDOUT_CHILD)
Local $output = ""
While 1
    $output &= StdoutRead($interface)
    If @error Then ExitLoop
WEnd
;ConsoleWrite($output & @CRLF)

$status = StringRegExp($output, "(?m).+\hTipo:+\h+\h+(.*)\s", 3)
;$status = StringRegExp($output, "(?m).+\hEstado de conexión+\h+\h+(.*)\s", 3)
;$status = StringRegExpReplace($output, "(?s).+Estado de conexión:\h+(\w+).*", "$1")

_ArrayDisplay($Status )
If Not @error Then ConsoleWrite("Status: " & $Status[0] & @CRLF)

[mikell]

This works for me

#include <Array.au3>

$output = "Wi-Fi" & @crlf & _ 
    "   Tipo:                 Dedicado" & @crlf & _ 
    "   Estado administrativo: Habilitado" & @crlf & _ 
    "   Estado de conexión:        Conectado"

$status = StringRegExp($output, "Estado de conexión:\h+(\w+)", 3) 
_ArrayDisplay($status)

$all = StringRegExp($output, ":\h+(\w+)", 3) 
_ArrayDisplay($all)

 

[jcpetu]

mikell,

if I copy paste your example it works, but if I just copy the StringRegExp it not even brings an array.

Perhaps something on my side I don't get to understand.

Thanks a lot for your help.

[mikell]

I just tried the code below and it works nice on my PC
What exactly doesn't work for you ?

#include <Array.au3>
#include <constants.au3>

Local $interface = Run("netsh interface ip show config", "", @SW_HIDE, $STDOUT_CHILD)
Local $output = ""
While 1
    $output &= StdoutRead($interface)
    If @error Then ExitLoop
WEnd
;Msgbox(0,"", $output)

$all = StringRegExp($output, ":\h+(.+)", 3) 
_ArrayDisplay($all)

 

[jcpetu]

mikell, 

when running netsh interface show interface wi-fi you get:

Wi-Fi
   Tipo:                 Dedicado
   Estado administrativo: Habilitado
   Estado de conexión:        Conectado

And I'm using StringRegExp to extract only the value of Estado de conexión, in this case the result would be: Conectado

 

[FrancescoDiMuro]

@jcpetu
Are you sure that you are getting that output?

[mikell]

Hmm. To be sure please just replace in the pattern the ó by a dot

$status = StringRegExp($output, "Estado de conexi.n:\h+(\w+)", 3)

 

[jcpetu]

mikel, with the point it works!

Thanks a lot.

 

#include <Array.au3>
#include <constants.au3>

Local $interface = Run("netsh interface show interface wi-fi", "", @SW_HIDE, $STDOUT_CHILD)
Local $output = ""
While 1
    $output &= StdoutRead($interface)
    If @error Then ExitLoop
WEnd
ConsoleWrite($output&@CR)

$status = StringRegExp($output, "Estado de conexi.n:\h+(\w+)", 3)
_ArrayDisplay($status)

[jchd]

Switch your source file to Unicode (UTF8) under SciTE and also check wich version of AutoIt you're running. This works for me:

Local $s = "Estado de conexión:        Conectado "
ConsoleWrite(StringRegExp($s, "Estado de conexión:\h+(\w+)", 3)[0] & @LF)