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