I can replace the text that is between "*" and "*" in a text file?

[alexvorn2]

Hi! I use VB 2008 and I want to ask you how I can replace the text
that is between "*" and "*" in a text file?
If text file contains this:
*dog*
*cat*
*bird*
*lion*
*something*
.....end of file....
I want that the code will replace *dog* with *animal*,
*cat* with *animal* too
*lion* with *animal*
etc...
Thanks!

[Spam Catcher]

alexvorn2 <al*******@gmail.comwrote in news:3169c06a-d42b-441d-9f8d-
05**********@s8g2000prg.googlegroups.com:

Hi! I use VB 2008 and I want to ask you how I can replace the text
that is between "*" and "*" in a text file?
If text file contains this:
*dog*
*cat*
*bird*
*lion*
*something*
....end of file....
I want that the code will replace *dog* with *animal*,
*cat* with *animal* too
*lion* with *animal*

Yes, you can use regular expressions to do this sort of ting.
I think \*\w\* should be able to find all matches.
--
sp**********@rogers.com (Do not e-mail)

[alexvorn2]

On Jan 19, 11:14 pm, Spam Catcher <[e-mail]:

alexvorn2 <[e-mail] in news:3169c06a-d42b-441d-9f8d-
[e-mail]:

Hi! I use VB 2008 and I want to ask you how I can replace the text
that is between "*" and "*" in a text file?
If text file contains this:
*dog*
*cat*
*bird*
*lion*
*something*
....end of file....
I want that the code will replace *dog* with *animal*,
*cat* with *animal* too
*lion* with *animal*

Yes, you can use regular expressions to do this sort of ting.

I think \*\w\* should be able to find all matches.

--
[e-mail] (Do not e-mail)

Hi, but what I need to do to make this code to work?
For example this code: (it not works)

Dim TestString As String = "Sh*o*pping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "\*\w\* ", "i")
MsgBox(aString)

[Spam Catcher]

alexvorn2 <al*******@gmail.comwrote in news:bbc05d52-58b5-4617-afcb-
82**********@s19g2000prg.googlegroups.com:

Hi, but what I need to do to make this code to work?
For example this code: (it not works)

Dim TestString As String = "Sh*o*pping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "\*\w\* ", "i")
MsgBox(aString)

You have to use Regular Expressions... System.Text.RegularExpressions
Namespace.

--
sp**********@rogers.com (Do not e-mail)

[alexvorn2]

On Jan 20, 8:16 pm, Spam Catcher <[e-mail]:

alexvorn2 <[e-mail] in news:bbc05d52-58b5-4617-afcb-
[e-mail]:

Hi, but what I need to do to make this code to work?
For example this code: (it not works)

Dim TestString As String = "Sh*o*pping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "\*\w\* ", "i")
MsgBox(aString)

You have to use Regular Expressions... System.Text.RegularExpressions
Namespace.

--
[e-mail] (Do not e-mail)

can you give me please an example?