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

【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オブジェクト同士を引き算するとミリ秒で結果が出てくるので適当に計算する。

【映画感想】クローバーフィールド

 最近アマゾンプライムで映画を見ることが多くてTwitterに感想を書くことが多いけれど、ここにも少し書いていこうかと思う。

 

今回見たのはクローバーフィールド

たぶん誰かに勧められてメモ帳に残ってたから見てみた。

 

www.amazon.co.jp

 

主人公がビデオカメラで撮った映像を見るスタイルの映画。よくある個人撮影の映像同様すごく映像がブレるので見てて3D酔いしてしまって、途中から画面をすごく小さくして見てた・・・

見終わって、あーこれで終わりかーとなるぐらい設定が物足りない感じがした。

 

正直言ってそんなに面白くなかったの一言に尽きる。

(※意見には個人差があります)

 

*以下ネタバレを含む愚痴的ななにか

 

・臨場感が売りなんだろうけど、噛まれたら死ぬ設定とかがさらっと出てくるけどその後触れられることもなかったりでちょっとついていけない。

・冒頭の日常シーンはちょっと間延び感がある。

・結局みんな死ぬ

・たまに挟まる上書き前のテープの映像で日常と非日常のギャップ的なやつを演出したかったんだろうけど、ストーリー的にそんなに噛み合ってない気もした。

B級映画との境界線上な感じがする・

 

星5レビューもあったから感じ方はそれぞれだなぁと思った。

というか、自分のジャンルに合ってなかっただけなのかもしれない。

 

愚痴っぽくなってしまったけれど一応正直な感想ということで...

久々の更新

 存在は忘れてはいなかったけど、丸1年以上放置していたような気がします。

大学は卒業し、就職し、それも1年が経ちました。

 

 感染拡大やらなんやらで世の中は大変ですが、私の住む県は比較的感染者が少ないので、その点では良かったなーと思いつつ、なかなか趣味の旅行に行けず、どっか行きたいなーと思ってます。

 

 そんな中、いろんな積み残してたことを進めていく中でこのブログも消してしまおうかとも考えたけれでど、人間アウトプットがなくなると堕落していく一方な気がしてならないので、少しづつ更新していこうかなと思っています。

 

 最近はTwitterしてて気がついたら時間が過ぎてしまってることが多々あるので少しは生産的なことをやっていきたいなと思います。久々にものづくりも再開したい。

 

 就職して環境も変わりいろんなことをはじめました。最近は釣りをはじめました。あと、天気予報なんかにも興味を持っています。そんなことについても書いていけたらなぁと思っています。

 

 Twitterにもちょこちょこ書いてるけどアレはすぐ流れていってしまうし、検索ではヒットせずに消えていってしまうのはなんとなく悲しさはありますしね・・・

 

 とりあえず内容の無いような記事の量産だけはしないように頑張ろうと思います。

 

 3日坊主にならないようにがんばります。

windows上でUbuntuを使う(windows subsystem)

pythonで使いたいパッケージ(?)がwindowsで使えずにLinuxでしか使えなかったからwindowsSubsystemでやってみようと思ったのでメモ

 

1.デスクトップ右クリック→個人用設定→ホーム(左上)→更新とセキュリティ→開発者向け→開発者モード(少し時間がかかるかも)

2.コントロールパネル→プログラムと機能→windowsの機能の有効化または無効化(左上)→windows Subsystem for Linux

3.再起動

4.Microsoft Storeでubuntuと検索、入手

5.ubuntuを起動(スタートメニュー内等から)

6.Enter new UNIX username:とでるのでUser名を入れる

7.同様にパスワードも

8.コマンドプロンプトからbashと打つとubuntu環境が使用可能

 

コマンドプロンプトubuntuと打っても使えるけどこの場合windowのコマンドは使えないみたい