2022-02-01から1ヶ月間の記事一覧

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

MFCでファイルが存在するかチェック

CFileFind find; CString filePath = _T("C:\sample.txt"); if (find.FindFile(filePath)) { // ファイルが存在する場合 } else { // ファイルが存在しない場合 } ネタ元 www.paveway.info

sqlite3でテーブルの一覧を取得

select name from sqlite_master where type='table'; ネタ元 orebibou.com

ExcelVBA Dir関数でのフォルダ存在チェック

Public Function IsExistDirA(a_sFolder As String) As Boolean Dim result result = Dir(a_sFolder, vbDirectory) If result = "" Then '// フォルダが存在しない IsExistDirA = False Else '// フォルダが存在する IsExistDirA = True End If End Function…

ExcelVBA 指定時間でダイアログを閉じる

検索上位ででてくるWSH使うのは安定しないから使わないほうが良い Private Declare Function MessageBoxTimeoutA Lib "user32" ( _ ByVal hWnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal uType As Long, _ ByVal wLanguageI…