RegExp Global Search

Post

Posted
Rating:
#1 (In Topic #1016)
JumpyVB
Regular
JumpyVB is in the usergroup ‘Regular’
My pattern should be able to match several lines from my subject. But I only get the first matching line. I cannot find compile option global from the RegExp class. Any ideas how to get the desired output?

Code (gambas)

  1. ' Use "gb.pcre"
  2. Public Sub Form_Show()
  3.   Dim mySubject As String = "ExifTool Version Number         : 12.58\nFile Size                       : 2.3 MB\nMegapixels                      : 12.6\nShutter Speed                   : 1/50\n"
  4.   Dim myPattern As String = "^((File Size)|(Camera Model Name)|(Image Size)|(Megapixels)|(Shutter Speed)).*"
  5.   Dim myRegex As New RegExp(mySubject, myPattern, RegExp.MultiLine + RegExp.UTF8)
  6.   TextArea1.Text = myRegex.Text
Online now: No Back to the top

Post

Posted
Rating:
#2
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Is this what you are after?

Code (gambas)

  1. Public Sub Form_Show()
  2.  
  3.   Dim mySubject As String = "ExifTool Version Number         : 12.58\nFile Size                       : 2.3 MB\nMegapixels                      : 12.6\nShutter Speed                   : 1/50\n"
  4.  
  5.   TextArea1.Font = Font["monospace,12"]
  6.   TextArea1.Text = mySubject
  7.  

<IMG src="https://www.cogier.com/gambas/Exif1.png"> </IMG>
Online now: No Back to the top

Post

Posted
Rating:
#3
JumpyVB
Regular
JumpyVB is in the usergroup ‘Regular’

cogier said

Is this what you are after?

No. The original mySubject is actually 115 lines of output from exiftool. I made a simplified example so it would be easier for others to try the code. I want to extract the lines beginning with "File Size", "Camera Model Name", "Image Size", "Megapixels" and "Shutter Speed". Other lines should be discarded.

My regex pattern works fine with an online tool such as RegExr: Learn, Build, & Test RegEx but I am unable get same results in Gambas.

There are other ways to solve this like doing a like comparison line by line in a for loop. But I would like to use regex for this, for the sake of learning how regex is used in Gambas.
Online now: No Back to the top

Post

Posted
Rating:
#4
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
i have never used regexp but the wiki clearly shows the use.  maybe have a read of that and all the methods for RegExp

/comp/gb.pcre/regexp - Gambas Documentation

Code (gambas)

  1. Dim sDiskIO, sVal As String
  3. Dim rMatch As New RegExp
  4.  
  5. ' get disk I/O stats
  6. Exec ["vmstat", "-D"] To sDiskIO
  7. For Each sVal In ["total reads", "read sectors", "writes", "written sectors"]
  8.   rMatch.Compile("^\\s*(\\d+)\\s+" & sVal, RegExp.MultiLine)
  9.   rMatch.Exec(sDiskIO)
  10.   If rMatch.Count = 1 Then
  11.     cVal[Replace(sVal, " ", "_")] = rMatch[1].Text
  12.   Else
  13.     Error.Raise("Missing '" & sVal & "' in 'vmstat -D' output")
  16. Print "total reads: " & cVal!total_reads & " read sectors:" & cVal!read_sectors
  17. Print "writes: " & cVal!writes & " written sectors: " & cVal!written_sectors
  18.  
Online now: No Back to the top

Post

Posted
Rating:
#5
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
PS. for exiftool you should be able to extract the tags just using their names without spaces.

ie…

exiftool -FileSize /file/path
exiftool -ImageSize /file/path
exiftool -CameraModelName /file/path
exiftool -ShutterSpeed /file/path

and so on.

or…
exiftool -FileSize -ImageSize -CameraModelName -ShutterSpeed /file/path



But for RegExp i think you want somethijng like this..

Code (gambas)

  1. Public Sub Main()
  2.  
  3.   Dim mySubject As String = "ExifTool Version Number         : 12.58\nFile Size                       : 2.3 MB\nMegapixels                      : 12.6\nShutter Speed                   : 1/50\n"
  4.   Dim myPattern As String = "^((File Size)|(Camera Model Name)|(Image Size)|(Megapixels)|(Shutter Speed)).*"
  5.   Dim myRegex As New RegExp(mySubject, myPattern, RegExp.MultiLine + RegExp.UTF8)
  6.  
  7.  
  8. ' list all the matches...
  9. For c As Integer = 0 To myRegEx.Count - 1
  10.  TextArea1.Text &=  myRegex[c].Text & "\n"
  12.  
  14.  

But it does not seem to work, maybe the pattern is not right?
Online now: No Back to the top

Post

Posted
Rating:
#6
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
I don't know much about RegExp, so I have tried to solve this another way. Run the following code in a new Graphical Application.

Code (gambas)

  1. ' Gambas class file
  2.  
  3. ''Requires gb.gui
  4. ''ExifTool needs to be installed
  5.  
  6. Splitter1 As Splitter
  7. Splitter2 As Splitter
  8. FileChooser1 As FileChooser
  9. PictureBox1 As PictureBox
  10. TextArea1 As TextArea
  11.  
  12. Public Sub Form_Show()
  13.  
  14.   BuildForm
  15.   FileChooser1.Dir = User.Home &/ "Pictures"
  16.   Splitter1.Layout = [50, 50]
  17.   Splitter2.Layout = [75, 25]
  18.  
  20.  
  21. Public Sub FileChooser1_Change()
  22.  
  23.   Dim sRequired As String[] = ["File Size", "Camera Model Name", "Image Size", "Megapixels", "Shutter Speed"]
  24.   Dim sPhoto, sResult As String
  25.   Dim sExif As String[]
  26.   Dim iExif, iReq As Integer
  27.  
  28.   PictureBox1.Picture = Picture[FileChooser1.SelectedPath]
  29.   Shell "exiftool " & FileChooser1.SelectedPath To sPhoto
  30.  
  31.   sExif = Split(sPhoto, gb.NewLine, "", True)
  32.  
  33.   For iExif = 0 To sExif.Max
  34.     For iReq = 0 To sRequired.Max
  35.       If InStr(sExif[iExif], sRequired[iReq]) > 0 Then sResult &= sExif[iExif] & gb.NewLine
  36.     Next
  37.   Next
  38.  
  39.   TextArea1.Text = sResult
  40.  
  42.  
  43. Public Sub BuildForm()
  44.  
  45.   With Me
  46.     .Height = 800
  47.     .Width = 1300
  48.     .Arrangement = Arrange.Vertical
  49.     .Padding = 5
  50.     .Center
  52.  
  53.   With Splitter1 = New Splitter(Me) As "Splitter1"
  54.     .Expand = True
  55.     .Spacing = True
  57.  
  58.   With FileChooser1 = New FileChooser(Splitter1) As "FileChooser1"
  59.     .Expand = True
  60.     .ShowPreview = True
  62.  
  63.   With Splitter2 = New Splitter(Splitter1) As "Splitter2"
  64.     .Arrangement = Arrange.Vertical
  65.     .Expand = True
  67.  
  68.   With PictureBox1 = New PictureBox(Splitter2) As "PictureBox1"
  69.     .Mode = PictureBox.Contain
  70.     .Alignment = Align.Center
  71.     .Expand = True
  73.  
  74.   With TextArea1 = New TextArea(Splitter2) As "TextArea1"
  75.     .Expand = True
  76.     .Font = Font["monospace,12"]
  78.  
  80.  

<IMG src="https://www.cogier.com/gambas/ExifTest.png"> </IMG>
Online now: No Back to the top

Post

Posted
Rating:
#7
JumpyVB
Regular
JumpyVB is in the usergroup ‘Regular’

BruceSteers said

Maybe the pattern is not right?
The patter is working elsewhere. I am using regex from grep for now:

Code

$ exiftool ~/Pictures/myphoto.jpg | grep -E '^((File Size)|(Camera Model Name)|(Image Size)|(Megapixels)|(Shutter Speed)).*'
The above command will output something like:

Code

File Size                       : 2.5 MB
Camera Model Name               : OnePlus Nord 2T 5G
Shutter Speed Value             : 1/50
Image Size                      : 3072x4096
Megapixels                      : 12.6
Shutter Speed                   : 1/50
Maybe gb.pcre is only able to do one single match - Could it really be so?
Online now: No Back to the top

Post

Posted
Rating:
#8
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
yes but easier to not use regexp at all and just use the exiftool -Tag name feature ;)

the following will give the same result…

Code

exiftool -FileSize -Make -ImageSize -Megapixels -ShutterSpeed ~/Pictures/myphoto.jpg

(couldn't get -CameraModelName to work but -Make gave the same string)

It does not look like any of us here have had much experience using gb.pcre so cannot be much help on how to properly use it i'm afraid.
Online now: No Back to the top
1 guest and 0 members have just viewed this.