Applescript에서 일치하는 검색 문자열의 첫 번째 항목 만 바꾸려면 어떻게해야합니까?

Question

나는이 스크립트를 가지고 있지만 나는 그렇게 만 일치하는 검색 문자열의 첫 번째 항목을 대체 변경하려면 : 나는 사방 검색했습니다

on findAndReplaceInText(theText, theSearchString, theReplacementString) 
 
\t set AppleScript's text item delimiters to theSearchString 
 
\t set theTextItems to every text item of theText 
 
\t set AppleScript's text item delimiters to theReplacementString 
 
\t set theText to theTextItems as string 
 
\t set AppleScript's text item delimiters to "" 
 
\t return theText 
 
end findAndReplaceInText 
 

 
findAndReplaceInText("susan", "s", "t") -- returns "tutan" but I want "tusan"

하지만 성공이 없었다. 나는 어떤 도움을 주셔서 감사합니다.

Answer 1

:

to findAndReplaceFirstOccurrenceInText(theText, theSearchString, theReplacementString) 
    set AppleScript's text item delimiters to theSearchString 
    return text item 1 of theText & theReplacementString & text (text item 2) thru (text item -1) of theText 
end findAndReplaceFirstOccurrenceInText 

Answer 2

마지막 문자를 바꿀 때 오류를 수정하는 vadians 코드가 업데이트됩니다. 오류 처리없이

on findAndReplaceFirstOccurrenceInText(theText, theSearchString, theReplacementString) 
set theOffset to offset of theSearchString in theText 
if theOffset is 0 then 
    return theText 
else if theOffset is 1 then 
    tell theText to return theReplacementString & text (theOffset + (length of theSearchString)) thru -1 
else if theOffset is length of theText then 
    tell theText to return text 1 thru (theOffset - 1) & theReplacementString 
else 
    tell theText to return text 1 thru (theOffset - 1) & theReplacementString & text (theOffset + (length of theSearchString)) thru -1 
end if 

최종 findAndReplaceFirstOccurrenceInText