Quantcast
Channel: Planet DTP@jp
Viewing all articles
Browse latest Browse all 4816

FORCE: 剣客商売

$
0
0

820x312

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

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

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

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

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


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


Website_image00300203_205527_2
-----

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

Website_image00300203_205537_2


そう…
デザイナーさんって『字(特に長文)』を『絵』としてインプットしてんじゃないかな?

思う時『あるある』です。
文系、理系で言う『斜め読み力』低めの人が多いしね…
(あっ、みんなが『そうだ』とは言わないです…笑)

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

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

Website_image00300203_204616

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

Website_image00300203_204952


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

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

Website_image00300203_202316

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

Website_image00300203_210621

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

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

Website_image00300203_204655

Website_image00300203_210755

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

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


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

*)

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

---日付けと時間
settheNowTimeto (mydoDateAndTIme(current date)) astext
---ファインダ呼び出し
tellapplication"Finder"
---選択範囲をリスト形式で取得
setlistSelectObjtoselectionaslist
endtell
---リストの数を数える(繰り返し数)
setnumListLineto (countoflistSelectObj) asnumber
---リストから取得する処理位置の初期化
setnumLineto 1 asnumber
---繰り返し処理の開始
repeatnumListLinetimes
---データを取得
setaliasDataListLineto (itemnumLineoflistSelectObj) asreference
---取得したデータの種類を取得
setobjKindtokindofaliasDataListLine
---取得したデータがフォルダなら処理する
ifobjKindis"フォルダ" then
---リネーム用にファインダを呼び出し
tellapplication"Finder"
---フォルダの名前を取得
settheFolderNametonameofaliasDataListLineastext
---フォルダ名の最後の2文字が" 2"だったら
setnumCntFolderNametothelengthoftheFolderName
---最後の2文字" 2"を取るったオリジナルのフォルダ名
settheCopyFolderto (characters (numCntFolderName - 1) thrunumCntFolderNameoftheFolderName) astext
---" 2"だったら
iftheCopyFolderis" 2" then
---" 2"を取ったフォルダ名にする
try
---最後の2文字を取ったフォルダ名
settheFolderNameto (characters 1 thru (numCntFolderName - 2) oftheFolderName) astext
---この後の日付け処理用に2文字分少ないフォルダ文字数にしておく
setnumCntFolderNameto (numCntFolderName - 2) asnumber
endtry
endif
---最後から9文字目が区切り文字だったら
settheCopyFolderto (character (numCntFolderName - 8) oftheFolderName) astext
---"_"だったら
iftheCopyFolderis"_" then
---"_"と日付けを取ったフォルダ名にする
settheDateNumberto (characters (numCntFolderName - 7) thrunumCntFolderNameoftheFolderName) astext
try
---最後の8桁が日付け形式なら数値になる エラーなら処理しない
settheDateNumbertotheDateNumberasnumber
try
settheFolderNameto (characters 1 thru (numCntFolderName - 9) oftheFolderName) astext
endtry
onerror
---
endtry
endif
---変更後のフォルダ名を整形
settheNewFolderNameto (theFolderName& theFileNameSep& theNowTime) astext
---フォルダ名を変更
try
setnameofaliasDataListLinetotheNewFolderName
endtry
endtell
---処理終了
endif
---リストから取得する処理位置の初期化のカウントアップ
setnumLinetonumLine + 1 asnumber
---繰り返し終了
endrepeat






--------------------------------------------------#ここからサブルーチン
todoDateAndTIme(theDate)
setyto (yearoftheDate)
setmtomymonthNumStr(monthoftheDate)
setdtodayoftheDate
sethmstotimeoftheDate
sethhtohofsec2hms(hms)
setmmtomofsec2hms(hms)
setsstosofsec2hms(hms)
--return (y as text) & my zero1(m) & my zero1(d) & "_" & zero1(hh) & zero1(mm) & zero1(ss)
return (yastext) & myzero1(m) & myzero1(d)
enddoDateAndTIme

------------------------------
tomonthNumStr(theMonth)
setmonListto {January, February, March, April, May, June, July, August, September, October, November, December}
repeatwithifrom 1 to 12
ifitemiofmonLististheMonththenexitrepeat
endrepeat
returni
endmonthNumStr
------------------------------
tosec2hms(sec)
setretto {h:0, m:0, s:0}
sethofrettosecdivhours
setmofretto (sec - (hofret) * hours) divminutes
setsofrettosecmodminutes
returnret
endsec2hms
------------------------------
tozero1(n)
ifn< 10 then
return"0" & n
else
returnnastext
endif
endzero1

「rename-folder-plus-date.zip」をダウンロード


「rename-folder-plus-date.rtf」をダウンロード


Viewing all articles
Browse latest Browse all 4816

Trending Articles