I am very new to MySQL- I currently have an VBA module using a VBSCript that will find different aspects of a text string that are a unique text string and turn it into a not so unique text string. Which allows for a more accurate count of text strings.
example
Item# Text string CountTExt
1 Now is the time to call me at 800-001-0055. 1
2 Now is the time to call me at 800-001-7777. 1
Convert to:
Item# Text string
1 & 2 Now is the time to call me at #########. 2.
Current SQL statement run in Access 2K3 - against a linked MYSQL table. - Runs very slowly. Would like to move this to MYSQL if possible.
UPDATE combined_logs SET combined_logs.Body2 = RegExpReplace(RegExpReplace(RegExpReplace(RegExpReplace([body],"http://[^ ]*","
http://",True,False),";[\d\.\-\(\)]{7,}","##########",True,False),"\d{5}","####",True,False),"[""\d]{4,6}","####",True,False)
WHERE (((combined_logs.Body2) Is Null) AND ((combined_logs.InOut)="Out"));
VBA Code:
Function RegExpReplace(LookIn As String, PatternStr As String, Optional ReplaceWith As String = "", _
Optional ReplaceAll As Boolean = True, Optional MatchCase As Boolean = True)
On Error GoTo RegExpReplace_Error
Dim RegX As Object
Set RegX = CreateObject("VBScript.RegExp")
With RegX
.Pattern = PatternStr
.Global = ReplaceAll
.IgnoreCase = Not MatchCase
End With
RegExpReplace = RegX.Replace(LookIn, ReplaceWith)
Set RegX = Nothing
RegExpReplace_Exit:
Exit Function
RegExpReplace_Error:
MsgBox "Unexpected error - " & Err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Access9db - RegExpRep"
Resume RegExpReplace_Exit
End Function
I understand that the replace function within MYSql replaces the intire string and the regexp returns the value of True or False.
Is there a way to duplicate the above function within MYSql.
Thanks,
Karen