Skip to content

Instantly share code, notes, and snippets.

View satob's full-sized avatar

SATO Yusuke satob

View GitHub Profile
@satob
satob / LogPresenceToXlsx.ps1
Last active November 28, 2021 05:48
Microsoft Graph APIでユーザのプレゼンスを取得して.xlsxファイルに記録
$fileName = "C:\tmp\ActivityLog.xlsx"
$sheetName = "activity"
$provider = "Provider=Microsoft.ACE.OLEDB.12.0"
$dataSource = "Data Source = $fileName"
$extend = "Extended Properties=Excel 12.0"
$checkExistenceSQL = "CREATE TABLE [${sheetName}$] ([Time] DATETIME, [Email] VARCHAR, [Id] VARCHAR, [Availability] VARCHAR, [Activity] VARCHAR)"
$ddlSQL = "CREATE TABLE [$sheetName] ([Time] DATETIME, [Email] VARCHAR, [Id] VARCHAR, [Availability] VARCHAR, [Activity] VARCHAR)"
$conn = New-Object System.Data.OleDb.OleDbConnection("$provider;$dataSource;$extend")
$sqlCommand = New-Object System.Data.OleDb.OleDbCommand
$sqlCommand.Connection = $conn
@satob
satob / Minimum.wxs
Created November 3, 2021 15:04
「プログラムと機能」にエントリを追加するだけのMSI
<?xml version='1.0' encoding='utf-8'?>
<Wix xmlns='http://schemas.microsoft.com/wix/2006/wi'>
<Product Name='「プログラムと機能」の「名前」'
Id='3f0cbfd7-fbe5-45f4-80fc-f4487b757cad'
UpgradeCode='5f7bce8e-2bb2-445f-b8da-1748b15913ff'
Language='1041' Codepage='932'
Version='1.2.3.4' Manufacturer='「プログラムと機能」の「発行元」'>
<Package Id='*' Keywords='「ファイルプロパティ」の「タグ」(任意)'
@satob
satob / OracleInClause100001Entry.sql
Created October 29, 2021 15:23
SELECT with IN clause that contains 100,001 entries for Oracle 21c
This file has been truncated, but you can view the full file.
CREATE TABLE TBL_A (ID CHAR(4), NAME VARCHAR2(20));
INSERT INTO TBL_A VALUES ('1', 'JOHN DOE');
timing start;
SELECT NAME, 100001 TBL_A FROM TBL_A WHERE (ID, 1) IN (
('1', 1), ('2', 1), ('3', 1), ('4', 1), ('5', 1), ('6', 1), ('7', 1), ('8', 1), ('9', 1), ('10', 1), ('11', 1), ('12', 1), ('13', 1), ('14', 1), ('15', 1), ('16', 1), ('17', 1), ('18', 1), ('19', 1), ('20', 1), ('21', 1), ('22', 1), ('23', 1), ('24', 1), ('25', 1), ('26', 1), ('27', 1), ('28', 1), ('29', 1), ('30', 1), ('31', 1), ('32', 1), ('33', 1), ('34', 1), ('35', 1), ('36', 1), ('37', 1), ('38', 1), ('39', 1), ('40', 1), ('41', 1), ('42', 1), ('43', 1), ('44', 1), ('45', 1), ('46', 1), ('47', 1), ('48', 1), ('49', 1), ('50', 1), ('51', 1), ('52', 1), ('53', 1), ('54', 1), ('55', 1), ('56', 1), ('57', 1), ('58', 1), ('59', 1), ('60', 1), ('61', 1), ('62', 1), ('63', 1), ('64', 1), ('65', 1), ('66', 1), ('67', 1), ('68', 1), ('69', 1), ('70', 1), ('71', 1), ('72', 1), ('73', 1), ('74', 1), ('75', 1), ('76', 1), ('77', 1), ('78', 1), ('79', 1)
�e�X�g�ł��B�@�A�B
$esc = '\\\\'; $Period = '\.';
$space = '\040'; $tab = '\t';
$OpenBR = '\['; $CloseBR = '\]';
$OpenParen = '\('; $CloseParen = '\)';
$NonASCII = '\x80-\xff'; $ctrl = '\000-\037';
$CRlist = '\n\015';
$qtext = qq/[^$esc$NonASCII$CRlist\"]/;
$dtext = qq/[^$esc$NonASCII$CRlist$OpenBR$CloseBR]/;
$quoted_pair = qq<${esc}[^$NonASCII]>;
$ctext = qq<[^$esc$NonASCII$CRlist()]>;
# http://www.din.or.jp/~ohzaki/mail_regex.htm#RFC
my $CR = qq{\\x0D};
my $LF = qq{\\x0A};
my $CRLF = qq{(?:\\x0D\\x0A)};
my $VCHAR = qq{[\\x21-\\x7E]};
my $WSP = qq{[\\x20\\x09]};
my $obs_NO_WS_CTL = qq{[\\x01-\\x08\\x0B\\x0C\\x0E-\\x1F\\x7F]};
my $obs_ctext = $obs_NO_WS_CTL;
my $obs_qtext = $obs_NO_WS_CTL;
import lombok.ToString;
@ToString
public class BeanWithSoManyFields {
private String a001;
private String a002;
private String a003;
private String a004;
private String a005;
private String a006;
We can make this file beautiful and searchable if this error is corrected: It looks like row 8 should actually have 12 columns, instead of 7. in line 7.
UPDATE_TIME,HOUSE,FAMILY_NAME,GIVEN_NAME,REAL_FAMILY_NAME,REAL_GIVEN_NAME,URL,FAMILY_NAME_KANA,GIVEN_NAME_KANA,PARLIAMENTARY,RAW_DISTRICT,PR
2020/04/16,Representatives,逢沢,一郎,,,http://www.shugiin.go.jp/internet/itdb_giinprof.nsf/html/profile/117.html,あいさわ,いちろう,自民,岡山1,FALSE
2020/04/16,Representatives,青柳,陽一郎,,,http://www.shugiin.go.jp/internet/itdb_giinprof.nsf/html/profile/117.html,あおやぎ,よういちろう,立国社,神奈川6,FALSE
2020/04/16,Representatives,青山,周平,,,http://www.shugiin.go.jp/internet/itdb_giinprof.nsf/html/profile/117.html,あおやま,しゅうへい,自民,(比)東海,TRUE
2020/04/16,Representatives,青山,雅幸,,,http://www.shugiin.go.jp/internet/itdb_giinprof.nsf/html/profile/117.html,あおやま,まさゆき,維新,(比)東海,TRUE
2020/04/16,Representatives,青山,大人,,,http://www.shugiin.go.jp/internet/itdb_giinprof.nsf/html/profile/117.html,あおやま,やまと,立国社,(比)北関東,TRUE
2020/04/16,Representatives,赤澤,亮正,,,http://www.shugiin.go.jp/internet/itdb_giinprof.nsf/html/profile/117.html,あかざわ,りょうせい,自民,鳥取2,FALSE
2020/04/16,Representatives,赤羽,一嘉,,,http://www.shugiin.go.jp/internet/itdb_giinpr
@satob
satob / TestPDF.pdf
Last active August 15, 2018 18:24
ブラウザ表示オプションテスト用PDF
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@satob
satob / KskMjHikanji_JISX0213-2004.csv
Created August 15, 2018 17:08
IS X 0213:2004非漢字に対する戸籍統一文字情報 (see http://d.hatena.ne.jp/satob/20180812/p1)
KskMjBng On JoyoOn Kun JoyoKun Strokes JIS JIS2004 Unicode UnicodeJIS2004 SJIS SJIS2004 KskMjKbn KskMjOyaKbn
900010 変体かな、非漢字 親字・正字
900020 変体かな、非漢字 親字・正字
900030 変体かな、非漢字 親字・正字
900040 変体かな、非漢字 親字・正字
900050 変体かな、非漢字 親字・正字
900060 変体かな、非漢字 親字・正字
900070 変体かな、非漢字 親字・正字
900080 変体かな、非漢字 親字・正字
900090 変体かな、非漢字 親字・正字