◆DragThingを使い倒す。 Part.3

◆DragThingを使い倒す。 Part.3 at MAC

172:139
06/02/22 20:00:39 bt3OYwQYP
>>171
どういう形式で書き出すか知らんけどだいたいこんな感じ

tell application "DragThing"
　　 set theText to ""
　　 set theSlotList to every slot of every layer of every dock whose empty = false and slot kind = url item
　　 repeat with theSlot in theSlotList
　　　　 set theText to theText & return & name of theSlot & return & item URL of theSlot
　　　　 --set theText to ((theText & "<a href=\"" & item URL of theSlot as string) & "\">" & name of theSlot as string) & "</a><br>" & return
　　 end repeat

　　 set the clipboard to theText
end tell

次ページ

続きを表示

1を表示