tungstentransformation / ktscripts Goto Github PK

Hi,

after thorough testing of the code I found two issues in the following for loop:

• IF part won't work in any case if processed document have more pages than sample document
• ELSE part messes up alternatives for pages as it adds fixed confidence of 1
  Proposed solution:
  
  For I=0 To pXDoc.Pages.Count - 1 If ZonesExist(I) And I <= AZLSampleDoc.Pages.Count - 1 Then Pages_Compare(AZLSampleDoc.Pages(I),pXDoc.Pages(I),pLocator.Alternatives,pXDoc.CDoc.Pages(I).XRes,pXDoc.CDoc.Pages(I).YRes) Else pLocator.Alternatives.Create().Confidence=1.0-((pLocator.Alternatives.Count-1)*0.000001) pLocator.Alternatives.Create().Confidence=1.0-((pLocator.Alternatives.Count-1)*0.000001) End If Next

Cheers, Jan Vodrazka

Hi,
It is really useful script for me.

but I need more explain how to this code.
could please you share small sample project about ZonalOCRinScript.vb?

Keen to get this code to work as currently working on some AZL and this code looks fantastic.
There are duplicate funtions in the Text Layout.vb script.

When i remove the duplicate functions i can get the Script locator to work but not when i process
it failing in this section of code with fox exception error.

cheer stephen fox

need a bollean array and check all zonedefs.
and empty results to alternative lists

https://github.com/KofaxTransformation/KTScripts/blob/7e904265932d6582f7abc91c419b74b00015e85d/Text%20Layout.vb#L38

Hello, this does not work properly on multipage forms. I believe there must be multiplication by 2, otherwise it removes incorrect alternative in the SL_CalculatePageShift locator and everything gets messed up. At least if I add *2 in my script then it starts working properly. So my while loop looks like this after the correction and it seems working fine now:
While Results.Count>page1.Words(0).PageIndex*2

Regards,
Jan

Hello,

Our client has found a problem. They erronously scanned less pages, than the document normally contains. This results in multiple runtime errors, for example when trying to move zones on the page that does not exist.

The examples of my fixes:

Private Sub SL_CalculatePageShift_LocateAlternatives(ByVal pXDoc As CASCADELib.CscXDocument, ByVal pLocator As CASCADELib.CscXDocField)
...
         'ZonesExist(AZLDef.Zones(Z).PageNr)=True
         If AZLDef.Zones(Z).PageNr <= pXDoc.Pages.Count-1 Then 'TLA
            ZonesExist(AZLDef.Zones(Z).PageNr)=True
         End If 'TLA


Public Sub Zones_Shift(AZLZones As CscAdvZoneLocZones, Shifts As CscXDocFieldAlternatives, Rep As CscXDocRepresentation)
...
      If (AZLZones(Z).PageNr <= Rep.Pages.Count - 1) Then 'TLA
         Set XDocZone=Zone_Shift(AZLZones(Z),Shifts,Rep)
         Rep.Zones.Append(XDocZone)
      End If 'TLA

If I find more issues with this script because of the incorrect number of scanned pages, I'll try to update.