delete some text

[borism25]

Hi! i have a litlle problem, and i don't know how to complete this, so i need a little expertise

I am working in the indesign and after coping infos about pictures i get something like this:

File Name | Status | page number

IMG_4082.jpg OK 20
IMG_4083.jpg OK 20
IMG_4367.jpg OK 21
IMG_4090.jpg OK 20
IMG_3960.jpg OK 14
IMG_3970.jpg OK 15
IMG_3927.jpg OK 13
IMG_3981.jpg OK 15
IMG_3930.jpg OK 13
IMG_3975.jpg OK 15
IMG_3938.jpg OK 14
IMG_4072.jpg OK 20

I need to delete everything after .jpg (just need filenames)

IMG_4082.jpg
IMG_4083.jpg
IMG_4367.jpg
IMG_4090.jpg
IMG_3960.jpg
IMG_3970.jpg
IMG_3927.jpg
IMG_3981.jpg
IMG_3930.jpg
IMG_3975.jpg
IMG_3938.jpg
IMG_4072.jpg

TIA

[Melba23]

borism25,

This seems to work:

$sFileText = "IMG_4082.jpg OK 20" & @CRLF & _
        "IMG_4083.jpg OK 20" & @CRLF & _
        "IMG_4367.jpg OK 21" & @CRLF & _
        "IMG_4090.jpg OK 20" & @CRLF & _
        "IMG_3960.jpg OK 14" & @CRLF & _
        "IMG_3970.jpg OK 15" & @CRLF & _
        "IMG_3927.jpg OK 13" & @CRLF & _
        "IMG_3981.jpg OK 15" & @CRLF & _
        "IMG_3930.jpg OK 13" & @CRLF & _
        "IMG_3975.jpg OK 15" & @CRLF & _
        "IMG_3938.jpg OK 14" & @CRLF & _
        "IMG_4072.jpg OK 20"

$sNewText = StringRegExpReplace($sFileText, "(?U)jpg(.*)(\v|\z)", "jpg$2")

MsgBox(0, "Result", $sNewText)

SRE decode:

(?U)     - Smallest matches
jpg      - Look for jpg
(.*)     - Capture anything up to
(\v|\z)  - the next EOL or EOF (which is also captured)

jpg      - Replace with "jpg"
$2       - and the EOL/EOF we captured above

All clear?

M23

[guinness]

Regular expression time.

#include <Constants.au3>

Local Const $sData = 'IMG_4082.jpg OK 20' & @CRLF & _
        'IMG_4083.jpg OK 20' & @CRLF & _
        'IMG_4367.jpg OK 21' & @CRLF & _
        'IMG_4090.jpg OK 20' & @CRLF & _
        'IMG_3960.jpg OK 14' & @CRLF & _
        'IMG_3970.jpg OK 15' & @CRLF & _
        'IMG_3927.jpg OK 13' & @CRLF & _
        'IMG_3981.jpg OK 15' & @CRLF & _
        'IMG_3930.jpg OK 13' & @CRLF & _
        'IMG_3975.jpg OK 15' & @CRLF & _
        'IMG_3938.jpg OK 14' & @CRLF & _
        'IMG_4072.jpg OK 2' & @CRLF
#cs
    - (?m) - ^ should start at the beginning of a line.
    - ([^.]+\.\w+) - Capture the following to a group:
        - [^.]+ - Match anything that isn't a dot.
        - \.jpg - Match the extension .jpg and escape the dot (.).
    - (?:[^\r\n]+) - Don't capture the following to a group.
    - [^\r\n]+ - Match anything that isn't a @CR or @LF, this is greedy.
#ce
MsgBox($MB_SYSTEMMODAL, '', StringRegExpReplace($sData, '(?m)^([^.]+\.jpg)(?:[^\r\n]+)', '\1'))

[PhoenixXL]

Another example

#include <Constants.au3>

Local Const $sData = 'IMG.jpg_4082.jpg OK 20' & @CRLF & _
'IMG_4083.jpg OK 20' & @CRLF & _
'IMG_4367.jpg OK 21' & @CRLF & _
'IMG_4090.jpg OK 20' & @CRLF & _
'IMG_3960.jpg OK 14' & @CRLF & _
'IMG_3970.jpg OK 15' & @CRLF & _
'IMG_3927.jpg OK 13' & @CRLF & _
'IMG_3981.jpg OK 15' & @CRLF & _
'IMG_3930.jpg OK 13' & @CRLF & _
'IMG_3975.jpg OK 15' & @CRLF & _
'IMG_3938.jpg OK 14' & @CRLF & _
'IMG_4072.jpg OK 2' & @CRLF
#cs
- (.*\.jpg) : the last literal string .jpg as capturing group 1
- .* : anything after it which is not a line-break
- \1 : replace back the group one
#ce
ConsoleWrite( StringRegExpReplace($sData, '(.*\.jpg).*', '\1') )

[borism25]

Thnx for the help

I was on the work and trying to figure this out...so i paste this in excel and select (becouse of tabulator) i get 3 rows and than copy filenames

Another example

#include <Constants.au3>

Local Const $sData = 'IMG.jpg_4082.jpg OK 20' & @CRLF & _
'IMG_4083.jpg OK 20' & @CRLF & _
'IMG_4367.jpg OK 21' & @CRLF & _
'IMG_4090.jpg OK 20' & @CRLF & _
'IMG_3960.jpg OK 14' & @CRLF & _
'IMG_3970.jpg OK 15' & @CRLF & _
'IMG_3927.jpg OK 13' & @CRLF & _
'IMG_3981.jpg OK 15' & @CRLF & _
'IMG_3930.jpg OK 13' & @CRLF & _
'IMG_3975.jpg OK 15' & @CRLF & _
'IMG_3938.jpg OK 14' & @CRLF & _
'IMG_4072.jpg OK 2' & @CRLF
#cs
- (.*\.jpg) : the last literal string .jpg as capturing group 1
- .* : anything after it which is not a line-break
- \1 : replace back the group one
#ce
ConsoleWrite( StringRegExpReplace($sData, '(.*\.jpg).*', '\1') )

i have about 500 filenames, does i need to put at the end

& @CRLF & _

or i can do it autoamticlly for every line

Edited February 27, 2013 by borism25

[PhoenixXL]

check _FileListToArray and specify the directory where the files are present

then for each item use the regex pattern through a For Next loop

ask for any queries you have..!

Regards