Community

• 

  Katja Ovcharova

  • December 08, 2015 13:46

  Dear Rasel,
  
  If I understood you right, you are going to export image field to some location different from the default, that is, the sibfolder of the main document export folder (please correct me if I am wrong).
  If so, then you will indeed need to implement an export script.
  In the Document definition properties, Export settings click Add... and choose Custom export (script), then insert your code there.
  

  
  dim fso, folderName
  set fso = CreateObject("Scripting.FileSystemObject")
  folderName = "c:\Temp\Output" 'here you write the desired output location
  
  ' check whether the folder exists and create if necessary
  
  if Not fso.FolderExists( folderName ) then
      fso.CreateFolder folderName 
  end if
  
  ' create image saving options - choose the appropriate parameters
  ' please note that in FC9 jpeg cannot be saved as BlackAndWhite
  
  dim imageOptions
  set imageOptions = ExportTools.NewImageSavingOptions
  imageOptions.Format = "jpg"
  imageOptions.ColorType = "FullColor"
  imageOptions.Resolution = 200
  
  ' set the desired name and extension for the file depending on the selected format
  ' in my sample the file is named according to a text of some SL field from the document definition
  dim fileName
  fileName = fso.BuildPath( folderName, me.Field("Document Section 1\SL").Text & ".jpg" )
  ' here I use the field name that I see on your screenshot - probably a shorter alias would be more convenient 
  me.Field("Document Section 1\National Life Insurance Co. Ltd").Value.SaveAs fileName, imageOptions
  

  
  
  You can find some additional information in the FlexiCapture 9 Help, section Appendix > Using scripts in ABBYY FlexiCapture >Sample scripts describing export (for samples themselves) / Using scripts to describe export (to see and understand the object model) and modify my sample script according to your needs.
  
  Hope this helps. Otherwise please dscribe your scenario in more details.
  

  No 0 Yes
• 

  Rasel

  • December 13, 2015 15:12

  Yes, that what i need. thank you so much.

  No 0 Yes
• 

  Rasel

  • August 21, 2016 15:21

  Hi there,
  
  I'm facing a new problem with this project. Here is a new case, I'm exporting all the document images by using above script. meanwhile we have some document set where the first page could be missing. now can anyone please help me to modify this script. i just need to set a simple condition into this script, And here is it: if the first page is not exist into the document set then it will export the rest images only.

  No 0 Yes
• 

  Vladislav Suvorov

  • August 22, 2016 10:29

  Hello,
  
  If I understood you right:
  1)Exported image field is always located on 1st page.
  2)You don't want script to work if 1st page is missing.
  The correction should be the following(please add first line before the existing script code and the second line at the very end - those lines are in bold):
  if me.Field("Document Section 1\National Life Insurance Co. Ltd").IsMatched then
  ' existing code
  end if
  
  Hope that helps,
  Vladislav

  No 0 Yes
• 

  Rasel

  • August 22, 2016 12:37

  Hello Suvorov,
  
  Thank you for your prompt replay. You understood absolutely what im looking for. I appreciate your input and i tried with your code. however Im still im getting this error "Index out of range" while exporting. im useing this following code:
  _______________________________________
  if me.Pages.Item(0).IsMatched then
  dim fso, folderName
  set fso = CreateObject("Scripting.FileSystemObject")
  folderName = "D:\Output files" 'here you write the desired output location
  
  if Not fso.FolderExists( folderName ) then
  fso.CreateFolder folderName
  end if
  
  
  dim imageOptions
  set imageOptions = ExportTools.NewImageSavingOptions
  imageOptions.Format = "jpg"
  imageOptions.ColorType = "FullColor"
  imageOptions.Resolution = 150
  
  
  dim fileName
  
  fileName = fso.BuildPath( folderName, me.Field("PAGE-1\AccNo").Text & "_" & me.Field("PAGE-1\CustomerID").Text & ".jpg" )
  me.Pages.Item(0).SaveAs fileName, imageOptions
  end if

  No 0 Yes
• 

  Vladislav Suvorov

  • August 23, 2016 06:55

  Hi Rasel,
  
  In this line of code
  if me.Pages.Item(0).IsMatched then
  you are referring to first page - please keep in mind if your document isn't empty there will always be the first page(meaning script will always work). But IPage does not have a method .IsMatched whatsoever. Thus your line of code basically generates an error and returns nothing.
  What I recommend is: please consider using
  if me.Field("Document Section 1\National Life Insurance Co. Ltd").IsMatched then
  because it checks if necessary field exists on the document and not if first page exists. Field name was taken from previous posts, please change it if you want to use another field.
  
  Hope that helps,
  Vladislav

  No 0 Yes

Please sign in to leave a comment.