Replace functions and wildcards

• Sep 20, 2010

• #2

dhookom

Programmer

Jun 24, 2003

22,561

US

Try and report back.

Duane
Hook'D on Access
MS Access MVP

 

Upvote 0 Downvote

• Sep 20, 2010

• #3

PHV

MIS

Nov 8, 2002

53,708

FR

Have look here:

http://msdn.microsoft.com/en-us/library/ms974570.aspx

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

 

Upvote 0 Downvote

• Sep 21, 2010

• Thread starter
• #4

access101

Programmer

Sep 4, 2010

68

US

I looked at the link but I'm not sure how to apply it to my replace statement?

 

Upvote 0 Downvote

• Sep 21, 2010

• #5

PHV

MIS

Nov 8, 2002

53,708

FR

I'm not sure how to apply it
Use the Replace method of a RegExp object.

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

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

 

Upvote 0 Downvote

• Sep 21, 2010

• #6

MajP

Technical User

Aug 27, 2005

9,382

US

Code:

Public Function myReplace(expression As String, findPattern As String, replace As String)
  'reference to Microsoft VBScript Regular Expressions
  Dim re As RegExp
  Set re = New RegExp  'Create the RegExp object
  re.Pattern = findPattern
  re.IgnoreCase = True
  re.Global = True
  myReplace = re.replace(expression, replace)
End Function

Public Sub testMyReplace()
  Dim T As String
  T = "1.2 mi"
  T = myReplace(T, "\d\.\d mi", "mi")
  MsgBox T
End Sub

 

Upvote 0 Downvote