剣客商売: [FORCE]

剣客商売

杏ちゃんカワイイ…コメディセンス良いし　声力もなかなか
殺陣はもう少しだけど
『ごちそうさん』では好きにはならなかったのに
時代劇で好きになっちゃった…ホワン♥

----------------------------------------------

今の現場に、未経験の若い人が入った
デザイナーではなく、システム関連要員

未経験…まぁ　誰しも『最初』は未経験なので
色々説明するのですが…
まぁ

デザイナーさんは、メールの『全ては』読んでいないとか

例えば
こんな記事があります（実際はメールでの例えでしたが）

-----

デザイナーさんは、『システム関連のメールは』この程度しか読んで無いよ…といった感じ…苦笑

そう…
デザイナーさんって『字（特に長文）』を『絵』としてインプットしてんじゃないかな？
と
思う時『あるある』です。
文系、理系で言う『斜め読み力』低めの人が多いしね…
（あっ、みんなが『そうだ』とは言わないです…笑）

----------------------------------

仕事の話しで、こんな説明をしました
例えば
フォルダ名に日付けを付ける処理を依頼されたとします

普通は…普通に日付けを付ける処理を作ります

でも
その処理は『どんな時』に『どんな風に』必要か？を
見せてもらえば

実際は
『元になるフォルダ』を『コピー』してから

とか
すでに『日付け』が付いていたりとか

そのような状態からの処理になるので

例外処理も数限りなくあるで
エラー処理や処理の分岐はホドホドで良いですが
その『実際』にあうように設計が必要って事です。とか…説明した

フォルダ名に日付けを付ける
（Finderスクリプトメニュー用）
業務用に書いた物はそのままは外に出せない契約なので
簡易版

フォルダのリネームに限定しているがkindの所の戻り値が『書類』なら
別の分岐を作ればファイルでもいける

(*
フォルダ名に日付けを追加する
201802003 初回作成

*)

---設定項目
---フォルダ名　と　連番をツナグ文字
set theFileNameSep to "_"

---日付けと時間
set theNowTime to (my doDateAndTIme(current date)) as text
---ファインダ呼び出し
tell application "Finder"
---選択範囲をリスト形式で取得
set listSelectObj to selection as list
end tell
---リストの数を数える（繰り返し数）
set numListLine to (count of listSelectObj) as number
---リストから取得する処理位置の初期化
set numLine to 1 as number
---繰り返し処理の開始
repeat numListLine times
---データを取得
set aliasDataListLine to (item numLine of listSelectObj) as reference
---取得したデータの種類を取得
set objKind to kind of aliasDataListLine
---取得したデータがフォルダなら処理する
if objKind is "フォルダ" then
---リネーム用にファインダを呼び出し
tell application "Finder"
---フォルダの名前を取得
set theFolderName to name of aliasDataListLine as text
---フォルダ名の最後の２文字が" 2"だったら
set numCntFolderName to the length of theFolderName
---最後の２文字" 2"を取るったオリジナルのフォルダ名
set theCopyFolder to (characters (numCntFolderName - 1) thru numCntFolderName of theFolderName) as text
---" 2"だったら
if theCopyFolder is " 2" then
---" 2"を取ったフォルダ名にする
try
---最後の２文字を取ったフォルダ名
set theFolderName to (characters 1 thru (numCntFolderName - 2) of theFolderName) as text
---この後の日付け処理用に２文字分少ないフォルダ文字数にしておく
set numCntFolderName to (numCntFolderName - 2) as number
end try
end if
---最後から９文字目が区切り文字だったら
set theCopyFolder to (character (numCntFolderName - 8) of theFolderName) as text
---"_"だったら
if theCopyFolder is "_" then
---"_"と日付けを取ったフォルダ名にする
set theDateNumber to (characters (numCntFolderName - 7) thru numCntFolderName of theFolderName) as text
try
---最後の８桁が日付け形式なら数値になる　エラーなら処理しない
set theDateNumber to theDateNumber as number
try
set theFolderName to (characters 1 thru (numCntFolderName - 9) of theFolderName) as text
end try
on error
---
end try
end if
---変更後のフォルダ名を整形
set theNewFolderName to (theFolderName & theFileNameSep & theNowTime) as text
---フォルダ名を変更
try
set name of aliasDataListLine to theNewFolderName
end try
end tell
---処理終了
end if
---リストから取得する処理位置の初期化のカウントアップ
set numLine to numLine + 1 as number
---繰り返し終了
end repeat






--------------------------------------------------#ここからサブルーチン
to doDateAndTIme(theDate)
set y to (year of theDate)
set m to my monthNumStr(month of theDate)
set d to day of theDate
set hms to time of theDate
set hh to h of sec2hms(hms)
set mm to m of sec2hms(hms)
set ss to s of sec2hms(hms)
--return (y as text) & my zero1(m) & my zero1(d) & "_" & zero1(hh) & zero1(mm) & zero1(ss)
return (y as text) & my zero1(m) & my zero1(d)
end doDateAndTIme

------------------------------
to monthNumStr(theMonth)
set monList to {January, February, March, April, May, June, July, August, September, October, November, December}
repeat with i from 1 to 12
if item i of monList is theMonth then exit repeat
end repeat
return i
end monthNumStr
------------------------------
to sec2hms(sec)
set ret to {h:0, m:0, s:0}
set h of ret to sec div hours
set m of ret to (sec - (h of ret) * hours) div minutes
set s of ret to sec mod minutes
return ret
end sec2hms
------------------------------
to zero1(n)
if n < 10 then
return "0" & n
else
return n as text
end if
end zero1