テックメモ

2016-12-082024-02-20

ファイル名を指定して実行

Win10の場合、
Win+S
からでもほぼ同じ動作ができる。また、
Ctrl+Shift+Enter
で管理者権限で起動できる。

Win10の設定は、
ms-settings:
という形式となる。

＊＊＊

・バージョン情報
ms-settings:about

・Windows Update
ms-settings:windowsupdate

・Microsoft Store
ms-windows-store://home

・Bluetoothとその他のデバイス
ms-settings:bluetooth

・すべてのアプリ
shell:appsfolder

ストアアプリのショートカットを作成する場合ここから

・ユーザーアカウント

Windows ユーザー関連

・デフラグ
dfrgui

・Windowsの機能
optionalfeatures

・サービス
services.msc

・MMCスナップイン
mmc

ファイル＞スナップインの追加と削除
ファイル＞名前を付けて保存

・プログラムの追加と削除
appwiz.cpl

・管理ツール
contorol admintools

・コンピューターの管理
compmgmt.msc

・システム構成ユーティリティ
msconfig

・システムのプロパティ (環境変数)
sysdm.cpl

・タスクスケジューラ
taskschd.msc

・入力設定
control input.dll
Ctrl + F10

Google日本語入力の場合

"C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

1	"C:\Program Files (x86)\Google\Google Japanese Input\GoogleIMEJaTool.exe" -mode=config_dialog

・共有フォルダ
fsmgmt.msc

・インターネットオプション
inetcpl.cpl

・デバイスマネージャ
devmgmt.msc

・イベントビューワ
eventvwr

・WIndows Update(Win7)
wuapp

・ファイアーウォール
firewall.cpl
wf.msc

・フォルダオプション
control folders

・電源オプション
powercfg.cpl

・ディスククリーンアップ
cleanmgr

・システム復元
rstrui
sysdm.cpl＞システムの保護＞システムの復元

・バックアップと復元(Windows 7)
sdclt

・タブレットモード
ms-settings:tabletmode

・資格情報
control keymgr.dll
rundll32.exe keymgr.dll,KRShowKeyMgr

・拡大鏡
magnify

・日付と時刻
timedate.cpl

・プリンタ
shell:PrintersFolder
control printers
rundll32.exe printui.dll,PrintUIEntry

2016-12-082020-05-15

操作基本

u, Ctrl+R
アンドゥ、リドゥ

gg
画面トップ

G
画面末尾

w, e, b
単語単位での移動

Ctrl+V
矩形選択

Shift+j
行結合

>>, <<
インデント

Ctrl+u, Ctrl+d, Ctrl+f, Ctrl+B
スクロール

*
カーソル下の文字を検索

: を入力後、Ctrl+R, Ctrl+W
コマンド下の文字をvimgrep

split, vsplit
:sp xxx名, :vsp xxx名
画面の分割

:e.
ファイラで開く

Ctrl-W, W
分割画面の移動

Ctrl+U, Ctrl+D
スクロール

Ctrl+i
進む

Ctrl+o
戻る

言語設定

e ++enc=utf-8
指定文字コードで開きなおす

set fenc=shift_jis
指定文字コードに変更

set encoding=utf-8
Vim自体の言語設定

:verbose highlight cursorline
設定を見れる

置き換え

:%s/old/new/gc

‘g’ を加えると行の先頭だけではなく行の中全て
‘c’ を加えると置換の度に確認を求める

sが置き換えの意味、%が現在開いているファイルの意味。

ただし、通常の正規表現とは違うエスケープが必要らしい。
以下は、#から始まる行と、改行だけの行を削除。
:%s/^#.*\n\|^\n//g

Vimgrep

正規表現のパターン

:vim {pattern} app/**
:vim {pattern} **/*
が基本の書き方。

パスの指定は、先ず検索したいパスを指定して、それに、
*
**
*.txt
**/*.txt
の組み合わせの何れかがくっつくイメージ。

| cw　で渡して、　:copen　で開く。

Ctrl-w, w
移動

:q
閉じる。

ちなみに通常のgrep基本

grep -rn xxx *
等記述する

G
通常正規表現

E
拡張正規表現

P
Perl互換正規表現

r
階層下のファイル内を対象

n
行番号

2016-11-102020-05-10

VBA SQL実験用①(Access(mdb))

SQLの挙動を調べるのにエクセルから手軽にSQLを発行

Sub test()

Application.CommandBars("cell").Reset

End Sub

Sub auto_open()

With Application.CommandBars("cell").Controls.Add
.OnAction = "t"
.Caption = "テーブル作成・登録"
End With

With Application.CommandBars("cell").Controls.Add
.OnAction = "tt"
.Caption = "SQL実行"
End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 2
  Application.CommandBars("cell").Controls("テーブル作成・登録").Delete
  Application.CommandBars("cell").Controls("SQL実行").Delete
Next i

End Sub

Sub t()

With ActiveSheet

tbl = InputBox("テーブル名")

Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\SQL実験.mdb"

'テーブル削除

On Error Resume Next
cn.Execute "drop table " & tbl

'テーブル作成

On Error GoTo 0
fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

  Select Case Right(.Cells(Selection(1).Row, c).Value, 1)
    Case "s"
    tmp = "varchar" 'charは短いテキスト(varcharは可変長), textは長いテキスト
    Case "i"
    tmp = "integer"
  End Select
  
  fld = fld & .Cells(Selection(1).Row, c).Value & " " & tmp & ","

Next c

fld = Left(fld, Len(fld) - 1)
q = "create table " & tbl & " (id integer identity(1,1) primary key," & fld & ")": Debug.Print q
cn.Execute q

'データ登録

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

  fld = fld & .Cells(Selection(1).Row, c).Value & ","

Next c

fld = Left(fld, Len(fld) - 1)

For r = (Selection(1).Row) + 1 To Selection(Selection.Count).Row

  For cc = Selection(1).Column To Selection(Selection.Count).Column
  
    rec = rec & "'" & .Cells(r, cc).Value & "'" & ","
  
  Next cc

  rec = Left(rec, Len(rec) - 1)
  
  q = "insert into " & tbl & " (" & fld & ") values (" & rec & ")": Debug.Print q
  cn.Execute q

  rec = ""
  
Next r

cn.Close
Set cn = Nothing

MsgBox "done"

End With

End Sub

Sub tt()

With ActiveSheet

Set cn = CreateObject("adodb.connection")
Set rn = CreateObject("adodb.recordset")

cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\SQL実験.mdb"
rn.Open ActiveCell.Value, cn

'フィールド作成

i = 0
For c = Selection(1).Column To (Selection(1).Column + rn.Fields.Count) - 1
  ActiveCell.Offset(1, i).Value = rn.Fields(i).Name
  i = i + 1
Next c

'データ読込

ActiveCell.Offset(2, 0).CopyFromRecordset rn

rn.Close
Set rn = Nothing

cn.Close
Set cn = Nothing

End With

End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

Sub test()

Application.CommandBars("cell").Reset

End Sub

Sub auto_open()

With Application.CommandBars("cell").Controls.Add

.OnAction = "t"

.Caption = "テーブル作成・登録"

End With

With Application.CommandBars("cell").Controls.Add

.OnAction = "tt"

.Caption = "SQL実行"

End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 2

Application.CommandBars("cell").Controls("テーブル作成・登録").Delete

Application.CommandBars("cell").Controls("SQL実行").Delete

Next i

End Sub

Sub t()

With ActiveSheet

tbl = InputBox("テーブル名")

Set cn = CreateObject("adodb.connection")

cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\SQL実験.mdb"

'テーブル削除

On Error Resume Next

cn.Execute "drop table " & tbl

'テーブル作成

On Error GoTo 0

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

Select Case Right(.Cells(Selection(1).Row, c).Value, 1)

Case "s"

tmp = "varchar" 'charは短いテキスト(varcharは可変長), textは長いテキスト

Case "i"

tmp = "integer"

End Select

fld = fld & .Cells(Selection(1).Row, c).Value & " " & tmp & ","

Next c

fld = Left(fld, Len(fld) - 1)

q = "create table " & tbl & " (id integer identity(1,1) primary key," & fld & ")": Debug.Print q

cn.Execute q

'データ登録

fld = ""

For c = Selection(1).Column To Selection(Selection.Count).Column

fld = fld & .Cells(Selection(1).Row, c).Value & ","

Next c

fld = Left(fld, Len(fld) - 1)

For r = (Selection(1).Row) + 1 To Selection(Selection.Count).Row

For cc = Selection(1).Column To Selection(Selection.Count).Column

rec = rec & "'" & .Cells(r, cc).Value & "'" & ","

Next cc

rec = Left(rec, Len(rec) - 1)

q = "insert into " & tbl & " (" & fld & ") values (" & rec & ")": Debug.Print q

cn.Execute q

rec = ""

Next r

cn.Close

Set cn = Nothing

MsgBox "done"

End With

End Sub

Sub tt()

With ActiveSheet

Set cn = CreateObject("adodb.connection")

Set rn = CreateObject("adodb.recordset")

cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\SQL実験.mdb"

rn.Open ActiveCell.Value, cn

'フィールド作成

i = 0

For c = Selection(1).Column To (Selection(1).Column + rn.Fields.Count) - 1

ActiveCell.Offset(1, i).Value = rn.Fields(i).Name

i = i + 1

Next c

'データ読込

ActiveCell.Offset(2, 0).CopyFromRecordset rn

rn.Close

Set rn = Nothing

cn.Close

Set cn = Nothing

End With

End Sub

2016-10-052017-10-31

DirectShow導入

以下のコマンドを走らせると、QuartzTypeLib.dllができる。
“C:\Program Files\Microsoft SDKs\Windows\v10.0A\bin\NETFX 4.6.1 Tools\TlbImp.exe” “C:\windows\System32\quartz.dll”
できたら、参照設定に直接追加する。

ちなみに、DirectShowでmp4を再生する場合、
ffdshow
をインストールする。
DirectShowフィルタのみチェックでOK。

Haali Media Splitter
をインストールする。
Disable MPC internal Matroska splitter
のチェックを外す。

GraphEdit

DirectShowを確認できるソフトだが、Microsoft SDKs\WIndows\V7.1\Bin\
には見つからなかった。最終的にGraphStudioNextというのが近いらしく、これを利用することに。

非公式だが、以下からだとgraph editが行けるらしい。
http://www.digital-digest.com/dvd/downloads/showsoftware_graphedit_141.html

とりあえず動画の再生

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

using System.Runtime.InteropServices;
using QuartzTypeLib;

namespace TestMovie
{
    public partial class Form1 : Form
    {
        private FilgraphManager fgm = null;
        private IMediaControl imc = null;
        private IVideoWindow ivw = null;
        private IMediaEventEx ime = null;
        private IBasicVideo ibv = null;
        private IMediaPosition imp = null;

        public Form1()
        {
            InitializeComponent();
            button1.Click += new EventHandler(FileOpen);
        }

        private void ComRelease()
        {
            if (fgm != null) Marshal.ReleaseComObject(fgm);
            if (ibv != null) Marshal.ReleaseComObject(ibv);
            if (ivw != null) Marshal.ReleaseComObject(ivw);
        }
        private void FileOpen(object sender, EventArgs e)
        {
            ComRelease();
            OpenFileDialog fd = new OpenFileDialog();
            if (DialogResult.OK == fd.ShowDialog())
            {
                try
                {
                    fgm = new FilgraphManager();
                    fgm.RenderFile(fd.FileName);

                    ibv = (IBasicVideo2)fgm;
                    ivw = (IVideoWindow)fgm;

                    int h = 0; int w = 0;
                    ibv.GetVideoSize(out w, out h);

                    fgm.Run();
                }
                catch (Exception exp)
                {
                    MessageBox.Show(exp.Message);
                    ComRelease();
                }
            }
        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using System.Runtime.InteropServices;

using QuartzTypeLib;

namespace TestMovie

{

public partial class Form1 : Form

{

private FilgraphManager fgm = null;

private IMediaControl imc = null;

private IVideoWindow ivw = null;

private IMediaEventEx ime = null;

private IBasicVideo ibv = null;

private IMediaPosition imp = null;

public Form1()

{

InitializeComponent();

button1.Click += new EventHandler(FileOpen);

}

private void ComRelease()

{

if (fgm != null) Marshal.ReleaseComObject(fgm);

if (ibv != null) Marshal.ReleaseComObject(ibv);

if (ivw != null) Marshal.ReleaseComObject(ivw);

}

private void FileOpen(object sender, EventArgs e)

{

ComRelease();

OpenFileDialog fd = new OpenFileDialog();

if (DialogResult.OK == fd.ShowDialog())

{

try

{

fgm = new FilgraphManager();

fgm.RenderFile(fd.FileName);

ibv = (IBasicVideo2)fgm;

ivw = (IVideoWindow)fgm;

int h = 0; int w = 0;

ibv.GetVideoSize(out w, out h);

fgm.Run();

}

catch (Exception exp)

{

MessageBox.Show(exp.Message);

ComRelease();

}

2016-10-052024-10-25

DBエンジン(JET)

JETはOS32bit専用(JET自体32bitのみ)なのでOS64bitで動かす場合、
32bitプログラムまたは32bitOfficeで動かす。(WOW64で動かす)
また、JETはaccdbを使えない。
(Accessから直接mdb/accdbを操作する場合は関係なく、64bitAccessからmdbを開くことも可能)

以前はOS標準で搭載されていたため、追加で再頒布可能コンポーネントをインストールする必要がなく便利だったが、現在は非推奨。

・OS64bit/64bitプログラム
利用できない。
・OS64bit/32bitプログラム(32bitOffice)
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxx.mdb”
は利用できる。
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxx.accdb”
は利用できない。

DBエンジン(ACE)

ACEはOS32/64bit(ACE自体が32/64bit存在する)でも使える。
mdb/accdbが使える。

・OS32bit/32bitプログラム(32bitOffice)
・OS64bit/32bitプログラム(32bitOffice)
・OS64bit/64bitプログラム(64bitOffice)
“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=xxx.mdb”
“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=xxx.accdb”
すべて利用できる。

パスワード付きのmd/accdbを開く場合、
“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=xxx.mdb/accdb;” & “Jet OLEDB:Database Password=xxx”
OS64bit/32bit、OS64bit/64bitプログラムどちらでも利用できる。

OS標準で入らないので、Accessや再頒布可能コンポーネントなどが必要。
※32bitのOfficeが入っている場合、AccessDatabaseEngine_x64.exe /quiet

DBエンジン確認

(New-Object data.oledb.oledbenumerator).getElements() | select sources_name, sources_description

1	(New-Object data.oledb.oledbenumerator).getElements() \| select sources_name, sources_description

にて確認できる。32bitを確認したい場合、
%systemroot%\syswow64\windowspowershell\v1.0\powershell.exe
のPowerShellを起動する。

ADOとDAOの違い

DAOはJETエンジンを対象に開発され、Access専用。
ADOはAccess以外も対象。OLEDBを利用する。

VBA(ADO)での利用

Sub test()

' 参照設定しない場合
Dim cn1 As Object
Set cn1 = CreateObject("ADODB.Connection")

' 参照設定する場合(Microsoft ActiveX Data Objects X.X Library)
Dim cn2 As ADODB.Connection
Set cn2 = New ADODB.Connection

cn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.mdb;" & "Jet OLEDB:Database Password=abc;"

Dim rs As Object
Set rs = cn1.Execute("select * from tbl")

ActiveCell.CopyFromRecordset rs

If rs.State = 1 Then rs.Close
Set rs = Nothing
 
If cn1.State = 1 Then cn1.Close
Set cn1 = Nothing

End Sub

Sub test()

' 参照設定しない場合

Dim cn1 As Object

Set cn1 = CreateObject("ADODB.Connection")

' 参照設定する場合(Microsoft ActiveX Data Objects X.X Library)

Dim cn2 As ADODB.Connection

Set cn2 = New ADODB.Connection

cn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.mdb;" & "Jet OLEDB:Database Password=abc;"

Dim rs As Object

Set rs = cn1.Execute("select * from tbl")

ActiveCell.CopyFromRecordset rs

If rs.State = 1 Then rs.Close

Set rs = Nothing

If cn1.State = 1 Then cn1.Close

Set cn1 = Nothing

End Sub

取得方法の種類

'取得方法①
Do Until rs.EOF
  Debug.Print rs!xxx 'レコードセット !マーク フィールド名という順番で指定できる。
  rs.MoveNext
Loop
rs.MoveFirst

'取得方法②
For c = 1 To rs.Fields.Count
  w.Cells(1, c).Value = rs.Fields(c - 1).Name
Next c
w.Cells(2, 1).CopyFromRecordset rs

'取得方法③
Do Until rs.EOF
  Debug.Print rs.Fields("xxx") 'レコードセット files ("名称") あるいは (0～index) などで指定できる
  rs.MoveNext
Loop

'取得方法①

Do Until rs.EOF

Debug.Print rs!xxx 'レコードセット !マークフィールド名という順番で指定できる。

rs.MoveNext

Loop

rs.MoveFirst

'取得方法②

For c = 1 To rs.Fields.Count

w.Cells(1, c).Value = rs.Fields(c - 1).Name

Next c

w.Cells(2, 1).CopyFromRecordset rs

'取得方法③

Do Until rs.EOF

Debug.Print rs.Fields("xxx") 'レコードセット files ("名称") あるいは (0～index) などで指定できる

rs.MoveNext

Loop

OLEDBドライバがない

ExcelからAccess接続したいなと思ったら、インストール可能な ISAM ドライバが見つかりませんでしたと言われた。

どうやら以下を読むと、2016/32bit(サブスクリプション)がクイック形式で入っていて、ドライバが入らないということらしい。

https://blogs.technet.microsoft.com/officesupportjp/2016/09/06/not_available_access_odbc_oledb_outside_c2r_applications/

https://blogs.technet.microsoft.com/officesupportjp/2016/09/08/howto_c2r_or_msi/

MySQLへのエクスポート

DSNを作っておくと自動でエクスポートできるとのこと。

http://dev.mysql.com/downloads/connector/odbc/
からmsiファイルでインストール。

コントロールパネル＞管理ツール＞ODBCデータソース＞ユーザー DSN＞追加
Accessを起動してテーブルデザインをエクスポート先のMySQLと合わせる。
テーブルを選択し、
右クリック＞エクスポート＞ODBC データソース
(すでに存在しているテーブルに上書きはできない)

2016-10-052020-05-14

ストアドプロシージャ

SQLServer

・定義

create procedure ストアドプロシージャ名
@パラメータ名型
as
begin
処理
end

・変数

宣言
declare @変数名型

データ型
varchar：文字列
int：数値
decimal：小数
date：日付

代入
set 変数 = 値

・カーソル
1行ずつループして処理する方法。

カーソルの宣言
declare カーソル名 cursor for （select 文）

カーソルを開く
open カーソル名

データの取得
fetch next from カーソル名 into 変数リスト

ループ処理の実行

while 条件式
begin
処理内容 where current of カーソル名
end

※ループの定番
while @@fetch_status = 0

カーソルを閉じる
close カーソル名

カーソルの開放
deallocate カーソル名

MySQL

CREATE ROUTINEの権限が必要。

・基本
create procedure sample01()
select now();
mysql>call sample01;

・削除
mysql>drop procedure sample01;

・一覧
show procedure status;

・中身
show create procedure sample01;

・引数をとる
create procedure sample01(in a int, in b int)
select a + b;
mysql>call sample01(10,5);

・返り値
create procedure sample01(out x int)
set x = 3;
mysql> call sample01(@var);
mysql> select @var;

・複数のクエリを発行
delimiter //
create procedure sample01()
begin
select 1;
select 2;
end//
delimiter ;
mysql> call sample01;

・IF文
delimiter //
create procedure sample02(in x int)
begin
if x = 1 then
select “inp 1”;
elseif x = 2 then
select “int 2”;
else
select “inp else”;
end if
end //
delimiter ;
call sample02(1);

・select～into文で変数へ
delimiter //
create procedure p(in a int, out sum int)
begin
select a * 2 into @tmp;
set sum = @tmp;
end //
delimiter ;
call p (4,@sum);
select @sum;

・カーソル単位で処理する

declare xxx cursorという形で宣言する。
for select でselectの結果を定義する。
fetch cursor for カラムで代入。
処理前にopenして最後にcloseする。

delimiter //
create procedure p(in i_id int, in i_str varchar(10), out o_id int, out o_str varchar(10))
  begin
  declare myid int;
  declare mystr varchar(10);
  declare mycur cursor for select id,str from test_tbl; 
  set @pos = 0;
  select count(*) into @total from test_tbl;
  set o_id = 0;
  set o_str = '';
  open mycur;
  while @total > @pos do
    fetch mycur into myid,mystr;
    if myid = i_id or mystr = i_str then
      set o_id = myid;
      set o_str = mystr;
      set @pos = @total;
    end if;
    set @pos = @pos + 1;
  end while;
  close mycur;
end //
delimiter ;
mysql> CALL p( 4, 'cc', @id, @str );
mysql> SELECT @id;

delimiter //

create procedure p(in i_id int, in i_str varchar(10), out o_id int, out o_str varchar(10))

begin

declare myid int;

declare mystr varchar(10);

declare mycur cursor for select id,str from test_tbl;

set @pos = 0;

select count(*) into @total from test_tbl;

set o_id = 0;

set o_str = '';

open mycur;

while @total > @pos do

fetch mycur into myid,mystr;

if myid = i_id or mystr = i_str then

set o_id = myid;

set o_str = mystr;

set @pos = @total;

end if;

set @pos = @pos + 1;

end while;

close mycur;

end //

delimiter ;

mysql> CALL p( 4, 'cc', @id, @str );

mysql> SELECT @id;

2016-10-052020-05-06

Windows ロック画面変更

ロック画面の変更

HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Authentication \ LogonUI \ Background

右ペインの何もないところを右クリックし、メニューから＜新規＞→＜DWORD値＞と選択して、DWORD値「OEMBackground」を作成します。

DWORD値「OEMBackground」をダブルクリックします。

値のデータを「1」に変更

%windir%\system32\oobe」が開いたら、「info」というフォルダを作成。その中に、「backgrounds」フォルダを作成します。

「backgroundDefault.jpg」同フォルダ内にコピーします。

250KB以下にしないとダメ

2016-10-042025-06-01

Windows 初期設定

●Win
・マルチディスプレイ
・タスクバー
・BitLocker
・ドライブレター変更(Gドライブ)
・ダークモード
・スナップ(システム＞マルチタスク＞ウィンドウのスナップ)
●Google Chrome
・個人アカウント、Workspace２つログイン
●ESET
●AutoHotkey
・スタートアップ登録
●Google日本語入力
辞書には　せん　——————————————————–　だけ登録
AutoHotkeyにあわせて変更
●電源設定
●Explzh
・ツール＞オプション＞シェルエクステンション
＞基本設定＞シェル統合機能＞オフ
＞関連付け設定>関連付け､アイコンの設定>「一発解凍」の動作となる、関連付け設定にする＞オン
＞「解凍先の指定」ダイアログボックスを表示する＞オフ
・ツール＞オプション＞フォルダ>デフォルトのフォルダ>書庫のフォルダを解凍先にする>オン
●フォントインストール
MeiryoKe
https://meir000.github.io/MeiryoKe/
●スタートアップ
CLaunch
Clibor
CreateIndex
●Chrome
モード：ダーク
自作拡張機能設定＋ショートカット設定
フォントをMeiryo+MeiryoKeGothic
●PowerToys
コマンドパレットのみ
●VeraCrypt
●Dropbox
すでにDropboxがあるフォルダを指定する
●OneDrive
個人用がインストールされているので、アカウントから365に切り替える。
デスクトップ、ドキュメントをバックアップ
※管理できるのはこのアプリのみを指定
●EmEditor
・設定のインポート
・アカウントログイン
●AutoHotkey
・EmEditorで開く
コンピューター\HKEY_CLASSES_ROOT\AutoHotkeyScript\shell\edit\command
を開く。
“C:\Users\xxx\AppData\Local\Programs\EmEditor\EmEditor.exe” “%1”
と入力する
●Microsoft 365
※ライセンス認証時、管理できるのはこのアプリのみを指定
・リボンに開発表示
・行番号表示
regsvr32 “G:\Dropbox\Application\VB6IDEAddLineNumbersAddin.dll”
(解除の場合)
regsvr32 /u “G:\Dropbox\Application\VB6IDEAddLineNumbersAddin.dll”
アドイン＞アドインマネージャ
からロード設定。
・ツール＞オプション＞編集
自動インデントを2へ。
・ツール＞オプション＞エディタの設定
標準コード、識別子、ブックマーク、呼び出し元：前景を白、背景を黒
キーワード：前景をシアン
それ以外はすべて：背景が白の場合は黒
●ShareX
ホットキー設定
●MPC BE
・MPC Video Rendererにチェックしインストール。
・表示＞オプション＞プレーヤー
＞シークバーのテキスト：なし
＞OSDを表示する：チェック外す
・表示＞オプション＞再生
＞繰り返し再生
●IrfanView
・本体、プラグイン、翻訳
●Win
・背景壁紙
・エクスプローラ(Shell Folder Disabler)
・Bluetoothリンク(ATH-AC5TW)
●ドライバ
・Bluetoothアダプタ
・GPU
・NIC(GBE2.5-PCIE)
●WatchGuard、OpenVPN

WatchGuard VPN ClientからOpenVPN GUIに変更

●インターネットオプション
信頼済サイト：\\192.168.*.*
●Mattermost

ConoHaVPS Mattermostイメージ

●ScanSnap Home
S1100
・デスクトップに保存
・スーパーファイル
・ファイル名を日付へ
●TEPRA Label Editor
SR3500P
●PDF-XChange Lite Printer Free
●Wondershare
●Adobe Bridge
右上メニュー＞プレビューサイズ＞埋め込み(最速)：チェック
●4K Video Downloader
●PDFelement
環境設定＞一般
デフォルトズーム：ウィンドウに合わせる
トップメッセージバーを常に非表示にする：オン
ファイルの自動保存の間隔：オフ
PDFを開いた後にAIチャットサイドバーを常に展開する：オフ
●LogiOptions+
スクロール力：15%
SmartShift：オフ
●マウス設定
・ポインターの速度を6/旧(11/Win11)
・ポインターの精度を高めるを外す
※DPIとは物理的な1inch(2.54cm)で何ピクセル動くかと考えると分かりやすい。
●コンテキストメニューのオプション非表示

reg add "HKCU\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32" /f /ve

1	reg add "HKCU\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32" /f /ve

エクスプローラ再起動
●FFmpeg
バイナリをWinフォルに入れる
●GIMP
●Chomeプロファイル追加
●VSCode

･設定>
Tab Sizing:fixed
Tab Sizing Fixed Max Width:200
Tab Sizing Fixed Min Width:200

･キーボードショートカット>
参照へ移動をF12にする。
(F12でトグルしないように､参照へ移動以外のF12は削除

･Ctrl+Shift+P>settings json

“workbench.colorCustomizations”: {
“editorIndentGuide.background1”: “#b22222”,
“editorIndentGuide.background2”: “#ff4500”,
“editorIndentGuide.background3”: “#ffd700”,
“editorIndentGuide.background4”: “#228b22”,
“editorIndentGuide.background5”: “#000080”,
“editorIndentGuide.background6”: “#8b008b”,
“editorIndentGuide.activeBackground1”: “#fff”,
“editorIndentGuide.activeBackground2”: “#fff”,
“editorIndentGuide.activeBackground3”: “#fff”,
“editorIndentGuide.activeBackground4”: “#fff”,
“editorIndentGuide.activeBackground5”: “#fff”,
“editorIndentGuide.activeBackground6”: “#fff”
}
を追加する｡

files.defaultLanguage>
javascript

･拡張機能>
Code Runner
Easy Snippet
Japanese Language Pack for Visual Studio Code

●VisualStudio

ツール＞オプション＞環境＞キーボード

1.「以下の文字列を含むコマンドを表示」
から検索し対象のショートカット見つける。

2.「選択したコマンドへのショートカット」
の右側にある削除を実行し、現在のショートカットを削除する。

3.「ショートカットキー」
というラベルのテキストボックスに新しいショートカットを入力し割り当てを実行する。

ウィンドウ．次のタブ：Ctrl+Tab
ウィンドウ．前のタブ：Ctrl+Shift+Tab
ファイル．閉じる：Ctrl+W
表示．戻る：Alt+Left
表示．次に進む：Alt+Right
編集．行の削除：Alt+L
編集．選択した行を上へ移動：Alt+K
編集．選択した行を下へ移動：Alt+J
ファイル．このウィンドウ以外すべて閉じる：Shift+Alt+Z
※AutoHotkeyでAlt+Zとして利用
※インストールできる場合CloseTabsToRightを利用

ツール＞オプション＞デバッグ

出力ウィンドウの文字をすべてイミディエイトウィンドウにリダイレクトする
チェックする。

エディットコンティニュを有効にする
チェックを外す。

ツール＞オプション＞環境＞フォントおよび色
テキストエディター
MeiryoKe_Gothic/13

ツール>オプション>環境>タブとウィンドウ
タブの最小幅､最大幅を同じサイズに｡

ツール>オプション>環境>フォントおよび色>
環境>Meiryo UI/10
出力ウィンドウ>Consolas/10

拡張機能
Viasforaインストール

Visual Studio 2022 CloseTabsToRightインストール

●MySQL Workbench
●Microsoft SQL Server Management Studio(SSMS)

オプション＞デザイナー＞テーブルの再作成を…にする
チェックを外す。

SQL Server メモ

●Docker Desktop

DockerDesktop用Hyper-V の設定

●Happy Hacking Keyboard キーマップ変更ツール

●SoftEther

SoftEther Ubuntu/Win インストール

2016-10-042017-01-27

C# Seleniumの利用

Selenium Client & WebDriver Language BindingsのC#をダウンロードする。

解凍した中身をコピーする。

C:\Windows\Microsoft.NET\Framework\v4.0.30319

csc.exeがある場所と同階層にcsc.rspがあるのでと追記する。

/r:Selenium.WebDriverBackedSelenium.dll

/r:ThoughtWorks.Selenium.Core.dll

/r:WebDriver.dll

/r:WebDriver.Support.dll

.Netの標準dll以外で参照設定したサードパーティのdllは実行ファイルと実行ファイルと同フォルダ内に配置する。

Firefox以外は作成した実行ファイルと同じ場所にDriverが必要。

The Internet Explorer Driver Serverから32 bit Windows IEをダウロードする。

解凍した実行ファイル（IEDriverServer.exe）は作成した実行ファイルと同一階層におく必要はないが、パスが通ってないとダメ？ためしに、c:\置いたけどエラーがでる。

C:\Windows\Microsoft.NET\Framework\v4.0.30319に置くか、作成した実行ファイルと同一階層なら大丈夫だった。

2016-10-042021-07-30

MySQL alter、select評価順

・準備

create database DB character set utf8;

use DB;

drop table if exists TABLE1;
create table TABLE1(
id int primary key auto_increment not null,
name varchar(255)
) default character set=utf8

・Alter

テーブルのリネーム
alter table TABLE1 rename TABLE2;

列の追加
alter table TABLE2 add column NAME2 varchar(255);

列の変更
alter table TABLE2 change NAME2 NAME3 int;

列の削除
alter table TABLE2 drop NAME3;

作成済みデータベースの文字コード変更
alter database DB character set utf8;

制約の追加方法
alter table TABLE1 add unique (NAME);

ちなみに、primaryとuniqueは複数指定すると、複合になるのでuniqueをそれぞれ複数の列の場合、
create table tbl (id int ,nm varchar(5) , unique(id) , unique(nm));
のように指定。

・制約の種類

not null
check
unique key
primary key
foreign key

・select式の評価順

from
on – join
where
group by
having
select
distinct
order by
top(limit)

・文字列型

https://dev.mysql.com/doc/refman/8.0/ja/char.html

char(n)
固定長で、右側にスペースが埋められる。

varchar(n)
可変長、255を超えてnを指定するとプリフィックスが2バイトとなる。プリフィックス格納されたデータに対するストレージとは別。ストレージについてはtextもvarcharも保存した容量のみ。

両方とも、nはバイトではなく文字数。また、MyISAMとInnoDBでの違いがあるので、注意。5.5未満はMyISAM、5.5以降はInnoDB

ファイル名を指定して実行

Vim コマンド

操作基本

言語設定

置き換え

Vimgrep

ちなみに通常のgrep基本

VBA SQL実験用①(Access(mdb))

C# DirectShow

DirectShow導入

GraphEdit

Access メモ

DBエンジン(JET)

DBエンジン(ACE)

DBエンジン確認

ADOとDAOの違い

VBA(ADO)での利用

OLEDBドライバがない

MySQLへのエクスポート

ストアドプロシージャ

SQLServer

MySQL

Windows ロック画面変更

ロック画面の変更

Windows 初期設定

C# Seleniumの利用

MySQL alter、select評価順