Applescript works on one document but breaks on an almost identical document

-- Code Set 1

tell application "Pages"
    activate
    try
        set theDoc to the front document
        tell theDoc
            set theText to body text as text
            set updatedText to my replaceScriptureReferences(theText)
            set body text to updatedText
        end tell
    on error errMsg
        display dialog "Error: " & errMsg buttons {"OK"} default button "OK" giving up after 5
    end try
end tell

on replaceScriptureReferences(theText)
    set AppleScript's text item delimiters to "("
    set textItems to text items of theText
    set AppleScript's text item delimiters to ""
    
    set updatedText to ""
    
    repeat with thisItem in textItems
        if thisItem contains ")" then
            set parenContent to text 1 thru ((offset of ")" in thisItem) - 1) of thisItem
            if parenContent contains ":" then
                set scriptureReferences to {}
                set scripturePattern to "\d*\s*[A-Za-z]+\s*\d+:\d+(-\d+)?"
                set refMatches to paragraphs of (do shell script "echo " & quoted form of parenContent & " | grep -oE " & quoted form of scripturePattern) as list
                
                set replacedReferences to {}
                repeat with aLine in refMatches
                    set end of replacedReferences to "[[" & aLine & "]]"
                end repeat
                
                set updatedText to updatedText & (replacedReferences as text) & text ((offset of ")" in thisItem) + 1) thru -1 of thisItem
            else
                set updatedText to updatedText & "(" & thisItem
            end if
        else
            set updatedText to updatedText & thisItem
        end if
    end repeat
    
    return updatedText
end replaceScriptureReferences

-- Code Set 2

tell application "Pages"
    activate
    try
        -- Attempt to get the front document
        set doc to front document
    on error
        -- Display an error dialog if no Pages document is open
        display dialog "No Pages document is open." buttons {"OK"} default button "OK"
        return
    end try
    
    try
        -- Attempt to retrieve the body text of the document
        set textBody to the body text of doc
    on error
        -- Display an error dialog if unable to retrieve the body text
        display dialog "Failed to retrieve the body text from the document." buttons {"OK"} default button "OK"
        return
    end try
    
    try
        -- Move text within double brackets to the next line
        set modifiedText to do shell script "echo " & quoted form of textBody & " | sed -E 's/\[\[([^]]+)\]\]/\n[[\1]]/g'"
        
        -- Attempt to set the modified body text back to the document
        set body text of doc to modifiedText
    on error
        -- Display an error dialog if any issues occur during the text modification process
        display dialog "An error occurred while processing the text." buttons {"OK"} default button "OK"
        return
    end try
end tell

This is my program that automatically formats my scripture for my presentation software. Scripture references are to be in double brackets [[]] to show up in my presentation software.The only clue I have is in my debugging software when I do step by step it is showing CR at the end of the line when it is brought into the code. The funny thing is the documents that work do not show the CR. I have looked at hidden characters to see if there is something different. I cannot see a difference. I will leave a sermon outline that works and one that does not. This week this sermon worked. Also this is the error: Error: Can’t make text 11 thru -1 of item 16 of {“Used at Canal heights 20241229b evening service

Used at Canal Heights 20241229a morning service

Letters of John: The Christian Walk.

INTRODUCTION

The walk of a believer is not static but a daily journey.
Christians are to align our daily lives to Christ’s teaching and example. (1 John 2:6)
There is a clear path for us to take. (John 14:6)
This lesson will look at this path.

WALK IN THE LIGHT

There is no darkness in God. (1 John 1:5; John 8:12)
The path will be clear for those that follow Him. (Ps 119:105; Pro 3:5-6)
Christians are to walk in purity. (1 John 1:5-7,9; Phil 2:15)

WALK IN THE TRUTH

Christians are to walk according to the truth. (2 John 1:4; Pro 3:3-4)
Truth is rooted in God’s Word. (John 14:6; John 17:17)
There is a cost to straying from this path. (2 John 1:7-11)

WALK IN LOVE

Christians are to walk in love. (2 John 1:5-6)
Love is the fulfillment of God’s law. (Matt 22:37-40; Rom 13:8-10)
The example of Jesus’ love. (1 John 3:16; Eph 5:2)
This love will be a testimony to the world. (John 13:35)

WALK IN THE EXAMPLE OF FAITHFUL BELIEVERS

Christians are to emulate good examples. (3 John 1:12; Ps 1:1-2)
Paul’s example. (1 Cor 11:1; Phil 3:17)
Discern good examples. (1 John 4:1; Phil 1:9-10)

CONCLUSION

The Christian walk is a journey toward a heavenly destination, transforming us into the image of Christ. (Rom 8:29)
Daily we must choose the path that aligns with God’s will, serving as a witness to the world.
Let us commit to walk in the way of Christ.

The one that does not work is as follows:

Used at Canal heights 20241229b evening service

Revelation: Christ Wins, Evil Loses, Hope Lives.

INTRODUCTION

Revelation reveals Christ’s victory and the ultimate defeat of evil. (Rev 1:17-18)
It encourages Christians to persevere in the faith, knowing the final outcome. (Rev 3:11)
This letter provides hope and assurance to believers in every age. (Rev 1:3)
This lesson will look at this victory.

CHRIST IS VICTORIOUS

Christ is ruler over all. (Rev 1:17-18, Matt 28:18)
Christ’s triumph over evil is guaranteed. (Rev 19:11-16; 1 Cor 15:24-26)
Christ’s victory is our victory. (1 John 5:4-5; John 16:33)

ALL ENEMIES ARE DEFEATED

Satan and his forces will be overcome. (Rev 12:11)
Death, sin and suffering will be destroyed. (Rev 21:4; 1 Cor 15:54-57)
The final judgment will bring justice. (Rev 20:10-15; Matt 25:31-33,46)

LIVE WITH THIS HOPE

Christians are to live with anticipation of Christ’s return. (Rev 22:12)
Live holy lives anticipating the new creation. (Rev 21:1-4; 1 John 3:2-3)
Share the hope of Christ’s return with others. (Rev 22:17; 1 Pet 3:15)

CONCLUSION

Christians are to hold firm to the victory of Christ and live with hope and perseverance. (Rev 3:11)
Our lives should reflect the ultimate triumph of good over evil. (Rev 17:14)
As we wait for Christ’s return, we are called to live in faith, hope and love, sharing His message with the world. (Col 1:5-6)

I have been playing with this code for months now and thought someone just might know what is going on. Thanks in advance for any insight.
Bryan

New contributor

Filed under: Kiến thức lập trình - @ 16:05

Thẻ: applescript

Applescript works on one document but breaks on an almost identical document

-- Code Set 1

tell application "Pages"
    activate
    try
        set theDoc to the front document
        tell theDoc
            set theText to body text as text
            set updatedText to my replaceScriptureReferences(theText)
            set body text to updatedText
        end tell
    on error errMsg
        display dialog "Error: " & errMsg buttons {"OK"} default button "OK" giving up after 5
    end try
end tell

on replaceScriptureReferences(theText)
    set AppleScript's text item delimiters to "("
    set textItems to text items of theText
    set AppleScript's text item delimiters to ""
    
    set updatedText to ""
    
    repeat with thisItem in textItems
        if thisItem contains ")" then
            set parenContent to text 1 thru ((offset of ")" in thisItem) - 1) of thisItem
            if parenContent contains ":" then
                set scriptureReferences to {}
                set scripturePattern to "\d*\s*[A-Za-z]+\s*\d+:\d+(-\d+)?"
                set refMatches to paragraphs of (do shell script "echo " & quoted form of parenContent & " | grep -oE " & quoted form of scripturePattern) as list
                
                set replacedReferences to {}
                repeat with aLine in refMatches
                    set end of replacedReferences to "[[" & aLine & "]]"
                end repeat
                
                set updatedText to updatedText & (replacedReferences as text) & text ((offset of ")" in thisItem) + 1) thru -1 of thisItem
            else
                set updatedText to updatedText & "(" & thisItem
            end if
        else
            set updatedText to updatedText & thisItem
        end if
    end repeat
    
    return updatedText
end replaceScriptureReferences

-- Code Set 2

tell application "Pages"
    activate
    try
        -- Attempt to get the front document
        set doc to front document
    on error
        -- Display an error dialog if no Pages document is open
        display dialog "No Pages document is open." buttons {"OK"} default button "OK"
        return
    end try
    
    try
        -- Attempt to retrieve the body text of the document
        set textBody to the body text of doc
    on error
        -- Display an error dialog if unable to retrieve the body text
        display dialog "Failed to retrieve the body text from the document." buttons {"OK"} default button "OK"
        return
    end try
    
    try
        -- Move text within double brackets to the next line
        set modifiedText to do shell script "echo " & quoted form of textBody & " | sed -E 's/\[\[([^]]+)\]\]/\n[[\1]]/g'"
        
        -- Attempt to set the modified body text back to the document
        set body text of doc to modifiedText
    on error
        -- Display an error dialog if any issues occur during the text modification process
        display dialog "An error occurred while processing the text." buttons {"OK"} default button "OK"
        return
    end try
end tell

Used at Canal Heights 20241229a morning service

Letters of John: The Christian Walk.

INTRODUCTION

WALK IN THE LIGHT

There is no darkness in God. (1 John 1:5; John 8:12)
The path will be clear for those that follow Him. (Ps 119:105; Pro 3:5-6)
Christians are to walk in purity. (1 John 1:5-7,9; Phil 2:15)

WALK IN THE TRUTH

Christians are to walk according to the truth. (2 John 1:4; Pro 3:3-4)
Truth is rooted in God’s Word. (John 14:6; John 17:17)
There is a cost to straying from this path. (2 John 1:7-11)

WALK IN LOVE

WALK IN THE EXAMPLE OF FAITHFUL BELIEVERS

Christians are to emulate good examples. (3 John 1:12; Ps 1:1-2)
Paul’s example. (1 Cor 11:1; Phil 3:17)
Discern good examples. (1 John 4:1; Phil 1:9-10)

CONCLUSION

The one that does not work is as follows:

Used at Canal heights 20241229b evening service

Revelation: Christ Wins, Evil Loses, Hope Lives.

INTRODUCTION

CHRIST IS VICTORIOUS

Christ is ruler over all. (Rev 1:17-18, Matt 28:18)
Christ’s triumph over evil is guaranteed. (Rev 19:11-16; 1 Cor 15:24-26)
Christ’s victory is our victory. (1 John 5:4-5; John 16:33)

ALL ENEMIES ARE DEFEATED

Satan and his forces will be overcome. (Rev 12:11)
Death, sin and suffering will be destroyed. (Rev 21:4; 1 Cor 15:54-57)
The final judgment will bring justice. (Rev 20:10-15; Matt 25:31-33,46)

LIVE WITH THIS HOPE

CONCLUSION

I have been playing with this code for months now and thought someone just might know what is going on. Thanks in advance for any insight.
Bryan

New contributor

Filed under: Kiến thức lập trình - @ 16:05

Thẻ: applescript

Thiết kế website giá rẻ

Danh mục

Applescript works on one document but breaks on an almost identical document

Applescript works on one document but breaks on an almost identical document