さて、正月早々いきなりステーキに行ってきた。
いきなり贅沢だが、まぁ自分を発奮させるためには、これぐらい必要かな。
ヘレステーキ200g。ちょっと足りないかなとも思ったが、あとのことも考えて一応セーブ。
今日の第一目標は、「STARWARS」を観ること。
１日なので、映画が1100円で観られる。ということで、映画館でネットで買ったチケットを取って、ジュースを買ってシアターへ入る。
映画の宣伝が15分あって長いのに正月早々ちょっとイラッとしつつ、さっそくエピソード7スタート。
ネタバレになるので内容は書けないけれど、もうなんといっても、
「映画を観た！！」
って感じにさせてくれた映画だった。映像も音楽も圧倒的。それに昔から見ている人たちを裏切らない感じ。
いやぁ、映画ってやっぱりいいですね、って久しぶりに思った。
2016年のカレンダーが欲しい・・・
2015年のカレンダーは実はExcelマクロでひょいっと作ったのだけど、そのマクロはHDDが潰れたのと同時に消えてしまった。
もう、マクロを作る気力が今はない・・・
と思ってたら、ちょうどいいサイトがあるではないか！
助かります、マジ。
さて、何年かに1度の在庫処分日。
1年使っていないNINTENDO DSのソフトを売り、使わなくなったPCを売り、そして、今後使いそうもないスマートデバイスを売りに行った。
まぁ、ほとんど値のつかないようなものばかりだったが、
iPod touch 5th グレー32GB は13,500円になった。
その他、チョコチョコと稼いで、結果は2万円強になった。
よかった、よかった。
で、次は在庫を増やす？番だ。
とりあえずは阪神百貨店に行ってみる。
今日は何のイベントをやっているのかと8階に上ったらワインだった。
ちょこちょこっと試飲したが、ワインを買う人たちの凄さに驚きつつ、この渋みを味わえない自分に改めてガックシ。
自分にはまだ早いなぁ・・・、というより一生わからんな。
「そうだ、私は日本人なのだ」と、茶筒を見に行く。
今年の春に角館でいろいろ見たのだが、どうもいまいちだったのだが、今回はそんなことは言っていられない。
最近粉茶を買ってしまい、粉茶をいれておくところが必要になったのだ。
で、結局角館で作られた桜皮の茶筒(8000円ぐらい)を買った。
なかなかいい買い物だ。
匙のいいのがなかったのだが、LUCUAのルピシアにちょうど桜皮の茶匙があったので購入。
聞くと11/3まで紅茶の日のフェアで、お茶は10%OFFとのこと。
ついでに、何パックか紅茶を買って帰るとする。
と、無印良品があるので、追加で欲しかったコロコロを買い、阪神百貨店の地下でから揚げを買い、あれこれ買って帰ってきた。
今年やるのは、あとは本と服と家電かな、と洗濯機を回す。
服の整理は早くやりたいな。
念のためにメモ。
Microsoft Internet Explorer 8 をインストールする方法
Windows XP
http://download.microsoft.com/download/0/5/7/05716044-2806-40DA-8332-D3ED79BC8F68/IE8-WindowsXP-x86-JPN.exe
Windows Vista
http://download.microsoft.com/download/A/1/B/A1B7D65F-9473-4EB6-A845-68FC5CE4ADDA/IE8-WindowsVista-x86-JPN.exe
Windows Vista (64 bit 版)
http://download.microsoft.com/download/2/2/F/22F4B780-44AF-4265-A3AD-F77865BDD40B/IE8-WindowsVista-x64-JPN.exe
ん～、いつもあんまり人がいないところに、ウジャウジャ人がいるって思ったらカミノモトの即売会だった。
ネットでチェックしたら午後の部は貸切だった模様。
ということで、宝塚版ガイズ＆ドールズ（再々演）である。
実は、前トップ・2番手がいまいち好きになれず、星組敬遠中であったのだが、演目と新トップに惹かれてチケットをとってしまった。
柚希さんは、本当にすごい人であるのは間違いないとは思うのだが、あの声と、ちょっとクドい踊りにどうも見に行く気になれなかったのだ。2番手もアレだし。
で、アレな2番手さんは、2番手さんのままで、それはそれで微妙というか、もうこの人がトップになっちゃうんだろうなぁ・・・と思ってたから、ファンのことを考えるとやっぱりちょっとね、とは思う。6年待ってこれかい！みたいなのは否めないな。
まぁとりあえず、それなりに実力のある人を上に持ってきて、甘ったれてた根性をたたきのめすのにはいい猶予期間ではないの？っておまえ何様！なことを書きつつ、うまくなって欲しいと願うばかりなのである。
今トップの早霧さんや朝夏さんも下手だけど、2番手になってからはマシになったのだから、6年も2番手やって今のままでは・・・。
（いや、期待してるんだ。舞台を盛り上げてくれる人なので。ただ、品がないというか、勢い任せみたいな・・・あぁ、なんか長所がまったく出てこない。）
さて、公演の話に入ろう。トップお披露目ということもあってか、B席まで完全に埋まってた。
自分はいつも土曜に観劇するんだけれど、B席はパラパラとしか人がいなくて、こんな光景は初めて見たので少々ビックリした。
私といえばS席とは名ばかりの2階席だが、とりあえず1列目なので何とか救われた。銀橋もちゃんと見れるぞ。
星組というと、自分の中では歌が下手な人が多いイメージだったのだが、全然そんなことはなかった。
アンサンブルとか非常にきれいだったし、歌が下手なイメージの人もそれなりに歌えていたのでホッとしたところだ。
トリオの真ん中のデブった人は歌がうまかったな。名前をちゃんと覚えてないが、こういう人が脇でしっかり舞台を支えてくれてるとホッとする。
トップコンビも安定感があってよかった。
北翔さんはいつも帽子のかぶり方とかっこつけ方が一緒なので、パターンを増やして場面ごとに変えた方がいいと思う。いつも同じで正直飽きる。（あんだけアドリブできるのになぁ・・・）
相手役の妃海さんのしっかりした感がよかったな。酔っ払ったところでもうちょっと色気が出るとよいなぁ・・・
んで、礼真琴。かわいかったな。霧矢大夢のアデレイドが爆弾的だったので、見応え感は控えめなんだけど、カワイイ感は断然高い。
（でも、どうして男役にやらせるのかね。なんのための娘役なのかな。）
そういや、クシャミするの場面で、客席でクシャミした人がいて、「なんて絶妙なタイミングで！」と客席で話題になってた。
芝居にかぶってなくて、確かにグッドタイミングだったよ。
紅さんは相変わらずだけど、まぁ何とかなってたよ。でももっと存在感があっていい役だとは思うんで、頑張ってくれ。
あとはそうだなぁ、壱城さんもよかったな。ビッグ・ジュールのあやし方がよかった。
これも余談だが、十輝・壱城・七海のお３方は、サンセット大通り見に行ったときに客席に居てはった。
チケットとってからだいぶん経ってからの公演だったので、そんなんあるんか！って思ったのだが、公演後に安蘭・夢咲トークショーがある日で、小林前？理事長も来てて、まぁヅカ度高い公演だった。（もちろん、安蘭さんが出てて面白くないわけはないトークショーだった。）
ということで、思いのほかよかったので、次回の公演を期待したい。
１本ものでなく、ショー付きのやつね。ってまたチケット取るの大変なんだろうな。ライトな観劇者って、友の会とか入ってるわけでもないので取りにくいんだよね。かといって、会に入るほど観にも行かないわけだし。
主キーの設定と解除のSQL。
ALTER TABLE {TABLE} ADD CONSTRAINT {KEY} PRIMARY KEY ({COLUMNS});
ALTER TABLE {TABLE} DROP CONSTRAINT {KEY};
{TABLE}：テーブル名
{KEY}：主キー名
{COLUMNS}：列名(複数の場合はカンマで区切って指定）
これは一般的な１か月後
SELECT current_timestamp + interval '1months'
動的に算出する場合の例
SELECT current_timestamp + CAST(a.add_months || 'months' AS interval) FROM table_a as a
CASTを簡単に書くと
SELECT current_timestamp + (a.add_months || 'months')::interval FROM table_a as a
という感じ。
会社で3Dプリンター(約10万)を買った。
で、3Dプリンターの試し打ちの最中なのだが、結構やれることが限られているように思われる。
（安もんだからかな）
まず、設定値の調整が半端なく大変。（安もんだからかな）
１色使いだから、結局塗装ツールがいる。
んで、造形物をきれいにするためのやすりも必要。
ってなことで、いろいろ苦労は絶えないのだが、まずはデータを作らねば。
ってことでAutodeskのお世話になる。
http://www.123dapp.com/
Autodeskの製品を使うのは、たしかコンピュータ学校でCADの授業で使って以来ぐらいなので、かれころ10年、15年ぶりか。
しかし、無料アプリがいっぱいあって、うれしい限り。
はじめは、「Tinkercad」っていうWebブラウザ上で動くアプリを使っていたのだけれど、図形の組み合わせでしか作れないようなので、「Autodesk 123D Design」というアプリを使って、ちょこまか作ってみる。
大変だけど、意外に楽しい。
もう、進捗しづらくなったオンラインゲームなんかそっちのけで、やっていたのだが、
ふとした拍子にアプリが強制終了、とか、
保存してもMyProjectsに保存されていません。とか、
まぁ、いろいろあった。
で、何か欲しいカバーとかないかなぁ・・・と考えてたら、あったよ！
MP3プレイヤーのカバー。
早速、3Dデータをエンヤコラ、どっこいせ！と作ってみたので、プリンターで早く出してみたいところ。
dqyファイルは便利だ。
わざわざ、PhpAdminやらManagerやら開けずにSQL文を実行して、データが確認できる。
自分がよく使うPostgreSQLとSQLServerのクエリファイルの書き方メモ。
PostgreSQL
XLODBC
1
Driver=PostgreSQL Unicode;Server={IPアドレス等};Port={PortNo};Database={DB名};Uid={UserID};Pwd={Password};
SELECT TOP 100 * FROM batch_log ORDER BY create_date desc
SQLServer
XLODBC
1
Driver=SQL Server;Server={IPアドレス等};Uid={UserID};Pwd={Password};Database={DB名};Connect Timeout=15;
SELECT * FROM batch_log ORDER BY create_date desc LIMIT 1;
SELECT文は改行すると動作しないときがあるので注意
さてさて、redmineの勉強でもしてみるか・・・と思ったら、Ruby On Railsが必要とのこと。
早速入れてみる。
作業手順を簡単に説明してくれるサイトが見つからず、途中嫌になったが、探し方がまずかっただけだった。
手順は、
1) RubyInstallerでRubyをインストール
2) DevKitsを入れる
DevKitのinitとinstallでbundlerが入る
3) gemでrailsをインストール
なんだ、簡単だったんだ。
1)では環境変数PATHにインストール先のbinが設定されること
2)は、コマンドプロンプトで、DevKitsファイルの展開先に「cd /d」して、
「ruby dk.rb init」
「ruby dk.rb install」
インストールしてbundlerが入ったら、
3)そのままコマンドプロンプトで、「gem install rails –no-ri –no-rdoc」を実行
とりあえず今日はここまで。
去年は6月中に、ごめんなさい！みたいな感じでクーラーの電源をつけたのだが、今年は、雨が多くて、7/11に。
暑いのはいいんだが、湿度が70%では、ちと寝苦しい。
で、心臓もバクバクとまではいかないけれど、心拍上がりすぎ状態で寝れん！ってなことで、つけることにした。
一応、ジェット噴射の洗浄をして電源ONして、ドライで稼働したんだが、湿度かわらんやん・・・
で、クーラーつけっぱなしで寝たら、ちょっと寒かった。
まだつけっぱなしには早い時期なのか。
カンマ区切りのデータを縦に並べるプロシージャを作ってみた。
CREATE PROCEDURE csvToRows
@csv VARCHAR(MAX)
AS
BEGIN
DECLARE @exit_flg TINYINT = 0
DECLARE @i INT = 1
DECLARE @imax INT
DECLARE @buf VARCHAR(MAX)
BEGIN TRY
-- はじめにNULLや空白を回避
IF RTRIM(LTRIM(ISNULL(@csv,'')))=''
BEGIN
RAISERROR (N'NULLはダメ！', 18, 1)
END
CREATE TABLE #w_temp (
buf VARCHAR(MAX)
)
SET @buf = @csv
WHILE @exit_flg = 0
BEGIN
SET @buf = SUBSTRING(@buf, @i , LEN(@buf))
SET @imax = CHARINDEX(',', @buf)
IF @imax = 0
BEGIN
INSERT INTO #w_temp
SELECT SUBSTRING(@buf, 1, LEN(@buf))
SET @exit_flg = 1
END
ELSE
BEGIN
INSERT INTO #w_temp
SELECT SUBSTRING(@buf, 1, @imax - 1)
SET @i = @imax + 1
END
END
SELECT 'OK' AS result, NULL AS err_msg, buf FROM #w_temp
END TRY
BEGIN CATCH
SELECT 'NG' AS result, ERROR_MESSAGE() AS err_msg
END CATCH
END
日付と時刻両方設定できるJavaScriptのカレンダーを探していたところ
なるものを発見。jQueryのPlug-inとのこと。
早速ダウンロードして、サンプルを参考に設定していく。
いとも簡単に、日付と時刻が設定できた。分間隔もOptionで設定できる。
で、これって日付設定もできるんだよねぇ・・・（要は時刻設定は要らない！の場合）
って「timpicker：false」にするとできたことはできたんだけど、日付をクリックしてもカレンダーが消えてくれないのね。
困ったわぁ～と昼下がりに物思いにふける主婦の体(テイ)で、細かく説明を読んでみる。
すると、日付を選択したときのイベントみたいなものがあるではないか！
よし！
「onSelectDate」で、カレンダーを閉じる処理を追加しちゃえ！
ということで、以下のような設定で、うまいこと日付選択時もカレンダーが消えてくれましたとさ。
// HTML側は <input type="textbox" id="kaishibi" value />
$('#kaishibi').datetimepicker({
dayOfWeekStart : 0 ,
lang:'ja' ,
value:'' ,
format:'Y/m/d',
formatDate:'Y/m/d',
timepicker: false ,
onSelectDate:function(ct,$i){
$('#kaishibi').datetimepicker('hide')
},
});
「SQLSeverの2014ぐらいでないとTHROWが使えない」ってことで、RAISERRORでエラーを発生させてCATCH句に強制的に移動するように。
したはずなんだけど、いかないのは何故？
って、原因は重要度に設定する値にあった。
重要度＝1～10の場合、CATCH句へ飛ばない。
RAISERROR (N'エラーメッセージ', 10, 1);
重要度＝11～18の場合、CATCH句へ飛び、18までなら普通のユーザでも指定できる。
RAISERROR (N'エラーメッセージ', 18, 1);
重要度＝19～の場合、sysadminとか権限のあるユーザでないと、そもそも設定できない。
RAISERROR (N'エラーメッセージ', 19, 1);
ということで、11～18の値を設定することで、無事CATCH句に飛びましたとさ！
実行exe自身のパス
System.Reflection.Assembly.GetExecutingAssembly().Location
実行exe自身のあるフォルダパス
System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location);
過去バージョンのダウンロードURLをメモしておく.
CreativeSuite4ダウンロード
CreativeSuite5ダウンロード
CreativeSuite5.5ダウンロード
CS3もCS6も今のところリンクがあるのでDownload可能。
2019.9.5追記
もうダウンロードできなくなっている・・・
DVD探そ。
フォーム上で何のボタンを押されたのかを呼出元に返したいときとか、Public変数を利用していたのだが、面白いやり方というのをインターネットで見つけた。
FormのTagプロパティを使うのだが、「なるほど、これは便利！」と思えたので、メモしておく。
'呼出元プロシージャ（または関数）の記載例
Load HogeForm
HogeForm.Show
If HogeForm.Tag = "1" Then
'(終了ボタン押下時の処理を記載）
Else
'(中止ボタン押下時の処理を記載）
End If
Unload HogeForm
'呼出先(HogeForm)の記載例
'終了ボタン押下
Private Sub ExitButton_Click()
HogeForm.Tag = "1"
HogeForm.Hide
End Sub
'中止ボタン押下
Private Sub CancelButton_Click()
HogeForm.Tag = "0"
HogeForm.Hide
End Sub
使うときは、念のためフォームのInitializeプロシージャでTagプロパティを空欄にしておくといいと思った。
実はFTPサーバが変わってからFFFTPで接続できてなかったのだが、やっとこさ理由がわかった。
前はパッシブモードをONにしなければならなかったのだが、今はOFFにしなければならなくなった。
で、無事にアクセスできた・・・
って、何ヶ月かっかっとんねん！
（Web版の簡易FTPでやれてたんだから、まぁよいんだけど）
セルにコメント（ふきだし）をつけるやり方。
Dim rng As Range
Dim msg As String
Dim clear_flg As Boolean
'選択中のセルにコメントを追加していく
Set rng = ActiveCell
msg = "あいうえお"
clear_flg = False 'コメントを刷新するときはTrueに変える
On Error Resume Next
If Not rng.Comment Is Nothing Then
If clear_flg Then
rng.Comment.Text msg '刷新
Else
rng.Comment.Text rng.Comment.Text() & vbNewLine
& msg '追記
End If
Exit Sub
End If
'新しいコメントを追加する
With rng.AddComment(msg)
.Shape.TextFrame.Characters.Font.ColorIndex = 2 'フォントは白
.Shape.TextFrame.Characters.Font.Size = 9
.Shape.TextFrame.AutoSize = True
.Shape.Fill.ForeColor.RGB = RGB(0, 0, 0) '背景は黒
.Visible = True
End With
clear_flg＝Trueならば、コメントは置き換わるが、Falseならば改行して追記していく。
なので、コメントは自動サイズ設定（AutoSize＝True）にしておく。