Make replace function dynamic

[kalle82]

Hi!

I have a textbox consisting of a lot of text both numbers and chars.

Now in order to make the text dynamic i use replace on the text with certain variables, for example:

If the user needs the date 14 from now. I let him/her write #date14# and the program then searches the textbox for this and replaces it with date + 14 voila! Seemed pretty neat and ahs worked until now... Now we have expanded and a new need arose...
Dynamic date setting... Is it possible to have the program search for #date(whatever number)# store it in a variable. Then do the replace(text, date + the stored variable)?

Here's how i do the static replace

nytext = Replace(nytext, "#datum14#", Format(Date + 14, "long Date"))

I want it to be like this:

nytext = Replace(nytext, "#datum14#", Format(Date + (new-variable-with-dynamic-number), "long Date"))

I figured instr would help me and it does... But doing instring the cutting out the number seems like alot of job and a really bad way of solving the problem.. Also there are alot of problems, with ordinary find numbers in string functions cause they will find other numbers aswell.

Cheers!

 

[SkipVought]

hi,

Important to realize that the ONLY date manipulation is occurring in the Format conversion. Your ## delimiters are incorrect, as a "date" that is within a string, is just a STRING.

So your replacement is simply...

Dim nytext As String, datum14 As String, AddDays As Integer
nytext = "this is Monday, October 24, 2011, how great!"
datum14 = "Monday, October 24, 2011"
AddDays = 14
nytext = Replace(nytext, datum14, Format(Date + AddDays, "long Date"))

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[PHV]

Have a look here:

http://msdn.microsoft.com/en-us/library/6wzad2b2(VS.85).aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[HarleyQuinn]

How about something like this (might be a little overkill but I do love a regex solution )

Dim mystring As String
Dim m As Variant
mystring = "This is a #date14#, followed by a #date1#"

With CreateObject("VBScript.Regexp")

    .IgnoreCase = True
    .Global = True
    .MultiLine = True
    .Pattern = "(#date)([1-9]+)(#)"
    For Each m In .Execute(mystring)
        mystring = Replace(mystring, m.Value, Format(Date + CInt(m.SubMatches(1)), "long Date"))
    Next m
End With

MsgBox mystring

Hope this helps

Andy
---------------------------------
Zebracorn: 50% Zebra, 50% Unicorn = 100% Real.

http://lessthandot.com

 

[HarleyQuinn]

Just beat me there PHV...

Andy
---------------------------------
Zebracorn: 50% Zebra, 50% Unicorn = 100% Real.

http://lessthandot.com

 

[SkipVought]

Guess it was not clear to me what nytext contains.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]