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(RegExpRe place([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
Navigate: Previous Message · Next Message