Replace functions and wildcards

[access101]

is it possible to use a replace function in vba that uses wildcards?

Me.T = Replace(T, "#.# mi", " mi")

 

[dhookom]

Try and report back.

Duane
Hook'D on Access
MS Access MVP

 

[PHV]

Have look here:

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

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

 

[access101]

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

 

[PHV]

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

 

[MajP]

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