Removing text between parentheses.

[jwhitley]

I’m using Access 2010 and need a VBA solution to remove text between parentheses on a memo field. The text form the save filed looks like this,



Notes
(Username and timestamp)
Some more notes.
(A different Username and a different timestamp)
Even more notes.

I need to send this to another field for exporting a report without the usernames and timestamps.

Notes
Some more notes.
Even more notes.

Thanks in advanced!

[redbull]

Is the example above the exact text that will be in the ()??? if so, I can help with a regex statement.. if it is not, then post an example please.

[redbull]

here is an example of what I am talking about. You see with this statement, we are able to locate the text between ( and ) and replace it with "". We can put regex statements in the code - Here is the regex statement, \((?<=\().*?(?=\))\)

http://regexr.com?33emq

Click on the replace tab

[redbull]

This code opens a txt file, runs the regex against it.. then saves the output as a different file...

Sub RegEx()


  Dim oFS As FileSystemObject
  Dim oText As TextStream
  Dim strRawData, strFormattedData As String
  Dim oRegEx As RegExp
  Dim oMatches As MatchCollection
  Dim oMatch As Match


  Set oRegEx = New RegExp
  oRegEx.Global = True
  oRegEx.Pattern = "\s[A-Z0-9\s]*\s*\d{7,12}\s*[^(]\d\d:\d\d[^)]\s*\d*/\d*/\d*\s"
  ' Other ID    \s[A-Z0-9]\s*
  ' Invoice #   \d{10,}\s*
  ' Time        [^(]\d\d:\d\d[^)]
  ' Date        \s\d*/\d*/\d*\s
    
  Set oFS = New FileSystemObject
  Set oText = oFS.OpenTextFile("Sourcefile.txt", ForReading)
    
  strRawData = oText.ReadAll
    
  oText.Close
  Set oText = Nothing
  
  Set oMatches = oRegEx.Execute(strRawData)


  Set oText = oFS.OpenTextFile("outputfile" & Format(Date, "mm-dd-yyyy") & ".txt", ForWriting, True)
  
  For Each oMatch In oMatches
    strFormattedData = Replace(oMatch, vbCr, "")
    oText.WriteLine Replace(strFormattedData, vbLf, "")
  Next oMatch
  
  oText.Close
  Set oText = Nothing
  
  Set oRegEx = Nothing
  Set oMatches = Nothing
  
  Set oFS = Nothing


  MsgBox "New Parsed File Created"
End Sub