DropBoxのデスクトップアプリはARM版はもう少し待った方が良い『かも』
| 固定リンク
JR時刻表 ショートカット(iOSのEdgeで開く）
治しました
ダウンロード - JR横浜東海道上りEdgeiOS.shortcut.zip
ダウンロード - jre6a8aae6b59ce69db1e6b5b7e98193e4b88ae3828aedgeios.shortcut
---------以下旧文書
あのなぁ…年賀状が切手で当たっていたので…今回だけよ…
iOS専用です。（Macな場合は他に方法いくらでもあるからね）
ダウンロード - JR横浜東海道上りEdgeiOS.shortcut.zip
ポイントはURL
https://XXXXX
を
microsoft-edge-https://XXXXX
に
するところです
注意点は
MacOS版のショートカットだとアプリ名が
『Microsoft Edge』ですが
iOS版では
『Edge』ですのでカスタマイズする時は注意してください
日付の処理はこちらと同じです
処理的にはURLをテキストで渡す事（URLと認識してくれないので）
| 固定リンク
JR時刻表 ショートカット
山崎さん…こんどコーヒーおごってくださいね…
ダウンロード -JR横浜東海道下り.shortcut.zip
JR時刻表から、任意の時刻表ページを表示します
https://www.jreast-timetable.jp/
URLをコピーしておきます
ショートカットを起動して
新規ショートカットを作成します
検索窓にURLで検索して
URLとURLを開くを使います
URLにURLをペーストして、URLの年月部分 に『右クリック』から『現在の日時』を挿入します
フォーマットは yyMM
共有シートは任意で
iPhoneに移って
ショートカットを選んでから
共有から
ホーム画面に追加してください
| 固定リンク
不可視文字と表示出来ない文字は、ちょっと違う『場合もある』
まぁ、『ざっくり』書くとこうなりますが
この不可視文字は、
一般的に『制御文字』だったりするので
改行やタブが『それ』になります
ただし、『表示』出来ない文字って事だと
↓こんな事が言えます。
フォントに『文字』が指定されていなければ『表示出来ない』場合もあります。
一般的には
『不可視文字』＝『表示されない文字』でも間違いではないので大丈夫でしょう
| 固定リンク
Glyphr Studio
Glyphr Studio
https://www.glyphrstudio.com/
まだ開発中ですが…
すごく軽量なんだけど、ちょっと…このままでは使えないかな…
クラウド版は可能性ある
ダウンロードはこちら
https://github.com/glyphr-studio/Glyphr-Studio-Desktop
| 固定リンク
ディスクの書き込み遅延のトラブル
引っ越ししてから、旧OS（10.6）のiMacの外付けHDDへの
書き込み遅延が、起こっていた。
読み出しは、まぁ正常範囲の速度（とは言っても古い機材なので遅いが…）
HDD自体の不良ではないようで、他の機器に接続すると
とってもスムーズ
iMacのUSBポートが、いよいよアレかな…と思ったが
他の外付けをつなぐと、とってもスムーズ
USBハブかしら？とハブ経由せずに、直接接続しても変化なし
念のために、ログチェックしても、それらしいログが出ていない…
そこで、とりあえず、通常メンテナンスを行なって
起動したら、ケロっと機嫌良くなっている。
OS古いので、Spotlight周りのトラブルだったんかなぁ…
外付けHDD本体もそれなりに古いので、新しいディスクをポチッとしておいた
| 固定リンク
Acrobat 21.011.20039 Planned update
21.011.20039 Planned update
https://www.adobe.com/devnet-docs/acrobatetk/tools/ReleaseNotesDC/continuous/dccontinuousjan2022.html
auto-adjust layout experienceについてはこちら
https://helpx.adobe.com/acrobat/using/edit-text-pdfs-new-experience.html
| 固定リンク
[AppleScript]キーノートの書類サイズを指定して作成
自分でも『どうかしてるんじゃ？』と思うけどね…笑
選んだサイズで
書類作るだけ…
（その都度計算すれば良いじゃん…てのは無しで…苦笑）
ダウンロード - keynotoe381aee69bb8e9a19ee382b5e382a4e382b9e38299.zip
(************************************************************************
PPDファイルを利用して
キーノートの新規書類を作成します
→ポイント指定なので計算面倒だからね
20220109 初回作成
************************************************************************)
on run
set aliasPathToMe to path to me as alias
tell application "Finder"
set theMeFileName to name of aliasPathToMe as text
end tell
set thePathToMe to (POSIX path of aliasPathToMe) as text
set thePathToMe to doReplace(thePathToMe, theMeFileName, "")
set thePathToMe to ("" & thePathToMe & "/ppds/") as text
set aliasDefLoc to (POSIX file thePathToMe)
set theWithPrompt to "PPDファイルを選択してください(gz圧縮ファイルは解凍してから)"
--set theDefLoc to path to printer descriptions folder from local domain
set theDefLoc to aliasDefLoc
set theFileType to "com.adobe.postscript,com.adobe.ppd,public.ppd,public.data" as text
set AppleScript's text item delimiters to {","}
set theFileTypeList to every text item of theFileType
open (choose file default location theDefLoc ¬
with prompt theWithPrompt ¬
of type theFileTypeList ¬
without invisibles)
end run
on open DropObj
set thePaperListAll to "" as text
set theFilePath to POSIX path of DropObj
set theReadData to (do shell script "cat '" & theFilePath & "'") as text
set AppleScript's text item delimiters to "\r"
set listData to (every text item of theReadData) as list
set AppleScript's text item delimiters to ""
set numCntList to (count of listData) as number
set numReadList to 1 as number
repeat numCntList times
set theLineData to (item numReadList of listData) as text
if theLineData contains "*?PageSize:" then
set numInList to 1 as number
set numInStartList to numReadList as number
repeat
set numInStartList to numInStartList + 1 as number
set theInData to (item numInStartList of listData) as text
if theInData contains "] (" then
set theInData to doReplace(theInData, "dup ", "") as text
set theInData to doReplace(theInData, " put", "") as text
set theWpt to word 1 of theInData as text
set theHpt to word 2 of theInData as text
set AppleScript's text item delimiters to "("
set listInData to (every text item of theInData) as list
set AppleScript's text item delimiters to ""
set thePaperName to (item 2 of listInData) as text
set thePaperName to doReplace(thePaperName, ")", "") as text
set thePaperList to ("" & thePaperName & "\t" & theWpt & "\t" & theHpt & "") as text
log theInData
log thePaperName
log theWpt
log theHpt
log thePaperList
set thePaperListAll to (thePaperListAll & "\r" & thePaperList) as text
end if
if theInData contains "*End" then
exit repeat
end if
end repeat
log thePaperListAll
end if
set numReadList to numReadList + 1 as number
end repeat
set thePaperListAll to thePaperListAll as text
set AppleScript's text item delimiters to {(ASCII character 13)}
set listPaperListAll to (every text item of thePaperListAll) as list
set numChkDelimiters to (count of listPaperListAll) as number
set AppleScript's text item delimiters to {""}
set theResponce to choose from list listPaperListAll with title "作成する用紙を選んでください" with prompt "作成する作成する用紙を選んでください" without multiple selections allowed and empty selection allowed
if theResponce is false then
error number -128
end if
set theResponce to theResponce as text
set AppleScript's text item delimiters to {(ASCII character 9)}
set theDataListLineData to every text item of theResponce as list
set AppleScript's text item delimiters to {""}
set theLineDate1 to (item 1 of theDataListLineData) as text
set theLineDate2 to (item 2 of theDataListLineData) as text
set theLineDate3 to (item 3 of theDataListLineData) as text
tell application "Keynote"
launch
activate
make new document with properties {name:"" & theLineDate1 & "", width:"" & theLineDate2 & "", height:"" & theLineDate3 & "", slide numbers showing:true}
end tell
end open
--------------文字の置き換えサブルーチン
to doReplace(theText, theOrgStr, theNewStr)
set theOldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to theOrgStr
set theTmpList to every text item of theText
set AppleScript's text item delimiters to theNewStr
set theReplaceStr to theTmpList as text
set AppleScript's text item delimiters to theOldDelim
return theReplaceStr
end doReplace
| 固定リンク
CODA (Child of Deaf Adults)
以前見たフランス映画のリメイク
エール！(La famiglia Belier)
https://force4u.cocolog-nifty.com/skywalker/2017/05/la-famiglia-bel.html
リメイク版でも描かれている
歌を触るシーン なんか心を触るんだよねぇ
ラストシーンが良い
フランス版のオーディション曲は
Je vole
https://www.youtube.com/watch?v=TbKyQWaY1So
今回はジョニーミッチェル
Both Sides Now
https://www.youtube.com/watch?v=VJjvTcnPtJk
| 固定リンク
【QR】イベント・カレンダー登録用のQRコードを作る（Google Chart利用）
【QR】イベント・カレンダー登録用のQRコードを作る（Google Chart利用）
https://force4u.cocolog-nifty.com/skywalker/2019/07/post-860c14.html
こちらの記事の
php→ python3への対応版（OS11以上用）
ダウンロード - make_qrcode4_eventfile.scpt.zip
iCSファイルを選んで実行すると
iOSの標準カメラでこんな感じ
(*
make_qrcode4_eventfile.scpt
イベント登録用のQRを作成します。
たぶんiOS専用
20190714 初回作成
20190715 phpのエラー処理追加
20220106 phpでの％エンコードの処理をpython3に置き換え
APIの仕様は
https://developers.google.com/chart/infographics/docs/qr_codes
*)
on run
set theWithPrompt to "QRコードを作成します。"
set theDefLoc to path to downloads folder from user domain
set theFileType to "public.vcard,com.apple.ical.ics,public.calendar-event,public.ics,com.apple.ical.vcs" as text
set AppleScript's text item delimiters to {","}
set theFileTypeList to every text item of theFileType
open (choose file default location theDefLoc ¬
with prompt theWithPrompt ¬
of type theFileTypeList ¬
without invisibles)
end run
on open DropObj
set theFilePath to POSIX path of DropObj
set theChl to (do shell script "cat '" & theFilePath & "'") as text
set AppleScript's text item delimiters to "\r"
set listData to (every text item of theChl) as list
set AppleScript's text item delimiters to ""
set numCntList to (count of listData) as number
set numReadList to 1 as number
repeat numCntList times
set theLineData to (item numReadList of listData) as text
----EVENT ITEM
if theLineData contains "LOCATION:" then
set theLocation to theLineData
set theLocation to doReplace(theLocation, "LOCATION:", "")
set theLocation to my encodeURL(theLocation)
end if
if theLineData contains "DESCRIPTION:" then
set theDescription to theLineData
set theDescription to doReplace(theDescription, "DESCRIPTION:", "")
set theDescription to my encodeURL(theDescription)
end if
if theLineData contains "SUMMARY:" then
set theSummary to theLineData
set theSummary to doReplace(theSummary, "SUMMARY:", "")
set theSummary to my encodeURL(theSummary)
end if
if theLineData contains "URL:" then
set theURL to theLineData
set theURL to doReplace(theURL, "URL:", "")
set theURL to my encodeURL(theURL)
else if theLineData contains "URL;" then
set theURL to theLineData
set theURL to doReplace(theURL, "VALUE=URI:", "")
set theURL to doReplace(theURL, "URL;", "")
set theURL to my encodeURL(theURL)
end if
if theLineData contains "DTSTART:" then
set theDTSTART to theLineData
set theDTSTART to doReplace(theDTSTART, "DTSTART:", "")
end if
if theLineData contains "DTEND:" then
set theDTEND to theLineData
set theDTEND to doReplace(theDTEND, "DTEND:", "")
end if
set numReadList to numReadList + 1 as number
end repeat
set theChl to "BEGIN:VEVENT%0ALOCATION:" & theLocation & "%0ADESCRIPTION:" & theDescription & "%0AURL:" & theURL & "%0ASUMMARY:" & theSummary & "%0ADTSTART:" & theDTSTART & "%0ADTEND:" & theDTEND & "%0AEND:VEVENT" as text
--BASE URL
set theApiUrl to "https://chart.googleapis.com/chart?" as text
set theCht to "qr" as text
set theChs to "540x540" as text
set theChoe to "UTF-8" as text
---L M Q R
set theChld to "L" as text
--URLを整形
set theOpenUrl to ("" & theApiUrl & "&cht=" & theCht & "&chs=" & theChs & "&choe=" & theChoe & "&chld=" & theChld & "&chl=" & theChl & "") as text
-----サファリで開く
tell application "Safari"
activate
make new document with properties {name:"QR-CODE by Google API"}
tell window 1
open location theOpenUrl
end tell
end tell
end open
--------------文字の置き換えサブルーチン
to doReplace(theText, theOrgStr, theNewStr)
set theOldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to theOrgStr
set theTmpList to every text item of theText
set AppleScript's text item delimiters to theNewStr
set theReplaceStr to theTmpList as text
set AppleScript's text item delimiters to theOldDelim
return theReplaceStr
end doReplace
---URLエンコードのサブルーチン
on encodeURL(str)
set scpt to ("python3 -c 'import urllib.parse;[print(urllib.parse.quote(\"" & str & "\", safe=\"/:;#!?=\"))]'") as text
return do shell script scpt
end encodeURL
| 固定リンク
DropBoxのM1対応版
DropBoxのM1対応版です
https://www.dropboxforum.com/t5/Dropbox-desktop-client-builds/Stable-Build-143-4-4161/td-p/580846
ようやくでました
| 固定リンク
[RSS]
