20260518

[current date] NARROW NO-BREAK SPACEの置換

[current date] NARROW NO-BREAK SPACEの置換

解説はこちら
NOTE記事一覧ですnote.com

【スクリプトエディタで開く】 |

NARROW NO-BREAK SPACEの置換.scpt.scpt
ソース
001#!/usr/bin/env osascript
002#coding: utf-8
003----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
004(*
005
0061:アプリケーションのメニューが『英語』で
0072:時刻表示が午前午後の12時間表記の場合
008
009"Monday, May 18, 2026 at 10:38:29PM"
010この戻り値で
011PMの前ののスペースが『NARROW NO-BREAK SPACE』になっている
012
013SPACE 
014U+0020 
015character id 32
016
017NARROW NO-BREAK SPACE
018U+202F
019character id 8239
020
021
022com.cocolog-nifty.quicktimer.icefloe *)
023----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
024use AppleScript version "2.8"
025use scripting additions
026
027#日付の『NARROW NO-BREAK SPACE』をスペースに置換する
028set strDate to (current date) as text
029
030#NARROW NO-BREAK SPACE  U+202F
031set strNarrowNoBreakSpace to (character id 8239) as string
032#SPACE U+0020 
033set strSpace to (character id 32) as string
034#区切り文字でリストにして
035set strDelim to AppleScript's text item delimiters
036set AppleScript's text item delimiters to strNarrowNoBreakSpace
037set listDate to every text item of strDate
038#スペースで置換
039set AppleScript's text item delimiters to strSpace
040set strDate to listDate as text
041set AppleScript's text item delimiters to strDelim
042
043return strDate
AppleScriptで生成しました