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
0
c 0
d0
8
c 8
d8
day08
08
:
c :
D
c D
wD
e
c e
we
c
c c
wc
varDec
wordDec
monthDec
:
c :
2
c 2
d2
0
c 0
d0
1
c 1
d1
7
c 7
d7
day17
year2017
int2017
ddmmmyyyy08:Dec:2017
_
c _
ws_
"
c "
T
c T
wT
h
c h
wh
i
c i
wi
s
c s
ws
varThis
wordThis
_
c _
ws_
i
c 
wi
s
c s
ws
varis
wordis
_
c _
ws_
a
c a
wa
n
c n
wn
varan
wordan
_
c _
ws_
E
c E
wE
x
c x
wx
a
c a
wa
m
c m
wm
p
c p
wp
l
c l
wl
e
c e
we
varExample
wordExample
!
c !
"
c "
string"This_is_an_Example!"
< Source String
What to click?  extract any integer in this position
extract this integer (2006) in this position
 
3Visual Basic 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-vb.php3?s=08:Dec:2017%20%22This%20is%20an%20Example!%22&-12&72

Imports System.Text.RegularExpressions
Module Module1

  Sub Main
    Dim txt As String ="08:Dec:2017 ""This is an Example!"""

    Dim re1 As String="(08)"	'Integer Number 1
    Dim re2 As String=".*?"	'Non-greedy match on filler
    Dim re3 As String ="."	'Uninteresting: c
    Dim re4 As String=".*?"	'Non-greedy match on filler
    Dim re5 As String ="."	'Uninteresting: c
    Dim re6 As String=".*?"	'Non-greedy match on filler
    Dim re7 As String ="."	'Uninteresting: c
    Dim re8 As String=".*?"	'Non-greedy match on filler
    Dim re9 As String ="."	'Uninteresting: c
    Dim re10 As String=".*?"	'Non-greedy match on filler
    Dim re11 As String ="."	'Uninteresting: c
    Dim re12 As String=".*?"	'Non-greedy match on filler
    Dim re13 As String ="."	'Uninteresting: c
    Dim re14 As String=".*?"	'Non-greedy match on filler
    Dim re15 As String ="."	'Uninteresting: c
    Dim re16 As String=".*?"	'Non-greedy match on filler
    Dim re17 As String ="."	'Uninteresting: c
    Dim re18 As String=".*?"	'Non-greedy match on filler
    Dim re19 As String ="."	'Uninteresting: c
    Dim re20 As String=".*?"	'Non-greedy match on filler
    Dim re21 As String ="."	'Uninteresting: c
    Dim re22 As String=".*?"	'Non-greedy match on filler
    Dim re23 As String ="."	'Uninteresting: c
    Dim re24 As String=".*?"	'Non-greedy match on filler
    Dim re25 As String ="."	'Uninteresting: c
    Dim re26 As String=".*?"	'Non-greedy match on filler
    Dim re27 As String ="."	'Uninteresting: c
    Dim re28 As String=".*?"	'Non-greedy match on filler
    Dim re29 As String ="."	'Uninteresting: c
    Dim re30 As String=".*?"	'Non-greedy match on filler
    Dim re31 As String ="."	'Uninteresting: c
    Dim re32 As String=".*?"	'Non-greedy match on filler
    Dim re33 As String ="."	'Uninteresting: c
    Dim re34 As String=".*?"	'Non-greedy match on filler
    Dim re35 As String="(.)"	'Any Single Character 1

    Dim r As Regex = new Regex(re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14+re15+re16+re17+re18+re19+re20+re21+re22+re23+re24+re25+re26+re27+re28+re29+re30+re31+re32+re33+re34+re35,RegexOptions.IgnoreCase Or RegexOptions.Singleline)
    Dim m As Match = r.Match(txt)
    If (m.Success) Then
        Dim int1=m.Groups(1)
        Dim c1=m.Groups(2)
        Console.WriteLine("("+int1.ToString()+")"+"("+c1.ToString()+")"+"")
    End If
    Console.ReadLine()
  End Sub
End Module

'-----
' Paste the code into a new Console Application
'-----
 
 
  home     faq              ©2006 mark james ennis