Regular Expressions (help)

[Contro]

 

I need a little string conversion and I need the pattern with regular expressions I suppose.

This is the target

Date/Time format

01.02.2010.05.18   (where 01 is the day, 02 the month, 2010 the year, 05 hours, 18 minutes)

***CONTRO*** February 1, 2010 at 5:18am

In both cases I want the final string : 01_02_2010 , 5_18

How can I say this with a regular expression to use in the replace operation ?

Best Regards

 

[Renegade]

For the first one:

Match:
([0-9][0-9])\.([0-9][0-9])\.([0-9][0-9][0-9][0-9])\.([0-9][0-9])\.([0-9][0-9])

That's pretty specific/verbose, but is also very simple.

Replace:
\1_\2_\3 , \4_\5

But, that gives you 05 instead of 5. (I'm not feeling all that well, so maybe someone else can fix up a backreference and conditional there.)

Not sure about the second as for what everything could be, but you need a conditional for the month, and I'm a bit under the weather to remember and look it up right now. Maybe I can post back later.

[Krishean]

Code: Javascript [Select]

1. str = str.replace(/^(\d{2})\.(\d{2})\.(\d{4})\.0?(\d+)\.(\d{2})$/, "$1_$2_$3 , $4_$5");

[4wd]

For the first one:

Match:
([0-9][0-9])\.([0-9][0-9])\.([0-9][0-9][0-9][0-9])\.([0-9][0-9])\.([0-9][0-9])

That's pretty specific/verbose, but is also very simple.

-Renegade (January 06, 2013, 10:33 PM)

I went for simpler, (read: lazy )

Match: (..).(..).(....).(..).(..)

Also note depending on the renaming program you use, the backreference could be a $ instead of \

eg. For RegexRenamer, Renegades replace string would be:

Replace: $1_$2_$3 , $4_$5

[Renegade]

Krishean has a good little option there. I'm rewriting what you have with his:

(..)\.(..)\.(....)\.0?(.+)\.(..)

You can repeat that pattern as needed:

0?(.+)

You do need the "\." though, otherwise you will match everything and a month from Jan~Sept will screw everything up on you.

[4wd]

(read: lazy )

-4wd (January 06, 2013, 10:44 PM)

I'm waiting to see the RegEx for the second instance....if it's possible.

[Krishean]

It's not possible to use a RegExp to transform month names into numeric values, and the 12h date format manipulation is also outside of RegExp's capabilities. It is possible to match those strings and use additional logic outside of RegExp to process them.

[Contro]

 

What I need is convert those string in the clipboard when I paste with the special hotkey control+alt+win+2

A conversion string tool.

A code snack ?

 

[Renegade]

It's not possible to use a RegExp to transform month names into numeric values, and the 12h date format manipulation is also outside of RegExp's capabilities. It is possible to match those strings and use additional logic outside of RegExp to process them.

-Krishean (January 06, 2013, 11:14 PM)

I've been doing some reading, and from what I can tell, regular expression conditionals are only for matching. So, unfortunately Krishean is right.

Guess that explains why I've never used conditional replacements before. It's always just been easier and simpler to do something like .Replace("something", "another thing").

[4wd]

What I need is convert those string in the clipboard when I paste with the special hotkey control+alt+win+2

A conversion string tool.

A code snack ?

-Contro (January 06, 2013, 11:35 PM)

Clipboard Help + Spell ?

[Contro]

 

Running to try.
Do you have an aproximate idea what I have to do ?
 

[Renegade]

I'm waiting to see the RegEx for the second instance....if it's possible.

-4wd (January 06, 2013, 11:00 PM)

Second regex:

***CONTRO*** February 1, 2010 at 5:18am

[^0-9]+ ([0-9]+), ([0-9]+) at ([0-9]+)[0-9]+)(am|pm)

Those are:

1 = 1
2 = 2010
3 = 5
4 = 18
5 = am

***CONTRO*** February isn't captured as you need programmatic logic to get the month there, which is a simple replacement.

[Contro]

 

Difficult indeed

Don't exist a script for this purpose ?

Best Regards
 

[robinsiebler]

There are a slew of RE tester/tutor programs on the 'net. I use Expresso

[Contro]

There are a slew of RE tester/tutor programs on the 'net. I use Expresso

-robinsiebler (January 08, 2013, 01:55 PM)

Owwww. But it's not possible in my case. We keep trying
Best Regards
 

[Renegade]

You need to be explicit about where and how you need to use this. Expresso is an excellent program, and would certainly let you get the job done.

[Contro]

You need to be explicit about where and how you need to use this. Expresso is an excellent program, and would certainly let you get the job done.

-Renegade (January 08, 2013, 07:31 PM)

Me or Robin ?
 

[robinsiebler]

You, silly! I was quite specific. Why won't that program, or any of the others like it, work for you?

[Contro]

 

I keep trying then.
 

[4wd]

Code: AutoIt [Select]

1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
2. #AutoIt3Wrapper_UseUpx=n
3. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
4.  
5. ;$inclip = "***CONTRO*** February 28, 2010 at 5:18am"
6. ;$inclip = '01.02.2010.05.18'
7.  
8. HotKeySet('^#!2', '_Doit') ; Win+Alt+Ctrl+2
9.  
10. While 1
11.         Sleep(1000)
12. WEnd
13.  
14.  
15. Exit
16.  
17. Func _Doit()
18.         $inclip = ClipGet()
19.  
20.         If StringLeft($inclip, 12) <> '***CONTRO***' Then
21.                 $outclip = StringRegExpReplace($inclip, '(..)\.(..)\.(....)\.0?(.+)\.(..)', '\1_\2_\3 , \4_\5')
22.         Else
23.                 $outclip = _Valmorphanize(StringMid($inclip, 14))
24.         EndIf
25.  
26.         ClipPut($outclip)
27.         Sleep(50)
28.         Send('^v')
29. EndFunc
30.  
31. Func _Valmorphanize($temp)
32.         Local $hour = StringLeft(StringRight($temp, 7), StringInStr(StringRight($temp, 7), ':') - 1) + (12 * (StringRight(StringRight($temp, 7), 2) = 'pm'))
33.         If Not Mod($hour, 12) Then $hour-=12
34.         Return StringRegExpReplace($temp, '.+\b.\d+, (\d{4}).+:(\d{2}).*', StringFormat('%02s', StringRegExpReplace(StringMid($temp, StringInStr($temp, ' ') + 1, 2), '([,\s])', '')) & '_' & StringFormat('%02s', Int(StringInStr('JanFebMarAprMayJunJulAugSepOctNovDec', StringLeft($temp, 3), 1) / 3) + 1) & '_\1 , ' & $hour & '_\2')
35. EndFunc

[Contro]

Code: AutoIt [Select]

1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
2. #AutoIt3Wrapper_UseUpx=n
3. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
4.  
5. ;$inclip = "***CONTRO*** February 28, 2010 at 5:18am"
6. ;$inclip = '01.02.2010.05.18'
7.  
8. HotKeySet('^#!2', '_Doit') ; Win+Alt+Ctrl+2
9.  
10. While 1
11.         Sleep(1000)
12. WEnd
13.  
14.  
15. Exit
16.  
17. Func _Doit()
18.         $inclip = ClipGet()
19.  
20.         If StringLeft($inclip, 12) <> '***CONTRO***' Then
21.                 $outclip = StringRegExpReplace($inclip, '(..)\.(..)\.(....)\.0?(.+)\.(..)', '\1_\2_\3 , \4_\5')
22.         Else
23.                 $outclip = _Valmorphanize(StringMid($inclip, 14))
24.         EndIf
25.  
26.         ClipPut($outclip)
27.         Sleep(50)
28.         Send('^v')
29. EndFunc
30.  
31. Func _Valmorphanize($temp)
32.         Local $hour = StringLeft(StringRight($temp, 7), StringInStr(StringRight($temp, 7), ':') - 1) + (12 * (StringRight(StringRight($temp, 7), 2) = 'pm'))
33.         If Not Mod($hour, 12) Then $hour-=12
34.         Return StringRegExpReplace($temp, '.+\b.\d+, (\d{4}).+:(\d{2}).*', StringFormat('%02s', StringRegExpReplace(StringMid($temp, StringInStr($temp, ' ') + 1, 2), '([,\s])', '')) & '_' & StringFormat('%02s', Int(StringInStr('JanFebMarAprMayJunJulAugSepOctNovDec', StringLeft($temp, 3), 1) / 3) + 1) & '_\1 , ' & $hour & '_\2')
35. EndFunc

-4wd (January 13, 2013, 04:58 AM)

Running to tryyyyy