Folly のすべての投稿

携帯電話の機種変更を考える2015年12月

Galaxy Note3にしてから2年が経過。

機種変更するとしたら何かあるかな~と探したが、
NOTE3はだいぶ先進スペックであった様で、求めるスペックを探すとあまり選択肢がない。

とりあえず通信料金が高額なので、docomoは解約しようと思うのだけど、良さそうな機種はあまりないですな。

[table “5” not found /]

※kakaku.comさんでデータを集めさせていただきました。

AQUOS ZETA SH-01Hはおもしろそうだが、出たばかりで白ロムもかなり高額。
しばらくはNOTE3かなという結果。

NUC5I5RYHというベアボーン使用を考える

NUC5I5RYHというベアボーンを使ってファイルサーバーを構築したら小さくなって良いかな?という発想をした。

Mini PC Intel NUC Kit NUC5I5RYH (Next Unit of Computing) Core i5 2.5インチHDD or SSD & M.2 SSD対応モデル
Mini PC Intel NUC Kit NUC5I5RYH (Next Unit of Computing) Core i5 2.5インチHDD or SSD & M.2 SSD対応モデル

ベアボーン+SSD(内蔵してOS用)+メモリ+セルフパワーのUSB3.0接続HDDを2台用意したら今のサーバーと同じように使えるはず。

●良いところ
・消費電力がおそらく低くなる。
・設置面積は半分以下
・HDDの交換がより楽になる。

●短所
・実は1台のサーバー作るより高い。
・ケーブル接続が増えて美しくない。
・HDDアクセスの速度が落ちそう。(メンテナンス性悪い
・拡張性が乏しく、PT3などが付けられなくなる。
・電源が特殊なのはメリットでもあるが、間違いなくデメリットとなり得る。(代替が無い事多い

交換するほどのメリット無いという結論になりました。

CONTAGION

コンテイジョン鑑賞

現実味があって良かった。
ネットがあると自由に情報を発信できるけど、非常に無責任な世界でもあるからあのようなヒトも出るんだろうな。と多少納得しながらみていた。

本人も騙しているつもり無いだろうけど、だましでなくとも公共を相手にする事の難しさを改めて実感。
公務員の方、お疲れ様です。

コンテイジョン
コンテイジョン [DVD]

cwRsyncでexclude-fromを指定する

cwRsyncを使ってバックアップするスクリプトを書いてあるのだけど、

何度やっても除外したいフォルダや、対象フォルダの指定が認識されないなぁと悩んでいたのだけど、
簡単なことだった。

exclude-fromで指定するファイルの文字コードがshift-jisじゃ駄目なのです。
utf-8にしましょう。

解決。
後はnet上でよくある資料を見て順番を検証すればok!

バックアップには結局rsyncを使う。

松浦亜弥 ラグジュアリー・クリスマス・ナイト 2013 at COTTON CLUB

初めてBlu-rayソフトを購入した。

松浦亜弥 ラグジュアリー・クリスマス・ナイト 2013 at COTTON CLUB [Blu-ray]
松浦亜弥 ラグジュアリー・クリスマス・ナイト 2013 at COTTON CLUB [Blu-ray]

1920x1080 59.94i、リニアPCM/ステレオ(48kHz/24bit)
確かに映像も綺麗な方が良いかと思うが、音だけで考えればDVDに入る。

Blu-rayだとパソコンでしか直接再生できないので、個人的にもDVDでたるんだけどなぁという印象。

しかし、BABYMETALのライブBlu-rayも欲しいんだよな。。

チャプター情報
Subject:さようなら
ふたり大阪
MC1
Feel Your Groove
砂を噛むように・・・NAMIDA
真珠
Fallin’
部屋とYシャツと私
MC2
ひこうき雲
MC3
女 Day by Day
結婚しない二人
boom boom boom
MC4
想いあふれて
ダブル レインボウ
MC5
dearest.
ending
MC6
HAPPY TO GO!

エクセルで電子納品を楽にする

ソフトを使わずに電子納品のファイルを用意するのはなかなか手間がかかるので、
最終的なファイルを集める作業とかファイル名称を変えつつコピーする部分をエクセルで集計してやる方法を思いついた。

そのほかにも使えるケースがあるかもしれないので、
アップしてみる。

ファイル収集(電子納品などにどうぞ)
ちなみに、黄色い背景にしている範囲をダブルクリックすると、そのセル以下に選んだファイルパスが登録できます。

マクロ部分。(雑ですみません)

[code language=”vba”]
‘—————————————————————
‘2015/3/29
‘作成環境: Excel2010

‘known bugs: まだ解らない. 😉

‘—————————————————————

Private Sub StartFileCopy()
On Error GoTo ErrorHandler

Set fs = CreateObject(“Scripting.FileSystemObject”)
Dim gyo As Integer
Dim targetDir As String

If Range(“B” & CStr(7)).Value = “” Then
MsgBox “ファイル登録が一つも無い…”, , “ちょっとまって!”
Exit Sub
End If

targetDir = Range(“C3”).Value

Do
If Range(“B” & CStr(gyo + 7)).Value = “” Then Exit Do ‘指定ファイルが書いてないとき

‘登録したPATH
‘MsgBox Range(“B” & CStr(gyo + 7)).Value
‘フォルダー名取得
‘MsgBox fs.GetParentFolderName(Range(“B” & CStr(gyo + 7)).Value)
‘ファイル名取得
‘MsgBox fs.GetFileName(Range(“B” & CStr(gyo + 7)).Value)
‘拡張子取得
‘MsgBox fs.GetExtensionName(Range(“B” & CStr(gyo + 7)).Value)

If Range(“c” & CStr(gyo + 7)).Value = “” Then
‘リネーム名指定なしの場合はファイル名そのままでコピー
fs.CopyFile Range(“B” & CStr(gyo + 7)).Value, _
targetDir & “\” & fs.GetFileName(Range(“B” & CStr(gyo + 7)).Value), False
Else
‘リネーム名指の指定があれば、コピー
fs.CopyFile Range(“B” & CStr(gyo + 7)).Value, _
targetDir & “\” & Range(“c” & CStr(gyo + 7)).Value & “.” & fs.GetExtensionName(Range(“B” & CStr(gyo + 7)).Value), _
False
End If

gyo = gyo + 1

Loop Until gyo > 999 ‘1000超えたら

Set fs = Nothing

Exit Sub

ErrorHandler:
Close
MsgBox “エラーです”, 0, “困ったことに”
Set fs = Nothing
Exit Sub

End Sub

Private Sub Button1_Click()
Call StartFileCopy

End Sub

Private Sub SetFilePath(ByVal StartTarget As Range)
Set fs = CreateObject(“Scripting.FileSystemObject”)

flist = Application.GetOpenFilename( _
FileFilter:=”すべてのファイル,*.*, エクセルファイル,*.xlsx, ワードファイル,*.docx”, _
FilterIndex:=1, _
MultiSelect:=True _
)

If IsArray(flist) Then
For i = 1 To UBound(flist)
Range(“B” & CStr(StartTarget.Cells.Row + i – 1)).Value = flist(i)
Next
End If

Set fs = Nothing

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

‘ダブルクリックした位置よりファイルパスを登録処理
If Target.Cells.Column = 2 And Target.Cells.Row >= 7 Then
Cancel = True
Call SetFilePath(Target)
End If

End Sub

[/code]