reg exp vbscript expression

can I just confirm that only the very first instance of the word "Boundary" is removed and not every one?

is that the .Global doing that?

Yes.

Yes. If you set "Global = True", then every occurrence would be replaced.

thank you

I wonder if i am missing a reference as i am having trouble compiling it in vba

const WRITE=2 is highlighted red as is the set txtfile at the bottom:

Sub removeodd()

Dim fso As Object

Const READ = 1
Const WRITE = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile("n:\htmlfile.txt", READ)

html = txtFile.ReadAll()

txtFile.Close

With New RegExp
    .IgnoreCase = True
    .Global = False
    
    .Pattern = "Boundary"
    html = .Replace(html, "")
    
    .Pattern = "\d+"
    html = .Replace(html, "")
End With

Set txtFile = fso.OpenTextFile("n:\htmlfile2.txt", WRITE)

txtFile.Write (html)


End Sub

Select allOpen in new window

Remove "As Object" from line 3.

here's the effect
ee.JPG

What editor are you using?

i am in vb access

VBscript in regexp buddy

i am in vb access

Ah. That's VBA, not VBScript  !!

Anyway, change the two constant names:


Be sure to change to the two usages of the constants also.

"WRITE" appears to be reserved. If you haven't done so already, you'll need to add a reference to the VBScript Regex library:

Sorry when I posted the question I was in regex buddy and just trying to get the pattern whereas you saw that i have another question relating to html and joined the two. I added the reference and made the amendments but that set at the end is still showing red. it must be close

Sub removeodd()

Const MODE_READ = 1
Const MODE_WRITE = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile("n:\htmlfile.txt", READ)

html = txtFile.ReadAll()

txtFile.Close

With New RegExp
    .IgnoreCase = True
    .Global = False

    .Pattern = "Boundary"
    html = .Replace(html, "")

    .Pattern = "\d+"
    html = .Replace(html, "")
End With

Set txtFile = fso.OpenTextFile("n:\htmlfile2.txt", WRITE)

txtFile.Write (html)


End Sub

Select allOpen in new window

Change lines 7 and 24 to use the updated constant names.

here is a separate sub that does some other cleaning i wonder if it can do the reg exp at the same time

Sub CleanTextFile()
Dim fs As Object, inFile, outFile
Set fs = CreateObject("scripting.filesystemobject")

Set inFile = fs.OpenTextFile("n:\htmlfile.txt", ForReading)
Set outFile = fs.CreateTextFile("n:\htmlfile_trim.txt", ForWriting)
Do While inFile.AtEndOfStream = False
  strline = inFile.ReadLine
  


  outFile.WriteLine (Trim(strline))
  
Loop
inFile.Close
outFile.Close

End Sub

Select allOpen in new window

Sub removeodd()

Const MODE_READ = 1
Const MODE_WRITE = 2

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile("n:\htmlfile.txt", READ)

html = txtFile.ReadAll()

txtFile.Close

With New RegExp
    .IgnoreCase = True
    .Global = False

    .Pattern = "Boundary"
    html = .Replace(html, "")

    .Pattern = "\d+"
    html = .Replace(html, "")
End With

Set txtFile = fso.OpenTextFile("n:\htmlfile2.txt", WRITE)

txtFile.Write (html)


End Sub

Select allOpen in new window

I just spotted that its not complaining now just about to run it

its run but says it cannot find the htmlfile2.txt which makes sense as it hasnt been created yet

thats got it...THANK YOU