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
P
c P
wP
o
c o
wo
r
c r
wr
t
c t
wt
u
c u
wu
g
c g
wg
a
c a
wa
l
c l
wl
usstateal
varPortugal
wordPortugal
_
c _
ws_
a
c a
wa
vara
_
c _
ws_
p
c p
wp
r
c r
wr
o
c o
wo
g
c g
wg
r
c r
wr
a
c a
wa
m
c m
wm
a
c a
wa
r
c r
wr
usstatear
monthmar
varprogramar
wordprogramar
_
c 
ws_
< 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=Portugal%20a%20programar%20&32

Imports System.Text.RegularExpressions
Module Module1

  Sub Main
    Dim txt As String ="Portugal a programar "

    Dim re1 As String=".*?"	'Non-greedy match on filler
    Dim re2 As String ="."	'Uninteresting: c
    Dim re3 As String=".*?"	'Non-greedy match on filler
    Dim re4 As String ="."	'Uninteresting: c
    Dim re5 As String=".*?"	'Non-greedy match on filler
    Dim re6 As String ="."	'Uninteresting: c
    Dim re7 As String=".*?"	'Non-greedy match on filler
    Dim re8 As String ="."	'Uninteresting: c
    Dim re9 As String=".*?"	'Non-greedy match on filler
    Dim re10 As String ="."	'Uninteresting: c
    Dim re11 As String=".*?"	'Non-greedy match on filler
    Dim re12 As String ="."	'Uninteresting: c
    Dim re13 As String=".*?"	'Non-greedy match on filler
    Dim re14 As String ="."	'Uninteresting: c
    Dim re15 As String=".*?"	'Non-greedy match on filler
    Dim re16 As String ="."	'Uninteresting: c
    Dim re17 As String=".*?"	'Non-greedy match on filler
    Dim re18 As String ="."	'Uninteresting: c
    Dim re19 As String=".*?"	'Non-greedy match on filler
    Dim re20 As String ="."	'Uninteresting: c
    Dim re21 As String=".*?"	'Non-greedy match on filler
    Dim re22 As String ="."	'Uninteresting: c
    Dim re23 As String=".*?"	'Non-greedy match on filler
    Dim re24 As String ="."	'Uninteresting: c
    Dim re25 As String=".*?"	'Non-greedy match on filler
    Dim re26 As String ="."	'Uninteresting: c
    Dim re27 As String=".*?"	'Non-greedy match on filler
    Dim re28 As String ="."	'Uninteresting: c
    Dim re29 As String=".*?"	'Non-greedy match on filler
    Dim re30 As String ="."	'Uninteresting: c
    Dim re31 As String=".*?"	'Non-greedy match on filler
    Dim re32 As String ="."	'Uninteresting: c
    Dim re33 As String=".*?"	'Non-greedy match on filler
    Dim re34 As String ="."	'Uninteresting: c
    Dim re35 As String=".*?"	'Non-greedy match on filler
    Dim re36 As String ="."	'Uninteresting: c
    Dim re37 As String=".*?"	'Non-greedy match on filler
    Dim re38 As String ="."	'Uninteresting: c
    Dim re39 As String=".*?"	'Non-greedy match on filler
    Dim re40 As String ="."	'Uninteresting: c
    Dim re41 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+re36+re37+re38+re39+re40+re41,RegexOptions.IgnoreCase Or RegexOptions.Singleline)
    Dim m As Match = r.Match(txt)
    If (m.Success) Then
        Dim c1=m.Groups(1)
        Console.WriteLine("("+c1.ToString()+")"+"")
    End If
    Console.ReadLine()
  End Sub
End Module

'-----
' Paste the code into a new Console Application
'-----
 
 
 
 
Feedback
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
mightycpa:: it took me a little while... how do you do NOT?Sat, 28 Mar 2015 04:58AM
::  Sat, 28 Mar 2015 04:41PM
::  Sat, 28 Mar 2015 04:42PM
::  Sat, 28 Mar 2015 11:25PM
 
  home     faq              ©2006 mark james ennis