異言語だった

よくやる手順だ。

PDFから画像を切り出して、複数ファイル群にする。

例えば　

　　サンプルだぞ001ページ.jpg

　　サンプルだぞ002ページ.jpg

　　サンプルだぞ003ページ.jpg

といった画像ファイルが生成されるが、このファイル名はウザいので

      samaple001.jpg

      samaple002.jpg

      samaple003.jpg

にリネームしたい。

そうすると

ren "サンプルだぞ001ページ.jpg" " samaple001.jpg"
ren "サンプルだぞ002ページ.jpg" " samaple002.jpg"
ren "サンプルだぞ003ページ.jpg" " samaple003.jpg"
といった、BATファイル（例えばren.batとでも命名して）を書いて一気にリネームするわけです

が！、ren.batファイルコマンドが通りません。　あーもちろんファイル名は"　"で囲むのも忘れてません。実行してもリネームが成功しないのです。

で、CMDで試してみるんですが、視点をカレントフォルダに移すのが面倒くさいです。

ここは先日覚えた「powershell」を使う事にします。

使い方はエクスプローラーのＵＲＬを書く所に「powershell」と書いて[ENTER]キーです

便利らしいので、勉強してみて下さい。

で、先ほどのren.batを実行するのですが、

「そんなファイルは見つからねーよ」といって蹴られてました。

そこで合点がいきました。batファイルを作ったのは秀丸ですが、デフォルトで文字セットをUTF-8にするようにしてました。

パソコン（windows11）は文字セットがSHIT-JISなので、UTF-8で書かれた２バイト文字はSHIFT-JISは理解出来ないのです。「サンプルだぞ」の部分が文字化けして伝わってなかったのです。

原因が分かれば簡単です。

REN.BATをSHIF-JISに変換して出力すれば、解決です。

 

なんだ、出来たんだ。秀丸ソート

試験問題を作っていましたよ。
次の語群から記号で回答せよ、という語群、これね、問題を解く側からすると、語群の中から正解を見つけ出すだけでも一苦労なの。だから私はいつも、語群は５０音順にすることにしている。限られた時間内で語群から正答を見つけ出すってこれは試験の内容に関わらない労力ですからね。

と言う訳で、語群を作りました。それを五〇音で並び替えるのですが、今までは秀丸テキストエディターに一語一行に記述して、コピー、それをエクセルに貼り付けて、エクセルで並び替え処理をして、秀丸に戻し、改行を「・」などに置換して５０音順の語群を得ていました。

毎回めんどくさい事だと思ってましたが、今日思いついて「そういうマクロを組んでる人はいないのかなー？」とネットで検索した所、なんと、

https://hide.maruo.co.jp/lib/hmconv/sort101.html

秀丸の標準機能で範囲内ソートが出来たんだね。

これはまぁJISコード順だから漢字は並び順がひらがなカタカナより後になってしまうけど、それでも大分楽です。

痒い所に手が届くって良い事だね！　作者様に感謝。

エクセル、シ－ト名から文字列を取得する

=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,1)+1&"月20日 提出"

月次報告のシートの表題を、「先月」＋”２０日提出”　と言う形で出力してました。

備忘までにここに書いておこう。

atpl30 音が小さい

私は学生の頃、レコードを何枚も持ってましたよ。

レンタルレコード屋に行って好きな歌手のレコードを借りてカセットにダビングしたりもしてましたよ。でCD、MD、MP3と時代は移って来ましたが、なけなしの金を叩いて買ったレコードは捨てられずに手元に残ってましたよ。

で、いつかこれを再生してみようと、レコードプレーヤーを買いましたよ。

これです↓

オーディオテクニカ フルオート レコードプレーヤー AT-LP60X 33/45回転対応 ベルトドライブ 【国内正規品】ダークガンメタリック AT-LP60X DGM

今送り状を見ると２００５年５月に買ったみたい。確か値段は６８００円ぐらいだったと思う。

ところがこれ、何に繋いでも音が小さかった。初期不良かと、捨て置いてたのですが、今日、風呂を洗いながら、口ずさんでたアルフィーの曲をどうしても聴きたくなり、

このプレーヤーとＬＰを押し入れから引きずり出し、アンプとスピーカーを接続して

掛けてみました。。。。。。。

でも全然音がしないのです。相変わらず。もう２０年も前のプレーヤーだし役に立たぬのなら捨ててしまうか！　と思ったのですが

万民がインターネット使う時代となりました。

初期不良なら何かクレームがネットに上がってるはず

調べてみたら！！！！！！

どこかに切り替えスイッチがあって、それをONにすると音が鳴る、という報告がありました。

調べましたよ、外見上、どこにもそんな切り替えスイッチなんかない！

取説を見ましたよ、ココにある、という図の現場にはそんなスイッチはありませんでしたよ！

なんじゃこれは！？

と思ってしばし考えた、もしかしてこのターンテーブルの下か！

めくってみたら、ありました、

この分かりづらい取説と、一般人が使わないであろう初期設定の為に、このプレーヤーはきっと各地でぶん投げられていたことでしょう。

私ですら２１年間、放置して、いまやっとまともに使えたのです。

オーディオテクニカさんは顕在化してないけど、評判を落としたに違いありません。

ターンテーブルのラバーをめくった

こ、こんなところに！　分かるわけがないっ！

秀丸マクロ、整形テキストで特定文字数後に機械的に入ってる改行を除去したい

昔のテキストデータを扱った。

それはハードウェアのワープロマシンで入力された物らしい、

テキストデータにコンバートされてただけでもありがたいと思え

と言わんばかりに、特定文字数でバッサリ改行が入っていた。

こんな感じだ、

この行末の改行を除去したい。手作業じゃなく、マクロでだ。

どうしたものかなぁと考えたが、

１４文字目が改行であるから、

キーボードマクロで行頭から２４文字目までカーソル移動し、行末の改行をコピー

という動作を記録し、

クリップボードに格納された文字が改行であれば削除、そうでなければマクロ終了

それをgoto文で繰り返してやれば・・・

と言う風にマクロを組めば良いかな、と思ったが、

どうもうまく行かない。

CHATGPT君にも聞いてみたが何か秀丸マクロのお作法とは違う関数なんかをぶっこんでくるのでまともに動かない。

めんどくさ！　手動でやるしか無いのか？

と諦め掛けてた所、アイデアが浮かんだ。

これは１４文字目の改行を除去したいのだろ？

更に言うと、改行＋任意の文字１４字＋改行　の最後の改行を除去したいのだろう？

だったら、単に検索で

\n.............................\n

を見つけたら、該当文字列の最後にカーソルがあるので、deleteを実行する

という風マクロを書いたらうまく行った。

※範囲指定してその中の改行を全部除去すればイイじゃん、という荒技は、繊細さに欠ける。段落毎に整形されている所もあるからだ　σ(^,^)

書いてなかった。Windows 11の右クリックメニューを以前の仕様に戻す方法

２０２５１０１４、windows10のサポートが終了する、というアナウンスを聞き流していたが、

使ってるＰＣの動作がどうにも遅いので、いっそ新しいＰＣに買い換えて、windows11にしたらいいんじゃナイカと思い立ち、

予算とニラメッコして、、、、、

「うん、新品は買えないな」

しかし折良くamaoznで何たらセールをやっていて、9世代のメモリ32GBでマシマシの、私的には未知の記録装置・SSD１Ｔ搭載の整備済み中古品が４万円台で売られていたので、それを買いました。（いつも思うが、私って文章長いな。ここまで「。」がない。）

で、仕事の合間に新・中古PCをセットアップするのですが、
こまごました所がとてもストレス！
なんでＷｉｎ１１のエクスプローラーの右クリックメニューは全部見せないのだ？１挙動でプロパティを見せろってんだ。

でこれは別のＰＣで既に直した事があるから、きっとその時の私はこのブログに顛末を書いて居たであろう、と過去に遡り検索してみたが、、ない。

仕方が無いから後日の為に、それを記しておこう。

Windows 11の右クリックメニューを以前の仕様に戻す方法を紹介 | Windows マイグレーション相談センター

要するに

①Shiftキーを押しながら右クリック 　することでWin10までのように、全メニューが表示される（面倒くさい！）
 

②ターミナルから設定を変える

reg.exe add "HKCU\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32" /f /ve 

③レジストリーエディタで弄る

ああ、説明が複雑で要約しがたいな。

買って損した。「もうじきたべられるぼく」

もうじきたべられるぼく｜特設ページ｜中央公論新社

ＮＨＫで凄い感動した、という評判だったので、すぐさまポチっとａｍａｚｏｎで買ったのが「もうじきたべられるぼく」という絵本だ。

届いて一読、「はん？感動？どこが？　どの辺が?　？？？？？」

一体、どういう成り行きで評判になったのか知らないが、

私は読む価値がなかったと思う。

次からはすぐに飛びつかず、公営図書館で借りて買うかどうか判断しよう。

何が気に入らないかって、死ぬことの意義が少しも描かれてない。人に食われるのが当然という無条件の前提が、全く救いがない。

こんなので命の大切さが伝わる？　つたわらんだろ？

親ガチャだの負け組だの何だのと言って人生をあきらめて居る近頃の無気力な人々を連想したよ。

仏教説話ではね、死ぬにしても死に甲斐ってものが説かれている。

そこには死ぬゆく者に救いがある。高貴な死だったり、意義のある死が説かれている。

そもそも過去現在未来と三世を説く仏教において死は当たり前のことで、来世へのステップに過ぎない。

例えば、人頭鹿という話がある。

人頭鹿と鹿頭人　｜　大智度論の物語｜KUIKUI

※たんなるコピペでない証拠に原典を掲げておこう

T25n1509_p0178b10?F9F8
大正蔵２５巻（文献№1509）１７８頁の中段より

波羅柰國梵摩達王。遊獵於野林
中見二鹿群。群各有主。一主有五百群鹿。
一主身七寶色。是釋迦牟尼菩薩。一主是提
婆達多。菩薩鹿王見人王大衆殺其部黨。
起大悲心逕到王前。王人競射飛矢如雨。

（後略）

懐妊した雌鹿の代わりに生け贄になりにいった鹿王、殺されてないけど。
身を捨ててこそ浮かぶ瀬もあれ　という死を覚悟したら結果的に生き延びようが死のうが関係ないのだ。要は如何にそこに注力するかが重要な視点なのだ。

「死ぬ気でやれ」「死んでもやれ」という言葉は何も近代の産物ではない。もしかしたら日本の精神に根ざす概念なのかもしれない。
 

以前ここでも書いただろうか、
僅かな価値の銭を探す為に、それ以上の価値を持つ松明を点けて探した武士の話を。
あった、これだ「青砥左衛門尉藤綱」⇒

『面白いね。』

合理的に考えて無駄、とかいう概念はないのです。

絵本ならこちらの方が余程買って良かったよ。「

おこだでませんように (児童創作絵本)

」⇒
https://ameblo.jp/lm064574/entry-11943689177.html

検索しても見つからないので、ここでは書いてないのだろう、以前子供の社会科見学で牧場へ行った。
牛舎につながれた牛たち、狭い柵のわら束に寝る仔牛、何気なく牧場の人に「この仔牛はなんて名前ですか？」と尋ねると
「私たちにすると、この牛たちは産業動物といって自動車の部品のようなものです。そのようなものに一々名前を付けて情を掛けてたらやってられません」とのこと。
産業動物という言葉にショックを受けましたが、しかし全ては因果律。そうなるべく過去の業因を積んできた結果であり、また彼らを軽んずるならば、来世は我々も使役動物に生まれ変わるかも知れません。だから物言わぬ牛にも、今生の牛としての徳を高く積み、来世は共々に人間に生まれてこようなと思うことがゆかしいことと思います

テキストファイルをhtml化する

ちゃちゃっと今書いているテキストをHTML化する秀丸マクロを作ってみた。

－－－－－－－－－－－－－－－－－○－－－－－－－－－－－－－－－－－

    setcompatiblemode 0x10F;
    gofiletop;
    insert "<!DOCTYPE html><html><body leftmargin=\"50\" style=\"line-height:150%\">";
    insertreturn;
    insert "<h1>";
    golineend;
    insert "</h1>";
    beginsel;
    gofileend;
    begingroupundo;
    replaceall "\\n" , "<br>\\n" , regular, inselect, nohilight;
    if( ! result )  beep;
    endgroupundo 1;
    gofileend;
    insert "<html><body>■</body></html>";
    searchup "■" , regular, hilight;
    if( ! result )  beep;
    insert "<hr><a href=\"./\">HOME</a><br>";
    delete;
    searchup "<html><body>" , regular, hilight;
    if( ! result )  beep;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    delete;
    golineend;
    insertreturn;
    gofiletop;
    searchdown "><" , regular, hilight;
    if( ! result )  beep;
    right;
    insert "<head><title></title><link rel=\"stylesheet\" type=\"text/css\" href=\"□□□□\"><meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"></head>";
    gofiletop;
    searchdown "itle>" , regular, nocasesense, hilight;
    if( ! result )  beep;
    right 5;
    insert "■■■■";
    searchdown "body" , regular, nocasesense, hilight;
    if( ! result )  beep;
    left;
    insertreturn;
//UTF8で保存処理開始
if ($fname == "") {
    message "ファイル名がありません。先に一度保存してください。";
} else {
    // UTF-8 (BOMなし) で保存
    saveas $fname, utf8;
}
message "□□□□部分cssファイルの指定やタイトルは自分でやって下さい！"
－－－－－－－－－－－－－－－－－○－－－－－－－－－－－－－－－－－

キーボードマクロ機能で作っているので一部に無駄な動作が入ってますが、
大量に作動させるのでなければ然したる問題ではないでしょう

このutf8形式で保存というのが、忘れがちで

FTPソフトでネットのサーバーに上げる時、文字化けするんですよ。

で、ネットにUPした文字化けしてるファイルを、知らないでdownloadすると、

文字化けしたまま、ローカルに保存される。そうするとファイルがめちゃくちゃになる。

ファイル名とか文字化けすると、ネットサーバー上から消すことも出来なくなる。

ホントこれ、困る。(T_T;)

アポカリプスホテル 良かった

Amazon.co.jp: アポカリプスホテルを観る | Prime Video

なんだろう。この複雑な感じは。

燃え尽き症候群的なものかな。

何と言っても主題歌とその映像が良かった。

そうじゃなきゃ恐らく１話で見送っていた。

ＣＧじゃない、手書きのアニメでしょ？
ちょっとフレーム数が足りなくてカクカクしてたけど、

良かったです。aikoのＰＶで音源を得ようと思いましたが、

やはりこの作品のオープニング映像付き、である事の方が意味があると思いました。

原作がない書き下ろしだそうだ。

作成側は視聴者に何を訴えたかったのかな、

人間の時間が一瞬に思えるという世界観は、最近の流行だろうか？

DBPro 年度末現在の年齢

人物評を管理するデータがあります。

そこでは今まで単に

#年令([生年月日])

で年齢表記を済ませていたのだが、これはその印字した日現在の年齢を出力するのみで、よろしくないなーと思っていた。

今日は、忙しかったんだけど、気になってしまって、直しました。

それがこれ！

↓　↓　↓　↓　↓　↓　↓　↓　

#年齢([生年月日],#if(#月(#日付('.'))>3,#date(#str(#年(#日付('.'))+1)+'.03.31'),#date(#str(#年(#日付('.')))+'.03.31'))) 

説明しよう

#年齢([生年月日],　　　　　　　←生年月日項目の年月日データで年齢を割り出します。引数が無ければ今日現在の年齢

　　　　　#if(#月(#日付('.'))>3,

　　　　　↑でもそれじゃ良くないので今日を表す「#日付（'.'）」から月の値を抽出し３と大きいかどうか判断します

　　　　　　　　　#date(#str(#年(#日付('.'))+1)+'.03.31'),

　　　　　　　　　　↑ｉｆ式を使って月が３より大きかったら、今日の年の値に１を加えたのと、文字列「3.31」を継ぎ足して来年の3月31日の値を生成する、そしてそれを#年齢の引数にする。

　　　　　　　　　#date(#str(#年(#日付('.')))+'.03.31'))

　　　　　　　　　　↑もし３より小さかったら、今年の3.31を#年齢の引数にする。

)

そうすると３月以前ならその年の３月３１日現在の年齢を、４月以降なら翌年の3月31日現在の年齢を出力します。

これ会計データでも結構つかうんだよね。

あさて、本日よりwindows１０はアップグレード対象外になります。

私のＰＣも第６世代の古い奴ですからwindows11は走りません。

さりとて、この古っ～いデータベースソフトたるＤＢＰroもwindows11で走るのかどうか、

結構心配です。

知人のところでは走ったという噂も聞きますが、どういうわけかレノボマシンでは走らなかったり、

ハードウェア構成によるのかもしれません。