管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

2017-01-01から1年間の記事一覧

モジュールのサーチパス(@INC配列)を一覧表示するワンライナー(Perl)

久しぶりにPerlを触ったら忘れてしまっていたので、備忘として。 実行結果はRaspberryPi3のものです。 .pi@raspberrypi:~ $ perl -e 'print join("\n",@INC)' | sort | uniq . /etc/perl /usr/lib/arm-linux-gnueabihf/perl/5.20 /usr/lib/arm-linux-gnueabi…

It's a SONY展へ行ってきました(2回目)

2回目のIt's a SONY展に行ってきました。1回目の様子はコチラ↓ 以前の製品展示から随分テイストが変わりましたね 本日のお供はGM1S+12-32mmです。

今日はカメラ発明記念日だそうです。

掲題の通り、今日はカメラ発明記念日だそうです↓ 3月19日 今日は何の日〜毎日が記念日〜知ってか知らずか、写真を撮っておりました。 今日のお供はGM1+14mmで。やっぱり28mmは使い慣れた画角です。国際フォーラムでは、「ART FAIR TOKYO」を本日までやってい…

浜離宮恩賜庭園へ行ってきました2017(約1年ぶり)

約1年ぶりに浜離宮恩賜庭園へ行ってきました。約1年前の日記はコチラ↓ 本日のお供は、GM1+SIGMA30mmです。「少しだけ離れて見る」的な画角ですよね。よく使う焦点距離より少し長くて、少し戸惑いました...

指定したフォルダ以下のファイルリストを作る(Cmd)

指定したフォルダ以下のファイルリストを作る(Powershell)のコマンドプロンプト版です。 Dirコマンドのが覚えやすそうですね。 dir /B /ON /S C:\WINDOWS\Fontsちなみに、同じ結果をPowershellで得る場合

Exif内の撮影日時の話

昨日の宿題の話↓ ファイル変更日時 原画像データ生成日時 デジタルデータ生成日時 について。Exifの仕様は公開されてるんですね、って当たり前か。

PowershellでExifから撮影日時を取得する(powershell)

PowershellでExifから撮影日時を取得する。 「撮影日時」っぽいタグがいくつかあるから、とりあえず全部拾ってみた。それらがそれぞれ何を意味するかは...今後の宿題... 追記:調べました↓ Exif内の撮影日時の話 - 管理人KのひとりごとタグとIDの対応付けは以…

Win10でロード済みアセンブリの一覧を確認(Powershell)

Windows10で、デフォルトでロードされるアセンブリの一覧を確認したのでメモ。確認方法と、確認結果は以下の通り。 PS C:\Users\hoge> [Appdomain]::CurrentDomain.GetAssemblies() | %{$_.GetName().Name} | sort Anonymously Hosted DynamicMethods Assemb…

特定の列名を持つテーブルを検索する(Oracle)(SQLServer)

あるユーザのテーブルの中で、特定の列名を持つテーブルを検索したい時の方法。PostgreSQL編はこちら↓ www.k-hitorigoto.online Oracleの場合 SQLServerの場合

お台場ガンダムの今と、ポケモンGO(?)と

お台場ガンダムが展示終了したというのを聞いていましたが、その後どうなっているのか気になったため、見に行ってみました。 本日のお供はGM1+20mm周辺には柵が設けられており、近づけないようになっていましたが、ガンダム自体はそのままの様で。

pythonで1こ飛ばしのfor文てどうやるの...(python)

pythonで、1から10まで、みたいな繰り返しをどうやるかわからなかったので記録する。 以下のケースで迷ったため。 4. その他の制御フローツール — Python 2.7.18 ドキュメント #!/usr/bin/python # -*- coding:utf8 -*- # range([始めの数,]繰り返しの数[,増…

可視シート名を列挙する(ExcelVBA)

Excelで、アクティブブックの可視シート名を列挙する方法。結構使うけど忘れがちなのでメモ。 Option Explicit Sub 可視シート名を列挙する() Dim sheetCnt As Integer Dim i As Integer Dim tmpSheet As Worksheet sheetCnt = ActiveWorkbook.Worksheets.Co…

PythonでSeleniumを使ってWebページ内のテーブルの内容を取得する

Webページを取得して操作する方法に、Seleniumというのがあるのを最近知りました。 Selenium テーブルが使われたWebページから内容を取得したかったので、その方法を調べました。 Seleniumはいろんな言語からアクセスすることが出来るようですが、今回はPyth…

CSVファイルの重複を除いて結合する(shellscript)

昨日のPowershellのshellコマンドバージョン 昨日に引き続き、対象のデータは以下のような感じです。 a.csv 日付,品目,価格 2017/3/3,りんご,150 2017/3/3,みかん,130 2017/3/4,キウイ,200 b.csv 日付,品目,価格 2017/3/3,みかん,130 2017/3/4,キウイ,200 20…

CSVファイルの内容の重複を除いて結合する(Powershell)

Powershellを使って、CSVファイルの内容の重複を除いて、結合したくなったのでメモ。 対象のファイルは以下のような、一部内容に重複のあるファイル。 a.csv 日付,品目,価格 2017/3/3,りんご,150 2017/3/3,みかん,130 2017/3/4,キウイ,200 b.csv 日付,品目,…

Excel2003迄の印刷ダイアログを開く(Excel)

Excel2007あたりから、印刷ダイアログが変わり、特定シートのみの印刷や、ブック全体指定のショートカットキーが煩雑になりました。 そこで、ExcelVBAを使い、旧来の印刷ダイアログを出せるようにしたいと思います。 下記サブルーチンを「Ctrl-P」に割り当て…

ワークシート関数でlastIndexOfする(Excel)

ワークシート関数にはlastIndexOfに似た関数ないんですね... というわけで、なんとか頑張ってみました。そして、そいつを使ってフルパスから拡張子を取得してみました。 # 「A1」セルの内容から、拡張子(最後の「.」より右側の文字列)を取得する式です =RIGH…

セルの書式設定で日付を曜日に変換する「aaa,aaaa」(Excel)

Excelのセルの書式設定で、日付から曜日にする方法を忘れてしまうので、ここに記録する。 aaa ⇒水 aaaa ⇒水曜日

ExcelファイルをPDF化する(ExcelVBA編)

Excel2007以降なら、VBAでPDF化できるようですね。 そんなわけで書いてみました。変換元Excelファイルと同じ場所にPDFが格納されます。 表示されたシート、印刷範囲が適用され、全シートが1PDFファイルになります。 https://msdn.microsoft.com/ja-jp/librar…

ルンバ680買いました。皆さん、ぜひ買いましょう!

3週間ほど前に、ルンバ680買ったんですよ、ルンバ680。おすすめ家電です。 なぜ買うに至ったか 買ったモデルと、価格 使ってみて、よいところ 使ってみて、微妙なところ 総括 なぜ買うに至ったか 部屋をきれいにしたいけど、手間はかけたくないなぁと。あと…

arrow M03あれこれ

最近のarrows M03についてあれこれ。 購入記 カメラ、なかなかです 強制的に再起動するには...? 購入記 カメラ、なかなかです 昨日、芝離宮へ行ったんです。 旧芝離宮恩賜庭園|公園へ行こう!梅が咲いたらしいんですが、うっかりGM1を忘れてしまいまして...…

末尾が"/"(スラッシュ)で終わるかどうか判定する(Excel)

\掲題の通り、Excelで末尾が"/"(スラッシュ)で終わるかどうか判定する方法。 たまにこういうのが必要になるので... =EXACT(IFERROR(FIND("/",A1,LEN(A1)),0),LEN(A1)) 実行例はこんな感じ 対象 True/False a/ TRUE a/b FALSE a/b/ TRUE a/b/c FALSE

晴海客船ターミナルへ行ってきました

掲題の通り、晴海客船ターミナルへ行ってきました。目的は、有名なオブジェを見るためです。晴海客船ターミナル本日のお供はGM1+14mm。定番の組み合わせです。 以下写真です。

XQ1とインテルはいってるタブレットを手放した

掲題の通り、XQ1とインテルはいってるタブレットを手放しました。いずれも綺麗に使っていたことから思った以上の値が付きました。http://k-hitorigoto.hatenablog.jp/entry/2016/02/13/000000_1:embed: それぞれにとってかわるモノたちがあり、出番を失って…

最下行アドレスを取得する(ExcelVBA)

カレントセルの列の、最下行アドレス(値の入力された最下行のアドレス)を取得する。 Option Explicit Sub カレントセル列の最後尾アドレスを取得する() Dim currentRange As Range Dim maxRowNum As Integer Dim tmpColumnName As String Dim columnName As …

任意の複数のExcelブックのセルの値を取得する(ExcelVBA)

掲題の通り、任意の複数のExcelブックのセルの値を取得する方法。 「の」が多いな。 Sub ボタン1_Click() Dim fileNames As Variant Dim fileName As Variant Dim tmpSheet As Worksheet fileNames = Application.GetOpenFilename(MultiSelect:=True) If IsA…

1月2日の盛岡

例年1月3日に自宅へ戻る際に盛岡で途中下車をしているのですが、今年は2日に戻ってくることになったため、2日に盛岡へ寄ってきました。 例年行ってるから、気が早いけど来年も同じように写真撮ろうかな。 お供はGM1+14-42EZ。コンデジ的に使えるけど、どうに…

全シートA1セルを選択する(ExcelVBA)

掲題の通り、全シートA1セルを選択するExcelVBAコード。 非表示シートがあるとアレですが、まぁ。 最後1シート目に移るのは好みです、はい。 Sub 全シートA1選択() Dim loopCount As Integer Dim sheetCount As Integer Dim tmpSheet As Worksheet sheetCoun…

あけましておめでとうございます、そして2017年の目標

あけましておめでとうございます。一年の計は元旦にあり、ということで目標を書いてみます。 1.80記事を書く 2016年は73記事だったので、キリよく80記事を書きます。365/80≒4.56ということで、週に1,2記事書ければ達成できそうです。 2.DB,SAを取得する 情報…