RegEx help

[BatMan22]

So I have a program that has morphed a bit.. And StringRegExpReplace that used to work before, now no longer does because the lines in the file I'm working on have either have a space after them or a space then word after them.. The file now has.. IE.    (?m)/*$ matches /'s on at the end of a line.. I thought that  changing $ to \b would work, but that makes things worse.. help? My function is below.

1711848-002A 300.1_W NO3/NO2/ J-FLAG
1711855-001C 300.1_W NO3/NO2/CL/ <--- Note there is a space after the slash
1711849-001B 300.1_W NO3/NO2 J-FLAG

What I want them to look like:

1711848-002A 300.1_W NO3/NO2 J-FLAG
1711855-001C 300.1_W NO3/NO2/CL 
1711849-001B 300.1_W NO3/NO2 J-FLAG

 

Func ProcessAndCleanFiles($filetocleanup) ; Basically deletes the /'s at the end of a sample analytes
    $Whattowrite = FileRead($filetocleanup)
    MsgBox(0, 0, "before: " & $Whattowrite)
    $Whattowrite = StringRegExpReplace(FileRead($filetocleanup), "(?m)/*$", "")
    MsgBox(0, 0, "after: " & $Whattowrite)
    
    FileWrite($filetocleanup, $Whattowrite)
    FileClose($hFileOpen)

EndFunc   ;==>ProcessAndCleanFiles

 

[iamtheky]

closer....maybe.

$string = "1711848-002A 300.1_W NO3/NO2 J-FLAG" & @CRLF & _
"1711855-001C 300.1_W NO3/NO2/CL/ " & @CRLF & _ ;<--- Note there is a space after the slash
"1711849-001B 300.1_W NO3/NO2/ J-FLAG"


    MsgBox(0, 0, "before: " & @CRLF & $string)
    $string = StringRegExpReplace($string, "(?m)(.*)/(\s.*$)", "$1$2")
    MsgBox(0, 0, "after: " & @CRLF & $string)

 

Edited March 1, 2018 by iamtheky

[BatMan22]

Thank you dude, exactly what I needed. Now to understand what you did.. Magic as far as I'm concerned. 

[BatMan22]

Am I correct in my understanding? 

-----

(?m)(.*)/(\s.*$)   breaks down to

1) (?m) Search every line seperately

2) (.*) Any Charecter, and any number of that charecter.. aka.. EverythingAnything before the /

3) / is just the / were looking for

4) (\s.*$)  Matches any whitespace/anycharanynumberofchars/endofline

------

So if we look at 1711848-002A 300.1_W NO3/NO2/ J-FLAG

 (.*) covers to and including 1711848-002A 300.1_W NO3/NO2

Then (.*)/ covers to and including 1711848-002A 300.1_W NO3/NO2/

Then (?m)(.*)/(\s.*$)  covers everything after the / basically so any spaces or J-FLAGS. 

----

I think I get it.. Hopefully next time I can reproduce it? Thanks for your help.

[iamtheky]

that's about right, i would summarize:

?per line, take whatever you can leaving for sure a forward slash that is followed by a space then maybe some other stuff, but definitely a line ending character; also capture that stuff after that forward slash.  Then replace that string with the first capture $1 and the second capture $2 smashed together.

[mikell]

@iamtheky

Based on the provided sample strings, your regex means exactly this

$string = StringReplace($string, "/ ", " ", -1)

[iamtheky]

From now on I stringops while you regex, the other way feels weird.

[mikell]

Not so weird...  please keep on regexing 

[jchd]

Yes, please do!