현재 문서를 같은 이름과 경로로 .html로 저장합니다.

Question

FoldingText 윤곽선 (기본적으로 Markdown 텍스트 파일)을 Remark 프리젠 테이션 (Markdown 파일의 슬라이드 쇼를 만드는 HTML 스크립트)으로 변환하는 FoldingText에 대해 script에서 작업하고 있습니다.). 스크립트는 작동하지만 다음과 같이 개선하고 싶습니다.

HTML 파일을 저장할 이름과 위치를 묻는 대신 현재 문서의 이름을 가져 와서 저장하고 싶습니다. 현재 폴더에 같은 이름의 HTML 파일이 있습니다. 이 이름을 가진 문서가 이미 있으면 스크립트가 제대로 실패합니다 (문서를 덮어 쓰거나 다른 이름으로 새 문서로 저장할 수 있음).

파일에 쓰는 데 사용하는 스크립트는이 포럼에서 가져온 것입니다.

on write_to_file(this_data, target_file, append_data) -- (string, file path as string, boolean) 
try 
    set the target_file to the target_file as text 
    set the open_target_file to ¬ 
     open for access file target_file with write permission 
    if append_data is false then ¬ 
     set eof of the open_target_file to 0 
    write this_data to the open_target_file starting at eof as «class utf8» 
    close access the open_target_file 
    return true 
on error 
    try 
     close access file target_file 
    end try 
    return false 
end try 
end write_to_file 

그리고 두 번째 부분은 다음과 같습니다 : 첫 번째 부분은

set theFile to choose file name with prompt "Set file name and location:" 
my write_to_file(finalText, theFile, true) 

감사합니다.

Answer 1

FoldingText에는 문서의 경로를 검색 할 수있는 방법이 있어야합니다. 응용 프로그램에 대한 무료 dowonload를 찾지 못했기 때문에 직접 확인하지는 못했지만 응용 프로그램 사전을 보면 찾을 수 있습니다.

내 생각은 FoldingText의 문서 '의 파일'이 속성이 '경로'처럼, 또는이다 :

당신은 아마 이런 일에 종료됩니다 :에

set theDocPath to file of front document of application "FoldingText" 
tell application "Finder" 
set theContainer to container of theFile 
end tell 
set newPath to (theContainer & "export.html) as string 
repeat while (file newPath exists) 
set newPath to choose file name with prompt "Set file name and location:" 
end repeat 

my write_to_file(finalText, newPath, true)