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用に書き換えたものです。

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

aso2.png
▲Script Menuから呼び出し

aso3.png
▲実行すると、選択範囲を伏せ字に

AppleScript名:伏字文字列を作成する
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”
    else
      set outStr to outStr & j
    end if
    
  end repeat
  
  
return outStr
  
end makeUnprintableChars

★Click Here to Open This Script