Find and replace words using Regex

Question

0.00/5 (No votes)

See more:

Hi,

I am try to find href tags from string. Then i try to find is particular words is matched in href and replace using VB.Net Regex

VB

Public arrString() As String = New String() {"-bigsmile-", "-sadsmile-", "-worried-", "-cool-", "-wink-", "-sleepy-", "-blush-", "-wondering-", "-talking-", "-angry-", "-smile-", "-calls-", "-yesicon-", "-noicon-"}

Dim inputString as string = "<a href=http://www.domain.com-bigsmile->http://www.domain.com-bigsmile-</a>"

'Note: -bigsmile- is in arrString(). My aim is to replace every words from arrString contains in inputString
'i want the result should be <a href=http://www.domain.com>http://www.domain.com-bigsmile-</a>
' -bigsmile- is removed from href

Dim new_inputString as string = DumpHRefs(inputString)

Function DumpHRefs(ByVal inputString As String) As String
    Dim HRefPattern As String = "href\s*=\s*(?:""(?<1>[^""]*)""|(?<1>\S+))"
    Dim m As Match = Regex.Match(inputString, HRefPattern, RegexOptions.IgnoreCase Or RegexOptions.Compiled)

    Do While m.Success
      'here i found http://www.domain.com-bigsmile- and i dont know how to replace / remove -bigsmile-
      Console.WriteLine("Found href {0} at {1}.", m.Groups(1), m.Groups(1).Index)
      m = m.NextMatch()
    Loop

    Return inputString 
End Function

Posted 5-Jul-12 19:37pm

kals84

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2012-07-05T20:17:00

Regexes are clever beasts, one opf the overloads for Rexex.Replace uses a match evaluator delegate: http://msdn.microsoft.com/en-us/library/cft8645c.aspx#Y0[^] which allows you to do further processing on the text matched by the Regex.
If you write your routine to compare the match text as supplied by the Match parameter text, you can replace only those strings you are interested in. The link has an example.

Rahul Rajat Singh · Answer 2 · 2012-07-05T20:37:00

Solution 2

I think this article could be of some help.

Find and Replace with Regular Expressions[^]

Posted 5-Jul-12 20:37pm

Rahul Rajat Singh

kals84 · Answer 3 · 2012-07-05T21:12:00

Thanks OriginalGriff, for guide me to right way

i have done it myself

VB

Function DumpHRefs(ByVal inputString As String) As String
    Dim HRefPattern As String = "href\s*=\s*(?:""(?<1>[^""]*)""|(?<1>\S+))"
    Dim r3 As New Regex(HRefPattern, RegexOptions.IgnoreCase)
    inputString = r3.Replace(inputString, AddressOf smily_replace)

    Return inputString
  End Function

  Function smily_replace(ByVal newstr As Match) As String
    Dim x As String = newstr.ToString()

    For Each word In arrString
      If x.Contains(word) Then x = x.Replace(word, "")
    Next

    Return x
  End Function

Find and replace words using Regex

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0