txt 2 re
knowing is obsolete :: regular expression generator (perl php python java javascript coldfusion c c++ ruby vb vbscript j# c# c++.net vb.net)
 
 
 
Enter the string that you want to use a regular expression on:
1
   
 
Select the elements that you want to extract to run regular expression generator:
2
4
c 
d4
2
c 
d2
day2
int42
_
c _
ws_
4
c 4
d4
3
c 3
d3
day3
int
< Source String
What to click?  extract any integer in this position
extract this integer (2006) in this position
 
3VB6 regular expression program that extracts the selected elements from the entered string:
Perl PHP Python Java Javascript ColdFusion C C++ Ruby [VB] VBScript J#.net C#.net C++.net VB.net 
 
' URL that generated this code:
' http://txt2re.com/index-vb6.php3?s=42%2043&2&11&13

Private Sub Command1_Click()
  Dim txt As String
  txt ="42 43"

  Dim re1 As String
  re1 ="(.)"	'Any Single Character 1
  Dim re2 As String
  re2 ="(.)"	'Any Single Character 2
  Dim re3 As String
  re3 =".*?"	'Non-greedy match on filler
  Dim re4 As String
  re4 ="(\d+)"	'Integer Number 1

  Dim r As New RegExp
  r.Pattern = re1+re2+re3+re4
  r.IgnoreCase = True
  Dim m As MatchCollection
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim c1
      c1=m.Item(0).SubMatches.Item(0)
      Dim c2
      c2=m.Item(0).SubMatches.Item(1)
      Dim int1
      int1=m.Item(0).SubMatches.Item(2)
      MsgBox("("+c1+")"+"("+c2+")"+"("+int1+")"+"")
  End If
End Sub

'-----
' To run this code:
' .Start Microsoft Visual Basic 6.0.
' .On the File menu, click New Project.
' .Click Standard Exe in the New Project dialog box, and then click OK.
' .On the Project menu, click References.
' .Double-click Microsoft VBScript Regular Expressions 5.5, and then click OK.
'   (If you can't find this option, download "Microsoft Windows Script 5.6"
'     from Microsoft)
' .In the toolbox, double-click CommandButton.
' .Double-click Command1 to open the Code window.
' .Paste the code above into the Command1_Click event handler:
'-----
 
 
 
 
Feedback
Àíäğåé Âèêòîğîâè÷::  Thu, 19 Mar 2015 01:02PM
::  Thu, 19 Mar 2015 08:45PM
:: thank youFri, 20 Mar 2015 09:58AM
::  Fri, 20 Mar 2015 02:13PM
Kuntal:: You saved my Day thanks a lot!!!!!!!!!!!!!Fri, 20 Mar 2015 02:14PM
::  Fri, 20 Mar 2015 02:19PM
::  Fri, 20 Mar 2015 04:08PM
::  Fri, 20 Mar 2015 08:28PM
::  Sat, 21 Mar 2015 03:12AM
::  Sat, 21 Mar 2015 01:34PM
::  Sat, 21 Mar 2015 01:34PM
::  Sat, 21 Mar 2015 02:32PM
gzzibs:: bXOkEmMoEHAImzBrHNUSat, 21 Mar 2015 02:34PM
::  Sat, 21 Mar 2015 06:57PM
mkijhdpqffd:: FxuQzZLVbSun, 22 Mar 2015 05:09AM
::  Sun, 22 Mar 2015 07:59PM
::  Mon, 23 Mar 2015 03:27AM
::  Mon, 23 Mar 2015 06:51AM
:: Perfect!! alias Stefan S.Mon, 23 Mar 2015 10:23AM
someone:: Help me alot!Mon, 23 Mar 2015 10:36AM
regexer:: very cool very swag i liek itMon, 23 Mar 2015 03:08PM
Yolo:: $wagMon, 23 Mar 2015 05:04PM
daaaamn dude:: thank a lot broMon, 23 Mar 2015 08:16PM
::  Mon, 23 Mar 2015 10:56PM
::  Mon, 23 Mar 2015 10:56PM
::  Tue, 24 Mar 2015 05:05AM
::  Tue, 24 Mar 2015 07:48AM
::  Tue, 24 Mar 2015 12:40PM
sad:: asdasTue, 24 Mar 2015 12:40PM
asdf:: dsafasdfTue, 24 Mar 2015 12:40PM
sülüman:: Nabıyonuz gençlerTue, 24 Mar 2015 03:08PM
sülüman:: Nabıyonuz gençlerTue, 24 Mar 2015 03:09PM
::  Wed, 25 Mar 2015 06:31AM
:: Awesome!Wed, 25 Mar 2015 06:31AM
::  Wed, 25 Mar 2015 08:28AM
::  Wed, 25 Mar 2015 08:36AM
1337:: Awesome, would donate if a button would be there. Wed, 25 Mar 2015 02:27PM
::  Thu, 26 Mar 2015 06:02AM
::  Thu, 26 Mar 2015 09:02AM
::  Thu, 26 Mar 2015 09:12AM
:: uselessThu, 26 Mar 2015 09:13AM
111:: 22222222888888Fri, 27 Mar 2015 03:29AM
::  Fri, 27 Mar 2015 03:30AM
masterdingdong:: AwesomeFri, 27 Mar 2015 02:09PM
 
  home     faq              ©2006 mark james ennis