パソコン・ガジェット・プログラミング・映像編集・フリーソフト・無線・電子工作・天気予報等・・・etc やりたいことやったこといろいろ書きます。

【語彙力0】シンウルトラマンを見た感想【ネタバレしかない】

昨日、新ウルトラマンを見てきました。
忘れないうちにファーストインプレッションを書いておきます。

ツイッターだとまだ見たくない人に届いてしまうから、そういう点ではブログっていいですね。

長文を書く能力が皆無なので箇条書きで。
ちなみに自分はこれまでウルトラマンシリーズを見たことがないです。

・冒頭のスピード感w
・冒頭、某お片付けかと思った。
・冒頭で舞台設定作り上げて行ってるの好き。
・電源切ったら変圧施設壊すの好き。
ウルトラマンの縦回転シュール。
・下からスペシウム光線の構えでヌッと出てくるの好き。
・好きな言葉です、苦手な言葉ですの使い分け良い。
・赤坂さん???
ゼットンの造形かっこいい。
ゼットンからの攻撃を縦回転で弾こうとしてるの好き。
・ベータシステムの論文、今後どれだけ引用されるんだろう・・・
・カウントダウン表示されるのシュールだけど好き。
・0.1秒でぶっ飛ばせばいいんだな?
庵野氏は監督ではなく脚本だったのね。勘違いしてた。

これを書くの、映画を見てから1日おいてしまったから、大分抜けてる気がする。
次回はIMAX版で見てきます。

ファイルが上書きできない

「フォルダーまたはファイルを閉じてから再実行してください。」

エクスプローラーのプレビュー表示はファイル開いてる判定になるらしい。
わけがわからない。

ちょっと待ったら保存できることがあるから、今までちょっと待ってたけど、待ってる間に別作業するからフォーカスが外れて更新できるようになってただけらしい。

今まで待ってた時間返して・・・

とにかく文章が書きたかっただけの日記

久々の更新です。

何も考えずに書き出したら、一発目が「お疲れさまです。〇〇(名前)です。」と書きそうになった。
普段の仕事でのメールでの書き出しですね。

夜勤前の早朝ですが、今日締切の書類の作成を自宅でやっています。
テレワークなんてなければこんなことできなかったのになと思う。

仕事は当番制な感じで、当番中は当番の仕事があるので、自分の仕事(担当になっている仕事)は基本残業となってしまうのが辛いですね。。。
当番も新たなポジションに割り振られて、なれない仕事で、当番終わる頃には疲れ果てて、、、という状況です。

何もわかってないのに、このポジションやってもいいのだろうかと思いつつ、やるしか無いんだよなぁという思いでやっております。
仕事に対する圧倒的理解不足と、知識の無さで周りにお世話になることが多いなと思いつつやっています。

自分のごく僅かにできるプログラムの能力も評価していただいているところで大変ありがたいです。
(とは言え、ちょっとした動的なwebページが作れるとか、VBScriptがかけるとかその程度ですが)
それが今の仕事に自分を引き止めてくれているものかなと思います。

それとちょっとした目標がモチベーションです。

あくまで、本業はプログラムを書くことではないので、たまに業務効率化のためのツールを作ったりする程度。

趣味でなにか書きたいなと思っても、なかなか余力が無いですね・・・

C#が好きでGUIアプリ書いたりしてた(とはいっても簡易的なもの)けど、職場ではなかなかC#を使わないから、
最近はめっきり書く機会も減ってます。

転勤する前はこんなに色々思うこともなかったのに、なんでだろうなと思ったけど、単に忙しくて余裕が無いだけなんだろうなと思う。
もう少し、余裕を持っていこう。

好きな登山にも行きたいな...もう1年近く行けてない。。。

ツイッターに書くよりは長く書きたかった深夜の独り言でした。

【VBS】時刻関係の処理

時刻関係の処理。だいたいこのぐらいあれば事足りそう。
ちなみにFormat文的なのはないみたいなので、自分で書くしかない。

'現在日付
MsgBox Date '2021/04/20
MsgBox Day(date) '20
MsgBox Month(date) '4
MsgBox Year(date) '2021

'現在時刻の取得
MsgBox Time '13:49:08
MsgBox Hour(time) '13
MsgBox Minute(time) '49
MsgBox Second(time) '8

'任意の日付を生成する 2020年3月15日9時15分35秒を
Dim d
Dim t
Dim dayTime
d = DateSerial(2020,3,15)
t = TimeSerial(15,15,35) 
dayTime = d + t
MsgBox dayTime '2020/03/15 15:15:35

'任意の時間から任意の時間を足し引きする
dayTime = DateAdd("h",-9,dayTime) '上で作った時間から9時間を引く
    '第一引数 何を引くか(主なもの)
    'yyyy : 年
    'm    : 月
    'd    : 日
    'ww   : 1週間     
    'h    : 時
    'n    : 分
    's    : 秒
MsgBox dayTime '2020/03/15 6:15:35

'時間差を求める
MsgBox DateDiff("h", Date, dayTime) '第2引数は上と同じ この場合時間で出てくる。
MsgBox date-dayTime 'この場合、差が日付で出てくるので処理を自分で書く事もできる

【VBS】テキストファイル出力関係

VBSでのテキストファイル出力

Dim fso
Dim fs
Dim path
Dim fileName

set fso = CreateObject("Scripting.FileSystemObject")

'ファイルを生成する
path = "C:\test"
fileName = "test.txt"
set fs = fso.OpenTextFile(path + "\" + fileName,2,true)
'set fs = fso.OpenTextFile(".\" + fileName,2,true) 'カレントディレクトリ
'第一引数 ファイルパス+ファイル名
'第二引数 1:ForReading 2:ForWriting 3:ForAppending 
'第三引数 ファイルがない場合に作成するかどうか。true/false

'書き込み関係
fs.WriteLine("hogehoge")    '一行追加
fs.Write("foo")             'ファイル末尾に追加
fs.Write(vbCrLf)
'vbBack : バックスペース
'vbCrLf : 改行コード
'vbTab  : タブ文字

'ファイルを閉じる
fs.Close

【随時更新】メモで書いた記事一覧

メモに書いた記事の一覧。ほぼ自分用。
ある程度わかってるけど、忘れてしまった人向け。

VBA

蛇足

本業としてプログラム書いてるわけでもなく、言語もあれこれ使ってると配列の使い方すら混同してしまう上に、毎回調べてると前置きの長いいかがでしたか系記事を堂々巡りすることになるので、何回か調べたことのあることは、暇なときにまとめていこうと思います。

【javascript】時刻操作関係

毎回調べるのが面倒なのでメモ

//引数無しで今日の日付の取得
let date = new Date();

//任意の日付をセットする。
let date = new Date(2020, 6, 7); // 2020-07-07 月は0~11
let date = new Date(2020, 6, 7, 15, 30); // 2020-07-07 15:30

//1日前の日付セットする
date.setDate(date.getDate()-1);//getDateではなくてgetMonth等で月指定できる。

//年・月・日・曜日・時・分・秒を数値で取得
let yy = date.getFullYear(); 
let mm = date.getMonth() + 1; //月は0~11で返ってくる
let dd = date.getDate();
let youbi = date.getDay();//日曜が0,土曜日が6配列等で対応。
let hours = date.getHours();//時
let min = date.getMinutes();//分
let sec = date.getSeconds(); //秒

//日付フォーマット関係(自作)
//もっといい方法あったら教えてほしい
let s = String(yy*10000 + mm*100 + dd); 
s = substring(1,8);//20200707
let ss = String(mm*100); //10未満のときに0をつける
let sss = ss.substring(2,3); //(if文書くよりはスマートな気がする)

時間差を求めるにはDateオブジェクト同士を引き算するとミリ秒で結果が出てくるので適当に計算する。