Function to replace the string

Question

0.00/5 (No votes)

See more:

hi
I need a function to replace the string with date, If a string contains ##Date:[Number]##, then it should replace the Date:[Number] with todays date + Number

for example if the string contains ##Date:4##, and today is '19/12/2014' then it should replace with date '23/12/2014'.

thanks

Posted 18-Dec-14 21:23pm

Jijutj

Add a Solution

3 solutions

Solution 2

You should use Regex[^] for this task. Something like

VB

Dim s As String = "Fooo##Date:4##Goo123"
Dim match As Match = Regex.Match(s, "##Date:(\d+)##")
Dim n As Integer
n = Int32.Parse(match.Groups(1).Value)
Dim now As Date = Date.Now
now.AddDays(n)
s = Regex.Replace(s, "##Date:\d+##", now.ToString("d"))

with proper error checking.

Posted 18-Dec-14 21:48pm

CPallini

Comments

Jijutj 19-Dec-14 4:06am

what if the string contains more than one ##Date:[Number]##, thanks

Solution 3

VB

Dim lstrdate As String = "##Date:10##"
Dim lstrtemp As String
Dim i As Integer
Dim ldays As Integer

For i = 1 To Len(lstrdate)
    If InStr("0123456789", Mid(lstrdate, i, 1)) > 0 Then
        lstrtemp = lstrtemp & Mid(lstrdate, i, 1)
    End If
Next

ldays = Val(lstrtemp)
lstrtemp = Now.AddDays(ldays).ToShortDateString

MsgBox(lstrtemp)

Posted 19-Dec-14 0:52am

kgmmurugesh

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 · Accepted Answer · 2014-12-18T21:36:00

Solution 1

Use a regex:

VB

Public Dim regex As Regex = New Regex( "\#\#Date:4\#\#", _
    RegexOptions.Multiline _
    Or RegexOptions.CultureInvariant _
    Or RegexOptions.IgnorePatternWhitespace _
    Or RegexOptions.Compiled _
    )


Dim result As String = regex.Replace(InputText,DateTime.Now.ToShortDateString())

"when I use Dim result As String = regex.Replace("some texts ##Date:4## some text ##Date:10##", DateTime.Now.ToShortDateString()) the output is 'some texts 12/19/2014 some text 12/19/2014' Note the date are same even if I use different number (4 and 10)"

You still use a Regex, but it needs a small mod to extract the "number" info into a separate group, parse that, and use it for the substitution. Only thing is, because they are different dates, you need a loop or a replace evaluator (which is a lot harder to get your brain round: Advanced Regex.Replace handling[^])
The loop version is pretty simple:

VB

Dim input As String = "some texts ##Date:4## some text ##Date:10##"
Dim forwardDate As New Regex("\#\#Date:(?<DaysCount>\d+)\#\#")
Dim output As String = input
Dim now As DateTime = DateTime.Now
For Each m As Match In forwardDate.Matches(input)
    Dim days As Integer = Integer.Parse(m.Groups("DaysCount").Value)
    output = Regex.Replace(output, m.Value, now.AddDays(days).ToShortDateString())
Next

Posted 18-Dec-14 21:36pm

OriginalGriff

Updated 18-Dec-14 23:12pm

v2

Comments

Jijutj 19-Dec-14 3:41am

thank you, but I put 4 for an example, the number may change for example if I put ##Date:10## then it should add 10 to the current date. thanks

OriginalGriff 19-Dec-14 4:13am

Yes? So use "\d" instead of "4" - it matches any single digit.
Or "\d+" if you want "one or more digit"

Jijutj 19-Dec-14 4:22am

Thank you, it works when there is only one match, what if more than one match with different number?

OriginalGriff 19-Dec-14 4:29am

Sorry, I don't understand what you are asking? Can you explain in better detail, perhaps with an example?

Jijutj 19-Dec-14 4:35am

for example if I write the string as "some texts ##Date:4## some text ##Date:10##" then how to replace the string? Currently it will add 4 in both tokens

OriginalGriff 19-Dec-14 4:40am

Replace the "4" with "\d+" in the regex string and give it a try...
If you want to keep the number in your result, that can be done too - but I need to know exactly what you want as output.

Jijutj 19-Dec-14 4:47am

when I use Dim result As String = regex.Replace("some texts ##Date:4## some text ##Date:10##", DateTime.Now.ToShortDateString()) the output is 'some texts 12/19/2014 some text 12/19/2014' Note the date are same even if I use different number (4 and 10)

OriginalGriff 19-Dec-14 5:13am

Right! OK, yes - that's a little more complex, but not a lot.
Answer updated

Jijutj 19-Dec-14 4:49am

oh when looking the answer the date is not adding, I use
Dim regex As Regex = New Regex("\#\#Date:(\d+)\#\#", _
RegexOptions.Multiline _
Or RegexOptions.CultureInvariant _
Or RegexOptions.IgnorePatternWhitespace _
Or RegexOptions.Compiled _
)
but not working

Jijutj 19-Dec-14 5:00am

when I give 4 then it should add 4 days to the current date, that's my requirement.