on checkStory() 
    set numKind to 0 
    repeat 1 times 
        try 
            set someDigits to («event SATIFINd» "[0-9][0-9] [0-9][0-9] [0-9][0-9] [0-9][0-9]" with «class UsGR» given «class $in »:storyOne) 
            set numKind to 8 
            exit repeat 
        end try 
        try 
            set someDigits to («event SATIFINd» "[0-9][0-9] [0-9][0-9] [0-9][0-9][0-9]" with «class UsGR» given «class $in »:storyOne) 
            set numKind to 7 
            exit repeat 
        end try 
        try 
            set someDigits to («event SATIFINd» "[0-9][0-9] [0-9][0-9] [0-9][0-9]" with «class UsGR» given «class $in »:storyOne) 
            set numKind to 6 
            exit repeat 
        end try 
    end repeat 
    return numKind 
end checkStory 
 
-- dieser Handler nimmt das Kürzen der Produktnummern und das Austauschen der Preise vor 
on modNumChangePrice(i, numKind) 
    global allPrices 
    global defList 
    -- der Text wird in XPress-Tags-Format in eine Datei exportiert 
    tell document 1 of application "QuarkXPress Passport" 
        save every text of story i in tempFilePath as "TEXT" 
    end tell 
     
    -- der exportierte Text wird in die Variable 'aString' gelesen 
    set aString to read file tempFilePath 
     
    -- ... die Änderungen der Produktnummern vornehmen ... 
    if suffix is not "" then 
        set suffix to "<\\\\!s>" & suffix 
    end if 
    if aString contains "<\\!s>" then 
        if numKind = 8 then 
            set newString to «event SATIRPLl» "([0-9][0-9]<\\\\!s>[0-9][0-9]<\\\\!s>[0-9][0-9])(<\\\\!s>[0-9][0-9])" with «class UsGR» given «class by  »:"\\1" & suffix, «class $in »:aString 
        else if numKind = 7 then 
            set newString to «event SATIRPLl» "([0-9][0-9]<\\\\!s>[0-9][0-9]<\\\\!s>[0-9][0-9])([0-9])" with «class UsGR» given «class by  »:"\\1" & suffix, «class $in »:aString 
        else if numKind = 6 then 
            set newString to «event SATIRPLl» "([0-9][0-9]<\\\\!s>[0-9][0-9]<\\\\!s>[0-9][0-9])" with «class UsGR» given «class by  »:"\\1" & suffix, «class $in »:aString 
        end if 
    else 
        if numKind = 8 then 
            set newString to «event SATIRPLl» "([0-9][0-9])( )([0-9][0-9])( )([0-9][0-9])( [0-9][0-9])" with «class UsGR» given «class by  »:"\\1<\\\\!s>\\3<\\\\!s>\\5" & suffix, «class $in »:aString 
        else if numKind = 7 then 
            set newString to «event SATIRPLl» "([0-9][0-9])( )([0-9][0-9])( )([0-9][0-9])([0-9])" with «class UsGR» given «class by  »:"\\1<\\\\!s>\\3<\\\\!s>\\5" & suffix, «class $in »:aString 
        else if numKind = 6 then 
            set newString to «event SATIRPLl» "([0-9][0-9])( )([0-9][0-9])( )([0-9][0-9])" with «class UsGR» given «class by  »:"\\1<\\\\!s>\\3<\\\\!s>\\5" & suffix, «class $in »:aString 
        end if 
    end if 

on checkStory() 
    set numKind to 0 
    repeat 1 times 
        try 
            set someDigits to (find text "[0-9]{2} [0-9]{2} [0-9]{2} [0-9]{2}" in storyOne with regexp) 
            set numKind to 8 
            exit repeat 
        end try 
        try 
            set someDigits to (find text "[0-9]{2} [0-9]{2} [0-9]{3}" in storyOne with regexp) 
            set numKind to 7 
            exit repeat 
        end try 
        try 
            set someDigits to (find text "[0-9]{2} [0-9]{2} [0-9]{2}" in storyOne with regexp) 
            set numKind to 6 
            exit repeat 
        end try 
    end repeat 
    return numKind 
end checkStory 
 
-- dieser Handler nimmt das Kürzen der Produktnummern und das Austauschen der Preise vor 
on modNumChangePrice(i, numKind) 
    global allPrices 
    global defList 
    -- der Text wird in XPress-Tags-Format in eine Datei exportiert 
    tell document 1 of application "QuarkXPress Passport" 
        save every text of story i in tempFilePath as "TEXT" 
    end tell 
     
    -- der exportierte Text wird in die Variable 'aString' gelesen 
    set aString to read file tempFilePath 
     
    -- ... die Änderungen der Produktnummern vornehmen ... 
    if suffix is not "" then 
        set suffix to "<\\\\!s>" & suffix 
    end if 
     
    set tmpPrefix to "0" 
     
    if aString contains "<\\!s>" then 
        if numKind = 8 then 
            set newString to change "([0-9]{2}<\\\\!s>[0-9]{2}<\\\\!s>[0-9]{2})(<\\\\!s>[0-9]{2})" into "\\1" & suffix in aString with regexp 
        else if numKind = 7 then 
            set newString to change "([0-9]{2}<\\\\!s>[0-9]{2}<\\\\!s>[0-9]{3})" into "\\1" & suffix in aString with regexp 
        else if numKind = 6 then 
            set newString to change "([0-9]{2}<\\\\!s>[0-9]{2}<\\\\!s>[0-9]{2})" into "\\1" & suffix in aString with regexp 
        end if 
    else 
        if numKind = 8 then 
            set newString to change "([0-9]{2})( )([0-9]{2})( )([0-9]{2})( [0-9]{2})" into "\\1<\\\\!s>\\3<\\\\!s>\\5" & suffix in aString with regexp 
        else if numKind = 7 then 
            set newString to change "([0-9])([0-9]) ([0-9])([0-9]) ([0-9])([0-9])([0-9])" into tmpPrefix & "\\1<\\\\!s>\\2\\3\\4<\\\\!s>\\5\\6" & suffix in aString with regexp 
        else if numKind = 6 then 
            set newString to change "([0-9]{2})( )([0-9]{2})( )([0-9]{2})" into "\\1<\\\\!s>\\3<\\\\!s>\\5" & suffix in aString with regexp 
        end if 
    end if 
end modNumChangePrice