Skip to content

Instantly share code, notes, and snippets.

View satob's full-sized avatar

SATO Yusuke satob

View GitHub Profile
'*********************************************************************
'* MS-Officeファイルを読取専用でOpen ver.1.2
'* -------------------------------------------------------------------
'* Copyright(C) 2007 ASANO, Sei (http://sei.qee.jp)
'* 2009 SATO, Yusuke (yusuke.sato.zz@gmail.com)
'* 2006/10/28 ver.1.0
'* 2007/02/21 ver.1.1 ファイルを開いたあと、アプリケーションをアクティブ化
'* 2009/12/13 ver.1.2 PowerPoint, MS Projectに対応
'* RTFファイルを対応に追加
'* Office Open XML形式の拡張子に対応
@satob
satob / KskMjHikanji.csv
Created May 8, 2017 15:34
JIS X 0208非漢字に対する戸籍統一文字情報 (see http://satob.hatenablog.com/entry/2017/05/05/222854)
KskMjBng On JoyoOn Kun JoyoKun Strokes JIS JIS2004 Unicode UnicodeJIS2004 SJIS SJIS2004 KskMjKbn KskMjOyaKbn
901690 1 1 3000 3000 8140 8140 非漢字 親字・正字
901700 1 1 3001 3001 8141 8141 非漢字 親字・正字
901710 1 1 3002 3002 8142 8142 非漢字 親字・正字
901720 1 1 FF0C FF0C 8143 8143 非漢字 親字・正字
901730 1 1 FF0E FF0E 8144 8144 非漢字 親字・正字
901740 1 1 30FB 30FB 8145 8145 非漢字 親字・正字
901750 1 1 FF1A FF1A 8146 8146 非漢字 親字・正字
901760 1 1 FF1B FF1B 8147 8147 非漢字 親字・正字
901770 1 1 FF1F FF1F 8148 8148 非漢字 親字・正字
@satob
satob / ABlob_AAD_Snapshot.json
Created November 10, 2017 15:27
Replace a value in a JSON file using Powershell
{
"name": "AzureBlobStore",
"properties": {
"type": "AzureStorage",
"activities": [
{
"type": "Copy",
"scheduler": {
"frequency": "Week",
"interval": 1
@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 変体かな、非漢字 親字・正字
@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.
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
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;
# 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;
$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()]>;