[resolved] string regex

[anystupidassname]

The subject says it all. I'm a noob and I need to place a 12 to 16 character number, which will be mixed in with text and other crap on the clipboard, into a variable to use with the rest of my macro. Any assistance much appreciated. I'm a kinetic learner so an example code snippet would be my favorite :-) Thanks!

Edited February 15, 2008 by anystupidassname

[Simucal]

#include <Array.au3>

$sText = "asldkjfsadf1234567890101213dsflkjsdfsdf2!"
$aResult = StringRegExp($sText, "\d{12,16}", 1)
If IsArray($aResult) Then
    _ArrayDisplay($aResult)
Else
    MsgBox(0, "Error", "No 12-16 digits found!")
EndIf

Obviously you'll need to use ClipGet to get the clipboard text.

[Xenobiologist]

Hi,

or did you mean getting a 12 chars long value from a text?

Mega

[anystupidassname]

#include <Array.au3>

$sText = "asldkjfsadf1234567890101213dsflkjsdfsdf2!"
$aResult = StringRegExp($sText, "\d{12,16}", 1)
If IsArray($aResult) Then
    _ArrayDisplay($aResult)
Else
    MsgBox(0, "Error", "No 12-16 digits found!")
EndIf

Obviously you'll need to use ClipGet to get the clipboard text.

Thank you! I think this will work for me. I'll know tomorrow when I have more time to work on it.

[anystupidassname]

#include <Array.au3>

$sText = "asldkjfsadf1234567890101213dsflkjsdfsdf2!"
$aResult = StringRegExp($sText, "\d{12,16}", 1)
If IsArray($aResult) Then
    _ArrayDisplay($aResult)
Else
    MsgBox(0, "Error", "No 12-16 digits found!")
EndIf

Obviously you'll need to use ClipGet to get the clipboard text.

OK, I suspect my problem is now just a Regex issue. No matter what I've tried, it just goes to the Else msgbox.

This is a sample of what needs to be parsed:

Document ID: 2007082915561148   Title: 'blah'
Web URL: http://piss.off.lou  FOD # <Not Available>

All I need is the long number but it won't always be in the same place and the long number could very easily be present more than once too.

[SpookMeister]

This code works for me:

#include <Array.au3>

$sText = ClipGet()
$aResult = StringRegExp($sText, "\d{12,16}", 1)
If IsArray($aResult) Then
    _ArrayDisplay($aResult)
Else
    MsgBox(0, "Error", "No 12-16 digits found!")
EndIf

I simply highlighted and your sample, pressed CTRL-C, then ran the script

[ProgAndy]

This works too:

#include <Array.au3>

$sText = "Document ID: 2007082915561148   Title: 'blah'" & @CRLF _
&"Web URL: http://piss.off.lou  FOD # <Not Available>"
$aResult = StringRegExp($sText, "\d{12,16}", 1)
If IsArray($aResult) Then
    _ArrayDisplay($aResult)
Else
    MsgBox(0, "Error", "No 12-16 digits found!")
EndIf

[anystupidassname]

OK, thanks. You guys rule. The whole array thing got me confused. I had to convert the array to a string with _ArrayToString.

#include <Array.au3>

$2 = StringReplace($1," ","")
$3 = StringReplace($2,"-","")
$4 = StringRegExp($3, "\d{12,16}", 1)
$5 = _ArrayToString($4)
msgbox(48,"",$5)

[Squirrely1]

@anystupidassname - Someone once said that you can never really change your name, but only add to the number of names that you have.