Rename and Relinking Images in QuarkXPress using AppleScript

set piclist to {}
set datlist to {}
global missed
set missed to {}
global dat, datlist, fileID
global textFile, available
set SourceFile to (choose file with prompt "Choose any quark document file...")
set textFile to (choose file with prompt "Choose text file ...")
set thepath to choose folder with prompt "Select folder to images in..."

tell application "Finder"
    if (file textFile exists) then
        set fileID to open for access textFile
        try
            set myfilecontents to read textFile
        on error
            display dialog "Check the text file..."
            return
        end try
        close access textFile
    end if
end tell

tell application "QuarkXPress"
    try
        open SourceFile use doc prefs yes remap fonts no do auto picture import no
    on error
        display dialog "check the file is already opened..."
        return
    end try

    tell document 1
        set pb to count of images

        set the Tmppara_list to every paragraph of myfilecontents
        repeat with i from 1 to count of paragraph of myfilecontents
            set Tmpln to i
            set Tmp_p1 to paragraph i of myfilecontents
            set TmpTextpara to Tmp_p1
            set prevTIDs to text item delimiters of AppleScript
            set text item delimiters of AppleScript to tab
            --set subject to text items of "A   B"
            set subject to text items of TmpTextpara
            set srcImg to item 1 of subject
            set desImg to item 2 of subject
            set text item delimiters of AppleScript to prevTIDs
            --end repeat
            set available to false
            repeat with i from 1 to count of images
                tell image i
                    set ImageBox to object reference of picture box 1
                    -- Copy writable properties
                    set Img_file_path to (file path) as text
                    if (Img_file_path ? "null" and Img_file_path ? "no disk file") then
                        set theImageName to my NameFromPath(Img_file_path)
                        if (theImageName ? "null" and theImageName ? "no disk file") then
                            if theImageName = srcImg then
                                set available to true
                                if not missing then
                                    set Img_angle to angle
                                    set Img_color to color
                                    set Img_greek_pictures to greek pictures
                                    set Img_image_trap to image trap
                                    set Img_invert_runaround to invert runaround
                                    --set Img_model to model
                                    set Img_name to name
                                    --set Img_negative to negative
                                    set Img_offset to offset
                                    set Img_scale to scale
                                    set Img_screen to screen
                                    set Img_screen_angle to screen angle
                                    set Img_screen_frequency to screen frequency
                                    set Img_screen_function to screen function
                                    set Img_shade to shade
                                    set Img_show_half_tone to show half tone
                                    set Img_skew to skew
                                    set Img_suppress_printing to suppress printing

                                    set Img_file_path to (file path) as text

                                    tell application "Finder"
                                        try
                                            set the datlist to files of thepath
                                        end try
                                        repeat with dat in datlist
                                            set fname to name of dat as string
                                            if fname = srcImg then
                                                set name of dat to desImg
                                                exit repeat
                                            end if
                                        end repeat
                                    end tell

                                    -- Get new image path
                                    set Img_file_path to (file path) as text
                                    set Img_file_path to my FindReplace(srcImg, desImg, Img_file_path)

                                    -- Re-import picture
                                    try
                                        set image 1 of ImageBox to file Img_file_path

                                        -- Re-set image properties
                                        tell image 1 of ImageBox
                                            set angle to Img_angle
                                            set color to name of Img_color
                                            set greek pictures to Img_greek_pictures
                                            set image trap to Img_image_trap
                                            set invert runaround to Img_invert_runaround
                                            --set model to Img_model
                                            set name to Img_name
                                            --set negative to Img_negative
                                            set offset to Img_offset
                                            set scale to Img_scale
                                            set screen to Img_screen
                                            set screen angle to Img_screen_angle
                                            try
                                                set screen frequency to Img_screen_frequency
                                            end try
                                            set screen function to Img_screen_function
                                            set shade to Img_shade
                                            set show half tone to Img_show_half_tone
                                            set skew to Img_skew
                                            set suppress printing to Img_suppress_printing
                                        end tell
                                    end try
                                end if
                                --else
                                --available = false
                            end if
                        end if
                    end if
                end tell

            end repeat
            if available = false then
                --display dialog srcImg
                set missed to missed & srcImg & return
            end if
        end repeat
    end tell
    save document 1
    --copy (choose file name default name "missed" & ".txt") as string to dataFile
    set SourceFile to SourceFile as string
    set dataFile to my FindReplace(".qxd", ".txt", SourceFile)
    try
        open for access file (dataFile) with write permission
        set eof of file (dataFile) to 0
        write item 1 of missed to file (dataFile) starting at 0
        repeat with i from 2 to length of missed
            try
                write item i of missed to file (dataFile)
            end try
        end repeat
        close access file (dataFile)
    on error errtext number errNum
        close access file (dataFile)
        tell application "QuarkXPress"
            activate
            --          display dialog errtext
            display dialog "No missed files..."
        end tell
    end try

    display dialog "completed"
    return
end tell

on FindReplace(FindWhat, ReplaceBy, ThisString)
    copy the text item delimiters to OldDelims
    set the text item delimiters to {FindWhat}
    set TempList to every text item of ThisString
    set the text item delimiters to {ReplaceBy}
    set NewString to TempList as text
    set the text item delimiters to OldDelims
    return NewString
end FindReplace

on NameFromPath(theImagePath)
    set theOffset to the offset of ":" in (the reverse of every character of theImagePath) as string
    set theImageName to (characters -(theOffset - 1) thru -1 of theImagePath) as string
    return theImageName
end NameFromPath

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

set piclist to {}

set datlist to {}

global missed

set missed to {}

global dat, datlist, fileID

global textFile, available

set SourceFile to (choose file with prompt "Choose any quark document file...")

set textFile to (choose file with prompt "Choose text file ...")

set thepath to choose folder with prompt "Select folder to images in..."

tell application "Finder"

if (file textFile exists) then

set fileID to open for access textFile

try

set myfilecontents to read textFile

on error

display dialog "Check the text file..."

return

end try

close access textFile

end if

end tell

tell application "QuarkXPress"

try

open SourceFile use doc prefs yes remap fonts no do auto picture import no

on error

display dialog "check the file is already opened..."

return

end try

tell document 1

set pb to count of images

set the Tmppara_list to every paragraph of myfilecontents

repeat with i from 1 to count of paragraph of myfilecontents

set Tmpln to i

set Tmp_p1 to paragraph i of myfilecontents

set TmpTextpara to Tmp_p1

set prevTIDs to text item delimiters of AppleScript

set text item delimiters of AppleScript to tab

--set subject to text items of "A B"

set subject to text items of TmpTextpara

set srcImg to item 1 of subject

set desImg to item 2 of subject

set text item delimiters of AppleScript to prevTIDs

--end repeat

set available to false

repeat with i from 1 to count of images

tell image i

set ImageBox to object reference of picture box 1

-- Copy writable properties

set Img_file_path to (file path) as text

if (Img_file_path ? "null" and Img_file_path ? "no disk file") then

set theImageName to my NameFromPath(Img_file_path)

if (theImageName ? "null" and theImageName ? "no disk file") then

if theImageName = srcImg then

set available to true

if not missing then

set Img_angle to angle

set Img_color to color

set Img_greek_pictures to greek pictures

set Img_image_trap to image trap

set Img_invert_runaround to invert runaround

--set Img_model to model

set Img_name to name

--set Img_negative to negative

set Img_offset to offset

set Img_scale to scale

set Img_screen to screen

set Img_screen_angle to screen angle

set Img_screen_frequency to screen frequency

set Img_screen_function to screen function

set Img_shade to shade

set Img_show_half_tone to show half tone

set Img_skew to skew

set Img_suppress_printing to suppress printing

set Img_file_path to (file path) as text

tell application "Finder"

try

set the datlist to files of thepath

end try

repeat with dat in datlist

set fname to name of dat as string

if fname = srcImg then

set name of dat to desImg

exit repeat

end if

end repeat

end tell

-- Get new image path

set Img_file_path to (file path) as text

set Img_file_path to my FindReplace(srcImg, desImg, Img_file_path)

-- Re-import picture

try

set image 1 of ImageBox to file Img_file_path

-- Re-set image properties

tell image 1 of ImageBox

set angle to Img_angle

set color to name of Img_color

set greek pictures to Img_greek_pictures

set image trap to Img_image_trap

set invert runaround to Img_invert_runaround

--set model to Img_model

set name to Img_name

--set negative to Img_negative

set offset to Img_offset

set scale to Img_scale

set screen to Img_screen

set screen angle to Img_screen_angle

try

set screen frequency to Img_screen_frequency

end try

set screen function to Img_screen_function

set shade to Img_shade

set show half tone to Img_show_half_tone

set skew to Img_skew

set suppress printing to Img_suppress_printing

end tell

end try

end if

--else

--available = false

end if

end tell

end repeat

if available = false then

--display dialog srcImg

set missed to missed & srcImg & return

end if

end repeat

end tell

save document 1

--copy (choose file name default name "missed" & ".txt") as string to dataFile

set SourceFile to SourceFile as string

set dataFile to my FindReplace(".qxd", ".txt", SourceFile)

try

open for access file (dataFile) with write permission

set eof of file (dataFile) to 0

write item 1 of missed to file (dataFile) starting at 0

repeat with i from 2 to length of missed

try

write item i of missed to file (dataFile)

end try

end repeat

close access file (dataFile)

on error errtext number errNum

close access file (dataFile)

tell application "QuarkXPress"

activate

-- display dialog errtext

display dialog "No missed files..."

end tell

end try

display dialog "completed"

return

end tell

on FindReplace(FindWhat, ReplaceBy, ThisString)

copy the text item delimiters to OldDelims

set the text item delimiters to {FindWhat}

set TempList to every text item of ThisString

set the text item delimiters to {ReplaceBy}

set NewString to TempList as text

set the text item delimiters to OldDelims

return NewString

end FindReplace

on NameFromPath(theImagePath)

set theOffset to the offset of ":" in (the reverse of every character of theImagePath) as string

set theImageName to (characters -(theOffset - 1) thru -1 of theImagePath) as string

return theImageName

end NameFromPath

Motions-Media

Rename and Relinking Images in QuarkXPress using AppleScript

Web, Coding, Mac, Snippets, a Blog and more…