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
0
9
c 9
d9
day09
int09
:
c :
M
c M
wM
a
c a
wa
r
c r
wr
usstatear
varMar
wordMar
monthMar
:
c :
2
c 2
d2
0
c 0
d0
1
c 1
d1
8
c 8
d8
day18
year2018
int2018
ddmmmyyyy09:Mar:2018
_
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 i
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=09:Mar:2018%20%22This%20is%20an%20Example!%22&-42

Imports System.Text.RegularExpressions
Module Module1

  Sub Main
    Dim txt As String ="09:Mar:2018 ""This is an Example!"""

    Dim re1 As String="(0)"	'Any Single Digit 1

    Dim r As Regex = new Regex(re1,RegexOptions.IgnoreCase Or RegexOptions.Singleline)
    Dim m As Match = r.Match(txt)
    If (m.Success) Then
        Dim d1=m.Groups(1)
        Console.WriteLine("("+d1.ToString()+")"+"")
    End If
    Console.ReadLine()
  End Sub
End Module

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