Archive for the 'ASObjC Explorer 4' Category

2015/09/08 ASObjC Explorer 4で選択中の文字を伏字に

ASObjC Explorer 4の最前面のドキュメントで選択中の文字を伏せ字にするAppleScriptです。

イーサネットのMAC ADDRESSなど、そのまま掲載しておくとよろしくない情報を無難な状態で掲載するために、ASObjC Explorer 4の選択範囲を伏せ字にします。Script Editor版ははるかかなた昔に作ってありましたが、ASObjC Explorer 4用に書き換えたものです。

▲ASObjC Explorer 4の最前面のドキュメントで、処理範囲を選択

▲Script Menuから呼び出し


tell application “ASObjC Explorer 4″
  set dCount to count every document
if dCount = 0 then return
tell front document
    set aSel to selection
if aSel = “” then return
set newStr to makeUnprintableChars(aSel) of me
set selection to newStr
  end tell
end tell

on makeUnprintableChars(aStr)
set outStr to “”
set abList to characters of aStr
repeat with i in abList
    set j to contents of i
set anID to id of j
if anID 65 and anID 90 then
set outStr to outStr & “X”
    else if anID 97 and anID 122 then
set outStr to outStr & “x”
    else if anID 48 and anID 57 then
set outStr to outStr & “X”
      set outStr to outStr & j
    end if
  end repeat
return outStr
end makeUnprintableChars

★Click Here to Open This Script