expand <cabファイルパス> <解凍先パス> /F:*
SQLite3でテーブル存在チェックを行う方法
SELECT COUNT(*) FROM sqlite_master WHERE TYPE=’table’ AND name=’存在確認するテーブル名’;
ネタ元
phpで数値をカンマ区切りに変換
$a = 10000000; $b = number_format($a); echo $b;
ネタ元
複数のjsonファイル合成(merge)など色々できるっぽいもの"jq"コマンド
windowsもあるよ
zenn.dev
使い方解説
dev.classmethod.jp
wordpress メニューの「カスタムリンク」クリック時に新しいタブで開かせる
「外観」→「メニュー」
画面右上の「表示オプション」（オレンジ枠の部分）をクリックします。
「リンクターゲット」にチェック
カスタムリンクの項目に「リンクを新しいタブで開く」が増えるのでチェック
ネタ元
VC＋＋ _CRT_SECURE_NO_WARNINGS を安直解決する方法
昔のコードをお試し移植するときなど、とりあえず消したい場合はdefineいれとく
#define _CRT_SECURE_NO_WARNINGS
ソースファイルに記述するのが面倒な場合は、[プロパティ] > [C/C++] > [プリプロセッサ] に定義しておけば、一律で抑制できる
VisualStudioで MFCが使えるコンソールアプリプロジェクトの作り方
新しいプロジェクトの作成で
「Windows デスクトップ ウィザード」を選択
プロジェクト名とかはお好きにどうぞ
アプリケーションの種類を「コンソール アプリケーション」にして
MFCヘッダーにチェックをいれてOKします。
Excel VBA ShiftJIS文字列が１６進数になってさらにそれを文字列にしたものを文字列に変換
意外とややこしいのよね
Function ConvStrtoSJISCodeStr(aSJISstr As String) As String
If Len(aSJISstr) < 2 Then
Exit Function
End If
Dim aryByte() As Byte
ReDim aryByte(Len(aSJISstr) / 2 - 1)
Dim i
i = 0
Do
If Len(aSJISstr) <= 0 Then
Exit Do
End If
Dim bHex As Byte
bHex = Int("&H" & Left(aSJISstr, 1)) * 16 + Int("&H" & Mid(aSJISstr, 2, 1))
aSJISstr = Right(aSJISstr, Len(aSJISstr) - 2)
aryByte(i) = bHex
i = i + 1
Loop
ConvStrtoSJISCodeStr = StrConv(aryByte, vbUnicode)
End Function
エクセルVBAでダイアログボックスを表示させ複数ファイル選択
エクセルファイル複数選択例
Option Explicit
Sub OpenExcelFile()
Dim openFilePath As Variant
'ダイアログボックスで選択したファイルを配列に入れる
'MultiSelect:=Trueにすると複数ファイル選択OK
openFilePath = Application.GetOpenFilename _
("Microsoft Excel ファイル,*.xls*", , "エクセルファイルを選んで下さい", MultiSelect:=True)
Dim pt As Variant
If IsArray(openFilePath) Then
'配列ぶん繰り返しファイル処理
For Each pt In openFilePath
Debug.Print(pt)
Next pt
End If
End Sub
