ExcelVBA 日付の比較

'日付の比較 a = CDate("2020/1/1") b = CDate("2020/1/2") If a < b Then '大なり If a > b Then '小なり If a = b Then '等しい If a <> b Then '等しくない ネタ元 daitaideit.com

MFC 転送URLの転送先を取得

変数urlに URLが入ってるとしての処理 szRedirectが!=""なら転送。ここに転送先URLが入ってる // 転送URL先URL取得 CString Server_Host_Address; CString FileLocation; CString Referer; CString SaveDirectory; CString SaveName; CString tmpUrl = url; …

VBScriptで、32 ビットまたは 64 ビットの Windows OS を実行しているかどうかを判断

strOSArch = GetObject("winmgmts:root\cimv2:Win32_OperatingSystem=@").OSArchitecture If Instr(strOSArch,"64") <> 0 Then 'OSが64ビット MsgBox "64" Else 'OSが32ビット MsgBox "32" End if以下は完璧じゃないっぽい Dim WshShell Dim WshProcEnv Dim …

inno setup の インストーラーの64bit/32bit指定方法

1)x64対応アプリ、インストーラをx64環境で動かす。 ArchitecturesInstallIn64BitMode=x64 ArchitecturesAllowed=x642)x86対応アプリ、インストーラをx86環境で動かす。 ;ArchitecturesInstallIn64BitModeは記述しない ArchitecturesAllowed=x863)x86対応ア…

BATファイルでファイルが存在している場合にのみコマンドを実行する

if exist [ファイル名] [コマンド] if exist "file.txt" echo ファイルが存在しています。 ネタ元 jj-blues.com

AfxMessageBoxのアイコン指定

Infomationにするなら AfxMessageBox("「MB_ICONINFORMATION」を指定",MB_ICONINFORMATION); ネタ元 www.dinop.com

バッチファイルで終了

exit /b ネタ元 www.javadrive.jp

MFCで バージョン表記の文字列などから数値部分だけ抽出

CString csTempVer = "1.2.33"; CString csNum = ""; int pos; while (!csTempVer.IsEmpty()) { pos = csTempVer.SpanExcluding("0123456789").GetLength(); csTempVer = csTempVer.Mid(pos); pos = csTempVer.SpanIncluding("0123456789").GetLength(); csN…

MFCでDoEvent

void DoEvents() { MSG msg; while(::PeekMessage(&msg, NULL, NULL, NULL, PM_NOREMOVE)) { if (!AfxGetApp()->PumpMessage()) return; } } ネタ元 https://freebsd.sing.ne.jp/lang/c/10/02.html

MFC ファイルコピー 移動 削除 リネーム

CopyFile() MoveFile() DeleteFile() CFile::Rename()www.kazetest.com

BMPの減色。フリーソフトで変換するなら「BatchGOO!」

www.vector.co.jp

MFCでexe起動。終了を待つ。

CString exe_path; exe_path = "c:\\hogehoge.exe"; SHELLEXECUTEINFO sei = { 0 }; //構造体のサイズ sei.cbSize = sizeof(SHELLEXECUTEINFO); //起動側のウインドウハンドル sei.hwnd = NULL; //起動後の表示状態 sei.nShow = SW_SHOWNORMAL; //このパラメ…

kindle本のキャンセル

スマホにamazonアプリいれてやりましょう。 PCでもできるっぽいけど、メニューが見つからなかった。www.kyodotokyo.com

MFCでURL指定ファイルダウンロード

URLDownloadToFile()使おうDeleteUrlCacheEntry ()も使わないとキャッシュされたデータが何度もくるかもよ。 ネタ元 sarumosunaru.blog71.fc2.com www.tokovalue.jp

CFileを使ったファイルの一発読み書き

読み CFile f; CString writeData=""; if ( f.Open("test.txt",CFile::modeRead) == TRUE) { unsigned int flen = (unsigned int)f.GetLength(); unsigned char *data = (unsigned char *)malloc(flen+1); if ( data != NULL ) { f.Read(data,flen); data[fl…

stl mapでキーの有無を調べる

map<int, string> m; ... if (m.count(n) == 0){ // ない }else{ // ある } ネタ元 minus9d.hatenablog.com</int,>

vectorの要素削除

// 0 〜 4が入ったvector型変数numbersを用意 std::vector<int> numbers {0, 1, 2, 3, 4}; // aとbを除きたい int a = 1; int b = 3; // iteratorで内部要素を回し、該当値であればその要素を削除 for (auto itr = numbers.begin(); itr != numbers.end(); itr++)</int>…

vectorのソート

int main(){ std::vector<int> data; data.push_back(5); data.push_back(1); data.push_back(2); data.push_back(3); data.push_back(4); std::sort(data.begin(),data.end());//昇順ソート ... ネタ元 7ujm.net</int>

MFCでファイルサイズ取得

CFileStatus fileStatus; if (CFile::GetStatus(filePath, fileStatus)) { // ファイルサイズ msg.Format(_T("ファイルサイズ:%d\n"), fileStatus.m_size); OutputDebugString(msg); ... ネタ元 www.paveway.info

SQLite には、データを一括挿入するための特別な方法はありません

SQLite には、データを一括挿入するための特別な方法はありません。 データの挿入または更新時に最適なパフォーマンスを得るには、以下を行ってください。トランザクションの使用。 同じパラメーター化コマンドの再利用。 後続の実行で、最初の実行のコンパ…

SOLANAの取引履歴取れるサイト

CSVで取れます。 ここから日本円での損益を簡単に計算するサービスはないものかhttps://stake.tax/

ExcelVBA ThisWorkbook.RefleshAllで更新待ちしてくれない対策

サンプル。指定シートの更新を行ってから待つクラス CQtEvents Option Explicit Private WithEvents mQryTble As QueryTable Private mRefreshed As Boolean Private mCallback As String Public Property Set QryTble(ByVal QryTable As QueryTable): Set m…

過去の気象データダウンロード

便利https://www.data.jma.go.jp/gmd/risk/obsdl/index.php

ExcelVBAでテキストファイルを比較

'テキストファイルの比較 '同じならTrue / 違うなら False Function DiffTxtFile(aFilepath1 As String, aFilepath2 As String) As Boolean DiffTxtFile = True ' 機能:2つのテキストファイルを比較する ' 【変数定義】 Dim file1(1) As String ' ファイル…

ブログやホームページなどで他サイトRSSの情報表示

まめわざさんのを使う mamewaza.com

コピー元シートから指定してセル範囲を別シートにコピーする

A1:C5の内容を別シートのA1にコピー Sheets("コピー元").Range("A1", "C5").Copy _ Destination:=Sheets("コピー先").Range("A1") ネタ元 www.relief.jp

webview2 Edgeでキャッシュクリア

C++なら m_coreWebView2->CallDevToolsProtocolMethod("Network.clearBrowserCache", "{}", handler); .NETなら _coreWebView2.CallDevToolsProtocolMethodAsync("Network.clearBrowserCache", "{}"); ネタ元 github.com

SQLite データベースから取り出したデータを連結する

例えばカンマ区切りで出力 SELECT 列名 || ',' ||列名 FROM 表名: ネタ元 atmarkit.itmedia.co.jp

ExcelVBA 1階層上の親ディレクトリパスを取得「ParentDirName」

Function ParentDirName() As String With ThisWorkbook ParentDirName = Left(.Path, InStrRev(.Path, "\") - 1) End With End Function ネタ元 www.vba-ie.net

sqlite テーブル一覧から、最新のテーブルで逆順ソートした1番目の名前のみ取り出す

select name from sqlite_master where type='table' order by name DESC LIMIT 1; ネタ元 www.dbonline.jpmemo.morelents.com