ssCAROのブログ

色んなとこで見つけたプログラムのメモ置き場っぽい

VisualStudio2017のオフラインインストール

Visual Studio 2017 ProfessionalをWindows Server 2012 R2にインストールしたときのメモ Visual Studio 2017は、オンラインでインストールする必要があるようで、ISOの提供がないみたい。 サーバーはインターネットに接続しないのでオフラインでのインスト…

Excel VBAで無限ループを停止

ExcelのCellに入力された改行文字をスペースに置換しようとマクロを作ってみた。 まず、改行文字が vbLf だったのに手間取った。 改行文字を消すだけだしと保存もせずに、やっつけで作ったマクロを動かすと無限ループに突入し「保存しとけば良かった・・・」…

VMWareで仮想シリアルポート同士を接続

RS232Cの開発でシリアルポートが必要になったけど、ノートPCなんでシリアルポートがない。 USB-RS232C変換ケーブルもない。 VMWareのゲストOSにシリアルポートを2個追加して、同じ名前付きパイプを設定すると仮想PC内のシリアルポート同士で送受信できるよう…

Python 3とwxPythonのインストール

Pythonでウインドウ画面(GUI)の作成をしてみたくなったのでインストールから始めた。 OSは、Windows 7 Professional SP1 32bit 次のソフトを使用 Python 3.6.1 wxPython 4.0.0a1 wxPythonのインストールがややこしいみたいな事を見かけるので身構えていたけ…

継承したコントロールのTextの初期値を変更する

Buttonを継承してカスタムコントロール(以下SearchButton)を作成した。 SearchButtonには虫眼鏡のアイコンを設定したけど、ツールボックスから配置するとTextにSearchButton1と入ってしまう。 別にTextを削除すれば良いのだけど、最初から空白が入れば良いな…

Androidのタブレットをサブディスプレイにする

Androidのタブレットを、サブディスプレイにしてみた。 USBで接続してサブディスプレイにするソフトは、いくつかあるみたいだけど、次の環境で試してみた。 PC側の環境 OS: Windows 7 Professional SP1 32ビット ソフト: Mirror-DTC for Windows Android側の…

AVD Managerでエミュレータが起動しない

Android Studioでサンプルプロジェクトをとりあえず動作させようとしたけどエミュレータが起動しなかったのでメモ。 参考URL http://codezine.jp/article/detail/9341 AVD Managerでデバイスを作成したのは良いけど、端末の画面が表示されて進まなくなった。…

Android Studioのエラー(CreateProcess error=216)

Android Studio 2.2.2をインストールしたときの、つまづいたエラーのメモ。 PCの環境とかは次のとおり。 OS: Windows 7 Professional SP1 32ビット JDK: Java SE Development Kit 8u111/Windows x86 Android Studioは、日本語化済み。 JDK、Android Studioと…

未使用のシリアルポート(COMポート)の削除

USBのシリアル変換を使用して、いろいろな機器と接続しているとなんだかんだで、COMポートが増えていた。 COM1がずっと使用状態になって、割り当てできなかったりと不便だったので次の方法で未使用のCOMポートを削除した。 コマンドプロンプトを管理者として…

Jsonファイルの読込み、書込み

データを保存したり、マスターデータを読み込んだりしたいときはCSVでデータファイルを作っていたのを、Jsonファイルにしてみた。 Jsonファイルの読み書きは、DataContractJsonSerializerを使用すれば簡単に使える。 Jsonファイルの内容をクラスとして扱える…

WinMergeのJSONプラグインを作成してみた

JSONファイルが何かと便利!と色々使ってみてるけど、元データとの比較が面倒だったりしたのでWinMergeのJSONプラグインを作成したときのメモ。 JSONファイルを整形して比較する。 整形には、JavaScriptのJSONを使用する。 WinMergeのプラグインは、VBScript…

DataGridViewの選択行を元の行に戻す

DataGridViewでDataSourceを設定すると選択行が先頭行になる。 選択行を覚えておき、元の位置に戻すプログラムのメモ。 '現在選択している行を取得 Dim rowFirst As Integer = 0 Dim rowCurrent As Integer = 0 If DataGridView1.CurrentCell IsNot Nothing …

DataGridViewのセル結合

DataGridViewでセルを結合するためには、自分でセルを結合したかのように描画する必要があるみたい。 見せかけのヘッダー列を固定したい場合は「行のセル固定」の記事を見てください。 そこで次の表を作成したいときのプログラムメモ。 表を見せるのみです。…

FillRectangleで塗りつぶしが出来ない

FillRectangleとDrawRectangleで塗りつぶされる領域が違ってた。 DrawRectangleより、Width, Height が、それぞれ1ずつ少なく塗りつぶされていた。 Dim g As Graphics = e.Graphics Dim rect As New Rectangle(20, 20, 120, 120) g.DrawRectangle(Pens.Blue,…

SQLite3へ大量のCSVを一括で取り込む

SQL

SQLite3へCSVファイルを取り込むためのスクリプトのメモ 次の必要なファイルを同じフォルダに配置する。 sqlite3.exe CSVを取り込む先のテーブル(CSV_DATA)が作成されたDB(Sample.sqlite3) csv_import.bat INPUTフォルダを作成し、取り込む対象のCSVファイル…

プロセス毎のCPU使用率、メモリ使用量のログを取得する

プロセス毎にCPU使用率や、メモリ使用量のログを取得したい。 パフォーマンスモニターでログを取得しても良かったけど1日に1~2回程度で良いので長期間ロギングをする。 WMICというコマンドを使用する。 batファイルに次のコマンドを書いて、タスクスケジュ…

AssemblyAttributes.vbが見つからないエラーの対処

Windows 7 Professional 32ビット、VB2010を使用している環境で急に次のエラーが表示されるようになった。 エラー 1 モジュール ファイル 'C:\Users\Administrator\AppData\Local\Temp\.NETFramework,Version=v4.0.AssemblyAttributes.vb' を開けません: 指…

ExcelのVLOOKUPで見つからない場合は空白にしたい

資料を作ったりするときにExcelをよく使います。 このとき、VLOOKUP関数がすごく役にたつのだけど一覧から見つからないときは、0を返したりするので、IFで判断して空白に変えたりとがんばってました。 でも、これだけで、VLOOKUPで見つからない場合0ではなく…

TableLayoutPanelにプログラムで列(Column)を追加

横にLabelを並べてチェック用の数値を表示したい。 チェック項目は設定で変更される。 Formのサイズを取得して、Labelのサイズを調整しても良かったけどTableLayoutPanelを使ってみた。 参考にしたHP http://dobon.net/vb/dotnet/control/tlrowstyles.html h…

SQL Serverで一度に実行できるSQLコマンドの最大文字数

SQL

VB.netでUPDATEを一度に実行したかった。 1回ずつUPDATEしても良かったけど、この方法だと件数が多いとかっこ悪いのでセミコロンで区切ってUPDATE文をつなげてってしてる時にふと「CommandTextの最大文字数ってどれぐらいだっけ?」と思ったので調べてみた。…

DataTableのデータをLINQで抽出する

DataTableのSelectを使うと遅いって、よく見るのでLINQを使ってみた。 LINQがさっぱり分からなくて、とりあえずSelectの変わりになる程度のを作成した。 ItemTable (Index作成済み)には ITEM_NO, ITEM_NAME SeihinTable (Index作成済み)には SEIHIN_NO, SEIH…

SQL Serverに億単位のテストデータを作成する

SQL Server 2014を導入しているシステムで21億件(int型の最大値まで)のテストデータで検証する必要があったのでテストデータの作成方法を調べた。 最初にストアドでWHILEを使ってINSERTしていたら10日間ほどかかる計算になった。 ネットを調べると高速にテス…

Try Catchの例外を無効にする

Try Catchの例外を無効にするというか、例外発生時にコード上で停止させる方法です。 Try Catchを書くのは良いけど、エラーが出ても「動いてるように見える」のでデバッグ時には「ここでエラーでたよ!」と教えて欲しいです。 Visual Studio 2010を使用して…

DataGridViewで複数行の選択をDataRowにコピー

DataGridViewで複数行選択したデータをDataRowの配列に入れたい。 選択している1行をDataRowに入れるのはすぐに見つかった。 もっと良いやり方があるかもしれないけどメモ。 DataGridView.DataSourceにDataTableが割り付いていること。 If dgv.SelectedRows.…

リモートデスクトップ「Brynhildr」の自動更新?

モニターが接続されていないパソコンがあって、それに接続するためにリモートデスクトップの「Brynhildr」をインストールしています。 このソフトのバージョンが最新になったので、とりあえず更新しようと思ったけどモニターの切替が大変になっていたのでBAT…

ExcelでSheetのオブジェクト名(Sheet1とかSheet2とか)を変更

ExcelのVBAを作成していると、Sheet名ではない方のSheet1~の連番で作成される番号がずれたり、ばらばらだったりして、見た目が悪かったり(VBA見ないと分からないけど)するので直したいなぁ~と思って調べたら次のを見つけた。 Public Sub ChangeCodeName() …

DateTimePickerの選択範囲日の設定

DateTimePickerで選択範囲の日を設定するには DateTimePicker.MinDate DateTimePicker.MaxDate に日付を設定する。 次の点に注意すること MinDate = 2015/02/01 MaxDate = 2015/02/04 として、2015/03/01~2015/03/03を設定しなおす場合 MinDateに2015/03/01…

DataTableのコピー

DataTableのCopyメソッドを使用すると、値も含めてコピーできる。 コピー先のDataTableを変更しても、コピー元のデータは変わらない。 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim dt1 As New DataTab…

CreateObject関数の引数

CreateObjectを使って参照したいオブジェクトがある場合ProgID(文字列)を引数として渡す必要があります。 有名どころのExcel、Wordといったのはネットで検索すればすぐに見つかりますが専用ソフトとかであれば、ProgIDなんかネットで検索しても見つかりませ…

SQLite3で大量のCSVを格納する

SQL

1日1ファイルで1分毎の収集データが3ヶ月分あり、それらをSQLiteに格納したかったから、insertを使ったけど遅くて遅くて...30分ほどかかった。 色々しらべたら次の方法を見つけた。 コマンドラインで次を入力するとすっごい速くCSVをテーブルに取り込めた。5…