テックメモ – ページ 21 – 自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。

2020-08-04

C# 例外メモ

Try句の中では階層が深いところの例外でもキャッチできる。

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message); // 0で除算しようとしました。
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            new Test2();
        }
    }

    class  Test2
    {
        public Test2()
        {
            int i = 0;
            int ii = 1 / i;
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show(e.Message); // 0で除算しようとしました。

}

class Test

{

public void TestMethod()

{

new Test2();

}

class Test2

{

public Test2()

{

int i = 0;

int ii = 1 / i;

}

Try句自体が階層になっている場合は上位に通知されない。

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message); // ①
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            try
            {
                int i = 0;
                int ii = 1 / i;
            }
            catch (Exception e)
            {
                MessageBox.Show(e.Message); // ②
                // 0で除算しようとしました。
                // ①ではキャッチされない
            }
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show(e.Message); // ①

}

class Test

{

public void TestMethod()

{

try

{

int i = 0;

int ii = 1 / i;

}

catch (Exception e)

{

MessageBox.Show(e.Message); // ②

// 0で除算しようとしました。

// ①ではキャッチされない

}

上位に通知する場合はCatch句の中でThrowする。

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show(e.Message); // 0で除算しようとしました。
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            try
            {
                int i = 0;
                int ii = 1 / i;
            }
            catch (Exception e)
            {
                MessageBox.Show(e.Message); // 0で除算しようとしました。
                
                throw; // これでメッセージが2度表示される

            }
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show(e.Message); // 0で除算しようとしました。

}

class Test

{

public void TestMethod()

{

try

{

int i = 0;

int ii = 1 / i;

}

catch (Exception e)

{

MessageBox.Show(e.Message); // 0で除算しようとしました。

throw; // これでメッセージが2度表示される

}

メッセージを持って上位に通知することもできる。①、②と表示される。

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            try
            {
                new Test().TestMethod();
            }
            catch(Exception e)
            {
                MessageBox.Show("②" + e.Message); // ②エラー
            }
        }
    }

    class Test
    {
        public void TestMethod()
        {
            try
            {
                int i = 0;
                int ii = 1 / i;
            }
            catch (Exception e)
            {
                MessageBox.Show("①" + e.Message); // ①0で除算しようとしました。

                throw new Exception("エラー");
            }
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

try

{

new Test().TestMethod();

}

catch(Exception e)

{

MessageBox.Show("②" + e.Message); // ②エラー

}

class Test

{

public void TestMethod()

{

try

{

int i = 0;

int ii = 1 / i;

}

catch (Exception e)

{

MessageBox.Show("①" + e.Message); // ①0で除算しようとしました。

throw new Exception("エラー");

}

2020-08-032020-08-11

C# Delegate メモ

基本

    public partial class Form1 : Form
    {
        // 宣言
        // 戻値の型 デリゲート名 (引数)
        delegate int TestDelegate(string s);

        // デリゲートとメソッドは引数/返値が同じにする

        private int TestMethod (string msg)
        {
            return msg.Length;
        }

        public Form1()
        {
            InitializeComponent();

            // 生成
            // 引数にはメソッドを渡す
            TestDelegate td1 = new TestDelegate(TestMethod);
            // C#2.0からはnew不要(TestDelegate td2 = TestMethod)とも書ける

            // 実行
            System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3
        }
    }

public partial class Form1 : Form

{

// 宣言

// 戻値の型デリゲート名 (引数)

delegate int TestDelegate(string s);

// デリゲートとメソッドは引数/返値が同じにする

private int TestMethod (string msg)

{

return msg.Length;

}

public Form1()

{

InitializeComponent();

// 生成

// 引数にはメソッドを渡す

TestDelegate td1 = new TestDelegate(TestMethod);

// C#2.0からはnew不要(TestDelegate td2 = TestMethod)とも書ける

// 実行

System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3

}

複数代入できる(マルチキャスト)

    public partial class Form1 : Form
    {
        delegate void TestDelegate();

        private void TestMethod1 ()
        {
            System.Diagnostics.Debug.Print("hello");
        }
        private void TestMethod2 ()
        {
            System.Diagnostics.Debug.Print("world");
        }

        public Form1()
        {
            InitializeComponent();

            TestDelegate td = TestMethod1;
            td += TestMethod2;
            td(); // hello world

        }
    }

public partial class Form1 : Form

{

delegate void TestDelegate();

private void TestMethod1 ()

{

System.Diagnostics.Debug.Print("hello");

}

private void TestMethod2 ()

{

System.Diagnostics.Debug.Print("world");

}

public Form1()

{

InitializeComponent();

TestDelegate td = TestMethod1;

td += TestMethod2;

td(); // hello world

}

匿名関数(匿名メソッド・ラムダ式)

C#2.0から匿名メソッド、C#3.0ラムダ式

    public partial class Form1 : Form
    {
        delegate int TestDelegate(string x);

        public Form1()
        {
            InitializeComponent();

            // 匿名メソッド
            TestDelegate td1 = delegate (string x)
            {
                return x.Length;
            };

            System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3

            // ラムダ式
            TestDelegate td2 = (x) =>
            {
                return x.Length;
            };

            System.Diagnostics.Debug.Print(td1("hello").ToString()); // 5

        }
    }

public partial class Form1 : Form

{

delegate int TestDelegate(string x);

public Form1()

{

InitializeComponent();

// 匿名メソッド

TestDelegate td1 = delegate (string x)

{

return x.Length;

};

System.Diagnostics.Debug.Print(td1("abc").ToString()); // 3

// ラムダ式

TestDelegate td2 = (x) =>

{

return x.Length;

};

System.Diagnostics.Debug.Print(td1("hello").ToString()); // 5

}

C#2.0でジェネリック(型パラーメータ)が導入。Action,Func(返値有)を使うとDelegateの定義も不要になる。Action,Func等を定義済みデリゲートと呼ぶ。

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            Func<string,int> td = delegate (string x)
            {
                return x.Length;
            };

            System.Diagnostics.Debug.Print(td("abc").ToString()); // 3
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

Func<string,int> td = delegate (string x)

{

return x.Length;

};

System.Diagnostics.Debug.Print(td("abc").ToString()); // 3

}

実用性はないけど、ラムダ式と定義済みデリゲートで即時実行もできる。

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            // ラムダ式をFunc<string>にキャストして即時実行している
            MessageBox.Show(
            ((Func<string>)(() => { return "hello1"; }))()
            );
            
            // 引数をとることもできる。
            MessageBox.Show(
            ((Func<string,string>)((string x) => { return x; }))("hello2")
            );
            
        }
    }

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

// ラムダ式をFunc<string>にキャストして即時実行している

MessageBox.Show(

((Func<string>)(() => { return "hello1"; }))()

);

// 引数をとることもできる。

MessageBox.Show(

((Func<string,string>)((string x) => { return x; }))("hello2")

);

}

2020-06-012020-06-01

VBA 仕入台帳から注文書

台帳に入力された内容を注文書の雛形に書き込み、指定したブックに新しいシートとして複写する。レジストリにパスを保存することでブックを記憶することができる。

Sub OrderSheet()

'HKEY_CURRENT_USER\Software\VB and VBA Program Setting

On Error GoTo exception

If (Not ActiveWorkbook Is ThisWorkbook) Then
  MsgBox msg("仕入台帳で起動してください")
  Exit Sub
End If

If ThisWorkbook.ReadOnly = True Then
  If MsgBox("仕入台帳が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub
End If

tRow = Selection(1).Row
bRow = Selection(Selection.Count).Row

If (bRow - tRow) + 1 > 12 Then
  If MsgBox("選択範囲が12行を超えていますが続けますか？", vbYesNo) = vbNo Then Exit Sub
End If

orderBookPath = GetSetting("注文書", "パス", Application.UserName)

If orderBookPath <> "" Then
  isUseRegPath = MsgBox("記憶した保存先を使用しますか？", vbYesNo)
End If

If isUseRegPath = vbYes Then

  Workbooks.Open Filename:=orderBookPath
  orderBookName = ActiveWorkbook.Name
  
Else ' vbNo, Falseの場合

  orderBookPath = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx;*.xlsm")
  If orderBookPath = False Then Exit Sub
  
  SaveSetting "注文書", "パス", Application.UserName, orderBookPath
  
  Workbooks.Open Filename:=orderBookPath
  orderBookName = ActiveWorkbook.Name
  
End If

If Workbooks(orderBookName).ReadOnly = True Then
  If MsgBox("注文書の保存先が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub
End If

Set thissheet = ThisWorkbook.ActiveSheet

If StrConv(thissheet.Range("E" & tRow & "").Text, vbNarrow) Like "*ﾗｷﾞﾝｸﾞ*" Then
  If MsgBox("ラギング注文書を使用しますか？", vbYesNo) = vbYes Then
    ThisWorkbook.Sheets("ラギング注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)
  Else
    ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)
  End If
Else
  ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)
End If

Set targetSheet = Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count) '注文書の複写後に代入

targetSheet.Range("G9").Value = Application.UserName
targetSheet.Range("A4").Value = thissheet.Range("C" & tRow & "").Text & "　御中"
targetSheet.Range("G15").Value = Format(thissheet.Range("D" & tRow & "").Text, "yymmdd")

If thissheet.Range("D" & tRow & "").Text = "" Then
  targetSheet.Range("G15").Value = Format(Now, "yymmdd")
End If

targetRow = 18
For r = tRow To bRow

  targetSheet.Range("A" & targetRow & "").Value = thissheet.Range("E" & r & "").Value & " " & thissheet.Range("F" & r & "").Value & " " & thissheet.Range("G" & r & "").Value
  targetSheet.Range("B" & targetRow & "").Value = thissheet.Range("M" & r & "").Value
  targetSheet.Range("C" & targetRow & "").Value = thissheet.Range("K" & r & "").Value
  targetSheet.Range("D" & targetRow & "").Value = thissheet.Range("L" & r & "").Value
  
  If thissheet.Range("H" & r & "").Value <> "" Then
    targetSheet.Range("F" & targetRow & "").Value = thissheet.Range("H" & r & "").Value & "へ納品"
  End If
  
  targetSheet.Range("G" & targetRow & "").Value = thissheet.Range("I" & r & "").Value
  targetSheet.Range("H" & targetRow & "").Value = thissheet.Range("J" & r & "").Value
  
targetRow = targetRow + 1

Next r

If MsgBox("仕入台帳を保存しますか？", vbYesNo) = vbYes Then
  ThisWorkbook.Save
End If

If MsgBox("注文書を保存しますか？", vbYesNo) = vbYes Then
  Workbooks(orderBookName).Save
End If

Exit Sub

exception:

MsgBox Err.Description

End Sub

100

101

102

103

104

105

Sub OrderSheet()

'HKEY_CURRENT_USER\Software\VB and VBA Program Setting

On Error GoTo exception

If (Not ActiveWorkbook Is ThisWorkbook) Then

MsgBox msg("仕入台帳で起動してください")

Exit Sub

End If

If ThisWorkbook.ReadOnly = True Then

If MsgBox("仕入台帳が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub

End If

tRow = Selection(1).Row

bRow = Selection(Selection.Count).Row

If (bRow - tRow) + 1 > 12 Then

If MsgBox("選択範囲が12行を超えていますが続けますか？", vbYesNo) = vbNo Then Exit Sub

End If

orderBookPath = GetSetting("注文書", "パス", Application.UserName)

If orderBookPath <> "" Then

isUseRegPath = MsgBox("記憶した保存先を使用しますか？", vbYesNo)

End If

If isUseRegPath = vbYes Then

Workbooks.Open Filename:=orderBookPath

orderBookName = ActiveWorkbook.Name

Else ' vbNo, Falseの場合

orderBookPath = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx;*.xlsm")

If orderBookPath = False Then Exit Sub

SaveSetting "注文書", "パス", Application.UserName, orderBookPath

Workbooks.Open Filename:=orderBookPath

orderBookName = ActiveWorkbook.Name

End If

If Workbooks(orderBookName).ReadOnly = True Then

If MsgBox("注文書の保存先が読み取り専用ですが続けますか？", vbYesNo) = vbNo Then Exit Sub

End If

Set thissheet = ThisWorkbook.ActiveSheet

If StrConv(thissheet.Range("E" & tRow & "").Text, vbNarrow) Like "*ﾗｷﾞﾝｸﾞ*" Then

If MsgBox("ラギング注文書を使用しますか？", vbYesNo) = vbYes Then

ThisWorkbook.Sheets("ラギング注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)

Else

ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)

End If

Else

ThisWorkbook.Sheets("注文書").Copy After:=Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count)

End If

Set targetSheet = Workbooks(orderBookName).Sheets(Workbooks(orderBookName).Sheets.Count) '注文書の複写後に代入

targetSheet.Range("G9").Value = Application.UserName

targetSheet.Range("A4").Value = thissheet.Range("C" & tRow & "").Text & "　御中"

targetSheet.Range("G15").Value = Format(thissheet.Range("D" & tRow & "").Text, "yymmdd")

If thissheet.Range("D" & tRow & "").Text = "" Then

targetSheet.Range("G15").Value = Format(Now, "yymmdd")

End If

targetRow = 18

For r = tRow To bRow

targetSheet.Range("A" & targetRow & "").Value = thissheet.Range("E" & r & "").Value & " " & thissheet.Range("F" & r & "").Value & " " & thissheet.Range("G" & r & "").Value

targetSheet.Range("B" & targetRow & "").Value = thissheet.Range("M" & r & "").Value

targetSheet.Range("C" & targetRow & "").Value = thissheet.Range("K" & r & "").Value

targetSheet.Range("D" & targetRow & "").Value = thissheet.Range("L" & r & "").Value

If thissheet.Range("H" & r & "").Value <> "" Then

targetSheet.Range("F" & targetRow & "").Value = thissheet.Range("H" & r & "").Value & "へ納品"

End If

targetSheet.Range("G" & targetRow & "").Value = thissheet.Range("I" & r & "").Value

targetSheet.Range("H" & targetRow & "").Value = thissheet.Range("J" & r & "").Value

targetRow = targetRow + 1

Next r

If MsgBox("仕入台帳を保存しますか？", vbYesNo) = vbYes Then

ThisWorkbook.Save

End If

If MsgBox("注文書を保存しますか？", vbYesNo) = vbYes Then

Workbooks(orderBookName).Save

End If

Exit Sub

exception:

MsgBox Err.Description

End Sub

2020-05-102023-03-08

Excel

シート設定

・シート名は1～
・行列の先頭の空白削除
・高さは13、幅は8と入力
・メイリオ, 9px
・左揃え、上下中央揃え
・ズームは100%
・スクロールは先頭
・内容はG列までに入力

埋め込み

ファイル＞共有＞埋め込み

・外観と操作

常にこのセルが選択された状態で開始するをA1に変更し、その他のチェックは全て外す。

・大きさ

999と入力(700px×900px)

画像

ローカルOneDrive内
右クリック＞オンラインで表示＞埋め込み＞生成
HTMLタグを含めるにチェック。

2020-05-042020-05-04

Chrome拡張機能新規タブにデータを渡す

右クリックにメニューを表示し、クリックするとアクティブタブのタイトルとURLを新しいタブ(ローカルhtml)に渡すサンプル。

フォルダには下記4つのファイルとjquery-3.5.0.min.jsを入れてある。

manifest.json

{
	"manifest_version": 2,
	"name": "右クリック",
	"description": "",
	"version": "1.0",
	"background" : {
		"scripts" : ["background.js"]
	},
	"permissions" : ["contextMenus","tabs","storage"]
}

{

"manifest_version": 2,

"name": "右クリック",

"description": "",

"version": "1.0",

"background" : {

"scripts" : ["background.js"]

"permissions" : ["contextMenus","tabs","storage"]

}

background.js

chrome.contextMenus.create({
  "title" : "Bookmark",
  "type"  : "normal",
  "contexts" : ["page"],
  "onclick" : () => {
		chrome.tabs.getSelected((currentTab) => {
			let values = {
				'title':currentTab.title,
				'url':currentTab.url
			};
			chrome.storage.sync.set(values, null);
			chrome.tabs.create({url: "test.html"}, null);
		});
	}
});

chrome.contextMenus.create({

"title" : "Bookmark",

"type" : "normal",

"contexts" : ["page"],

"onclick" : () => {

chrome.tabs.getSelected((currentTab) => {

let values = {

'title':currentTab.title,

'url':currentTab.url

};

chrome.storage.sync.set(values, null);

chrome.tabs.create({url: "test.html"}, null);

});

}

});

test.html

<p id="msg"></p>
<script src="jquery-3.5.0.min.js"></script>
<script src="test.js"></script>

test.js

$(window).on('load',function(){
  chrome.storage.sync.get(['title', 'url'], (items) => {
    alert(items.title);
    $("#msg").text(items.url);
  });
});

$(window).on('load',function(){

chrome.storage.sync.get(['title', 'url'], (items) => {

alert(items.title);

$("#msg").text(items.url);

});

2020-05-01

VBA 仕入シートコピー・マスタチェック

以前利用していたVBA

Sub Cp()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each w In Sheets
    If w.Name = "集計" Then Sheets("集計").Delete
Next w
Sheets.Add Before:=Sheets(1)
ActiveSheet.Name = "集計"
For Each w In Worksheets
    If w.Name <> "集計" And w.Name <> "注文書" And w.Name <> "マスタ" Then
        If Sheets("集計").UsedRange.Rows.Count = 1 Then
            r = 1
        Else
            r = Sheets("集計").UsedRange.Rows.Count + 1
        End If
        w.UsedRange.Copy
        Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteValues
        Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
        w.UsedRange.ClearContents
    End If
Next w
c = 16 '材料/外注 = 19, 運送=16
k = 2
For i = 1 To Sheets("集計").UsedRange.Rows.Count
    Application.StatusBar = "重複削除中 ... " & i
    If Sheets("集計").Cells(k, c).Value = "" Or Sheets("集計").Cells(k, c).Value = 0 Or IsNumeric(Sheets("集計").Cells(k, c).Value) = False Then
        Sheets("集計").Rows(k).Delete
    Else
        k = k + 1
    End If
Next i
For Each w In Sheets
    If w.Name <> "集計" Then w.Delete
Next w
Application.StatusBar = False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
MsgBox "done"
End Sub

Sub Cp()

Application.ScreenUpdating = False

Application.EnableEvents = False

Application.Calculation = xlCalculationManual

For Each w In Sheets

If w.Name = "集計" Then Sheets("集計").Delete

Next w

Sheets.Add Before:=Sheets(1)

ActiveSheet.Name = "集計"

For Each w In Worksheets

If w.Name <> "集計" And w.Name <> "注文書" And w.Name <> "マスタ" Then

If Sheets("集計").UsedRange.Rows.Count = 1 Then

r = 1

Else

r = Sheets("集計").UsedRange.Rows.Count + 1

End If

w.UsedRange.Copy

Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteValues

Sheets("集計").Cells(r, 1).PasteSpecial Paste:=xlPasteFormats

Application.CutCopyMode = False

w.UsedRange.ClearContents

End If

Next w

c = 16 '材料/外注 = 19, 運送=16

k = 2

For i = 1 To Sheets("集計").UsedRange.Rows.Count

Application.StatusBar = "重複削除中 ... " & i

If Sheets("集計").Cells(k, c).Value = "" Or Sheets("集計").Cells(k, c).Value = 0 Or IsNumeric(Sheets("集計").Cells(k, c).Value) = False Then

Sheets("集計").Rows(k).Delete

Else

k = k + 1

End If

Next i

For Each w In Sheets

If w.Name <> "集計" Then w.Delete

Next w

Application.StatusBar = False

Application.ScreenUpdating = True

Application.EnableEvents = True

Application.Calculation = xlCalculationAutomatic

MsgBox "done"

End Sub

Dim supRange As Range

Sub MainLoop()

' アクティブシートで動作するので注意

Call SetMasterRange

Set w = ActiveSheet

r = 3
Do While w.Cells(r, 2).Value <> ""

  If MasterLoop(w.Cells(r, 2).Value, w.Cells(r, 3).Value) = False Then
    MsgBox r & "行にエラーがあります。"
    Exit Sub
  End If

r = r + 1
Loop

End Sub

Sub SetMasterRange()

' 行末ハードコーディングしているので注意

Set w = Sheets("マスタ")
Set supRange = w.Range("B2:C121")

End Sub

Function MasterLoop(supCode, supName)

For r = 2 To supRange.Rows.Count

  If supRange.Cells(r, 3).Value = supName And supRange.Cells(r, 2).Value = supCode Then
    MasterLoop = True
    Exit Function
  End If
  
Next

MasterLoop = False

End Function

Dim supRange As Range

Sub MainLoop()

' アクティブシートで動作するので注意

Call SetMasterRange

Set w = ActiveSheet

r = 3

Do While w.Cells(r, 2).Value <> ""

If MasterLoop(w.Cells(r, 2).Value, w.Cells(r, 3).Value) = False Then

MsgBox r & "行にエラーがあります。"

Exit Sub

End If

r = r + 1

Loop

End Sub

Sub SetMasterRange()

' 行末ハードコーディングしているので注意

Set w = Sheets("マスタ")

Set supRange = w.Range("B2:C121")

End Sub

Function MasterLoop(supCode, supName)

For r = 2 To supRange.Rows.Count

If supRange.Cells(r, 3).Value = supName And supRange.Cells(r, 2).Value = supCode Then

MasterLoop = True

Exit Function

End If

MasterLoop = False

End Function

2020-04-282021-08-06

WordPress 更新順ウィジェット

以前は最新投稿ウィジェットを更新順に並び替えるカスタマイズをしていたが、バージョンアップの時にもとに戻ってしまうので専用で作成することにした。

wp-includes/widgets/class-wp-widget-modified-posts.php
を作成する。

以下は手動で記入する。

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {
  register_widget( 'modified_widget' );
}

class modified_widget extends WP_Widget {

  function __construct() {
    $widget_ops = array(
      'classname' => 'modified_widget_class',
      'description' => ''
    );
    parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );
	}

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {

register_widget( 'modified_widget' );

}

class modified_widget extends WP_Widget {

function __construct() {

$widget_ops = array(

'classname' => 'modified_widget_class',

'description' => ''

);

parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );

}

残りの部分は、
wp-includes/widgets/class-wp-widget-recent-posts.php
からwidget,update,formをそのままコピーし、
以下の通り変更。

$r = new WP_Query()
の中にある配列に以下を追加する。
‘orderby’=>’modified’

<span class="post-date">
<?php echo get_the_date( '', $recent_post->ID ); ?>
</span>

<?php echo get_the_date( '', $recent_post->ID ); ?>

</span>

を

<span class="post-date"><br>
更新：<?php echo get_the_modified_date('Y-m-d',$recent_post->ID); ?>
&nbsp;&#047;&nbsp;
投稿：<?php echo get_the_date('Y-m-d',$recent_post->ID); ?>
</span>

更新：<?php echo get_the_modified_date('Y-m-d',$recent_post->ID); ?>

投稿：<?php echo get_the_date('Y-m-d',$recent_post->ID); ?>

</span>

に変更。

<?php

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {
  register_widget( 'modified_widget' );
}

class modified_widget extends WP_Widget {

  function __construct() {
    $widget_ops = array(
      'classname' => 'modified_widget_class',
      'description' => ''
    );
    parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );
	}
	
	public function widget( $args, $instance ) {

		if ( ! isset( $args['widget_id'] ) ) {
			$args['widget_id'] = $this->id;
		}

		$title = ( ! empty( $instance['title'] ) ) ? $instance['title'] : __( 'Recent Posts' );
		$title = apply_filters( 'widget_title', $title, $instance, $this->id_base );

		$number = ( ! empty( $instance['number'] ) ) ? absint( $instance['number'] ) : 5;
		if ( ! $number ) {
			$number = 5;
		}
		$show_date = isset( $instance['show_date'] ) ? $instance['show_date'] : false;

		$r = new WP_Query(

			apply_filters(
				'widget_posts_args',
				array(
					'posts_per_page'      => $number,
					'no_found_rows'       => true,
					'post_status'         => 'publish',
					'ignore_sticky_posts' => true,
					'orderby'             => 'modified',
				),
				$instance
			)
		);

		if ( ! $r->have_posts() ) {
			return;
		}

		?>
		<?php echo $args['before_widget']; ?>
		<?php
		if ( $title ) {
			echo $args['before_title'] . $title . $args['after_title'];
		}
		?>
		<ul>
			<?php foreach ( $r->posts as $recent_post ) : ?>
				<?php
				$post_title   = get_the_title( $recent_post->ID );
				$title        = ( ! empty( $post_title ) ) ? $post_title : __( '(no title)' );
				$aria_current = '';

				if ( get_queried_object_id() === $recent_post->ID ) {
					$aria_current = ' aria-current="page"';
				}
				?>

				<li>
					<a href="<?php the_permalink( $recent_post->ID ); ?>"<?php echo $aria_current; ?>><?php echo $title; ?></a>
					<?php if ( $show_date ) : ?>
						<span class="post-date"><br>
						更新：<?php echo get_the_modified_date('Y-m-d',$recent_post->ID); ?>
						&nbsp;&#047;&nbsp;
						投稿：<?php echo get_the_date('Y-m-d',$recent_post->ID); ?>
						</span>
					<?php endif; ?>
				</li>
			<?php endforeach; ?>
		</ul>
		<?php
		echo $args['after_widget'];
	}

	public function update( $new_instance, $old_instance ) {
		$instance              = $old_instance;
		$instance['title']     = sanitize_text_field( $new_instance['title'] );
		$instance['number']    = (int) $new_instance['number'];
		$instance['show_date'] = isset( $new_instance['show_date'] ) ? (bool) $new_instance['show_date'] : false;
		return $instance;
	}

	public function form( $instance ) {

		$title     = isset( $instance['title'] ) ? esc_attr( $instance['title'] ) : '';
		$number    = isset( $instance['number'] ) ? absint( $instance['number'] ) : 5;
		$show_date = isset( $instance['show_date'] ) ? (bool) $instance['show_date'] : false;

		?>
		<p><label for="<?php echo $this->get_field_id( 'title' ); ?>"><?php _e( 'Title:' ); ?></label>
		<input class="widefat" id="<?php echo $this->get_field_id( 'title' ); ?>" name="<?php echo $this->get_field_name( 'title' ); ?>" type="text" value="<?php echo $title; ?>" /></p>

		<p><label for="<?php echo $this->get_field_id( 'number' ); ?>"><?php _e( 'Number of posts to show:' ); ?></label>
		<input class="tiny-text" id="<?php echo $this->get_field_id( 'number' ); ?>" name="<?php echo $this->get_field_name( 'number' ); ?>" type="number" step="1" min="1" value="<?php echo $number; ?>" size="3" /></p>

		<p><input class="checkbox" type="checkbox"<?php checked( $show_date ); ?> id="<?php echo $this->get_field_id( 'show_date' ); ?>" name="<?php echo $this->get_field_name( 'show_date' ); ?>" />
		<label for="<?php echo $this->get_field_id( 'show_date' ); ?>"><?php _e( 'Display post date?' ); ?></label></p>
		<?php

	}
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

<?php

add_action( 'widgets_init', 'add_widgets' );

function add_widgets() {

register_widget( 'modified_widget' );

}

class modified_widget extends WP_Widget {

function __construct() {

$widget_ops = array(

'classname' => 'modified_widget_class',

'description' => ''

);

parent::__construct( 'modified_widget', '投稿(更新順)', $widget_ops );

}

public function widget( $args, $instance ) {

if ( ! isset( $args['widget_id'] ) ) {

$args['widget_id'] = $this->id;

}

$title = ( ! empty( $instance['title'] ) ) ? $instance['title'] : __( 'Recent Posts' );

$title = apply_filters( 'widget_title', $title, $instance, $this->id_base );

$number = ( ! empty( $instance['number'] ) ) ? absint( $instance['number'] ) : 5;

if ( ! $number ) {

$number = 5;

}

$show_date = isset( $instance['show_date'] ) ? $instance['show_date'] : false;

$r = new WP_Query(

apply_filters(

'widget_posts_args',

array(

'posts_per_page' => $number,

'no_found_rows' => true,

'post_status' => 'publish',

'ignore_sticky_posts' => true,

'orderby' => 'modified',

$instance

)

);

if ( ! $r->have_posts() ) {

return;

}

<?php echo $args['before_widget']; ?>

<?php

if ( $title ) {

echo $args['before_title'] . $title . $args['after_title'];

}

<ul>

<?php foreach ( $r->posts as $recent_post ) : ?>

<?php

$post_title = get_the_title( $recent_post->ID );

$title = ( ! empty( $post_title ) ) ? $post_title : __( '(no title)' );

$aria_current = '';

if ( get_queried_object_id() === $recent_post->ID ) {

$aria_current = ' aria-current="page"';

}

<li>

<?php if ( $show_date ) : ?>

更新：<?php echo get_the_modified_date('Y-m-d',$recent_post->ID); ?>

投稿：<?php echo get_the_date('Y-m-d',$recent_post->ID); ?>

</span>

<?php endif; ?>

</li>

<?php endforeach; ?>

</ul>

<?php

echo $args['after_widget'];

}

public function update( $new_instance, $old_instance ) {

$instance = $old_instance;

$instance['title'] = sanitize_text_field( $new_instance['title'] );

$instance['number'] = (int) $new_instance['number'];

$instance['show_date'] = isset( $new_instance['show_date'] ) ? (bool) $new_instance['show_date'] : false;

return $instance;

}

public function form( $instance ) {

$title = isset( $instance['title'] ) ? esc_attr( $instance['title'] ) : '';

$number = isset( $instance['number'] ) ? absint( $instance['number'] ) : 5;

$show_date = isset( $instance['show_date'] ) ? (bool) $instance['show_date'] : false;

<p><label for="<?php echo $this->get_field_id( 'title' ); ?>"><?php _e( 'Title:' ); ?></label>

<input class="widefat" id="<?php echo $this->get_field_id( 'title' ); ?>" name="<?php echo $this->get_field_name( 'title' ); ?>" type="text" value="<?php echo $title; ?>" /></p>

<p><label for="<?php echo $this->get_field_id( 'number' ); ?>"><?php _e( 'Number of posts to show:' ); ?></label>

<input class="tiny-text" id="<?php echo $this->get_field_id( 'number' ); ?>" name="<?php echo $this->get_field_name( 'number' ); ?>" type="number" step="1" min="1" value="<?php echo $number; ?>" size="3" /></p>

<p><input class="checkbox" type="checkbox"<?php checked( $show_date ); ?> id="<?php echo $this->get_field_id( 'show_date' ); ?>" name="<?php echo $this->get_field_name( 'show_date' ); ?>" />

<label for="<?php echo $this->get_field_id( 'show_date' ); ?>"><?php _e( 'Display post date?' ); ?></label></p>

<?php

}

＊＊＊

有効化について

wp-includes/default-widgets.php
に以下を追加。
require_once ABSPATH . WPINC . ‘/widgets/class-wp-widget-modified-posts.php’;

あるいは以下の方法。

wp-content/plugins
の中に
modified-posts.php
を作成し以下を記入。

<?php

//Plugin Name: Modified Posts

require_once ABSPATH . WPINC . '/widgets/class-wp-widget-modified-posts.php';

<?php

//Plugin Name: Modified Posts

require_once ABSPATH . WPINC . '/widgets/class-wp-widget-modified-posts.php';

そうすると、
管理画面＞プラグイン
にModified Postsと表示されるので有効化する。

2020-04-272024-05-04

Excel 最適化の求め方(変数2つ)

2020-04-212021-07-31

WordPress 記事一覧インクリメンタル検索

wp-content/themes/xxx
の中に適当な名前(ここではpage2.php)を付け下記を貼付け。
固定ページでテンプレートからTESTを選択。

<?php

function footer_article_search(){

echo <<<HTML
  <script>
  jQuery(window).on('load', function() {
    jQuery("#pattern").val('');
    let raw_titles = jQuery("#titles").children();
    jQuery("#pattern").on("keyup",function(){
      jQuery("#titles").empty();
      let pattern = jQuery("#pattern").val();
      if (pattern == "") {
        jQuery("#titles").append(raw_titles);
      } else {
        raw_titles.each(function(){
          let target = jQuery(this).text();
          if (target.toLowerCase().indexOf(pattern) != -1) {
            jQuery("#titles").append(jQuery(this));
          }
        });
      }
    });
  });
  </script>
HTML;
}

function header_article_search(){

echo <<<HTML
  <style>

  li{
    list-style: none;
  }

  .tag, .tag a{
    color: grey;
    font-size: 0.9em;
  }

  #pattern {
    font-size: 16px;
    width: 300px;
  }

  #search input[type="submit"] {
    display: none;
  }

  </style>
HTML;
}

add_action( 'wp_head', 'header_article_search', 1);
add_action( 'wp_footer', 'footer_article_search', 1);

/* Template Name: TEST */

get_header();

?>

<div class="wrap">
<div id="primary" class="content-area">
<main id="main" class="site-main" role="main">

<?php
if (strpos(get_pagenum_link(), "checked")){
  echo '<a href="' . $post->guid . '">投稿日順</a>　';
  echo '[タイトル順]';
} else {
  echo '[投稿日順]　';
  echo '<a href="' . $post->guid . '&checked">タイトル順</a>';
}
?>

<form action="https://www.google.com/search" target="_blank" id="search">
  <input type="text" id="pattern" name="q" placeholder="リスト検索 / サイト内検索"/>
  <input type="hidden" name="hl" value="ja" />
  <input type="hidden" value="https://appbay.org/" name="as_sitesearch" />
  <input type="submit" name="btnG" value="" />
</form>

<?php

if (strpos(get_pagenum_link(), "checked")){
  $args = array(
    'posts_per_page' => -1,
    'post_type' => 'post',
    'orderby' => 'title',
    'order'   => 'asc',
  );
} else {
  $args = array(
    'posts_per_page' => -1,
    'post_type' => 'post',
  );
}

$myposts = get_posts( $args );

echo "<ul id=titles>";
foreach ($myposts as $post) : setup_postdata($post);
  echo "<li>";
  echo "<a target='_blank' href='";
  the_permalink();
  echo "'>";
  the_time('Y-m-d');
  echo "　";
  the_title();
  echo "</a>";
  echo "　";
  echo "<span class='tag'>";
  the_tags("");
  echo "</span>";
echo "</li>";
endforeach; 
echo "</ul>";

wp_reset_postdata();
echo get_the_content();
echo "</main></div></div>";
get_footer();

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

<?php

function footer_article_search(){

echo <<<HTML

jQuery(window).on('load', function() {

jQuery("#pattern").val('');

let raw_titles = jQuery("#titles").children();

jQuery("#pattern").on("keyup",function(){

jQuery("#titles").empty();

let pattern = jQuery("#pattern").val();

if (pattern == "") {

jQuery("#titles").append(raw_titles);

} else {

raw_titles.each(function(){

let target = jQuery(this).text();

if (target.toLowerCase().indexOf(pattern) != -1) {

jQuery("#titles").append(jQuery(this));

}

});

}

});

</script>

HTML;

}

function header_article_search(){

echo <<<HTML

<style>

li{

list-style: none;

}

.tag, .tag a{

color: grey;

font-size: 0.9em;

}

#pattern {

font-size: 16px;

width: 300px;

}

#search input[type="submit"] {

display: none;

}

</style>

HTML;

}

add_action( 'wp_head', 'header_article_search', 1);

add_action( 'wp_footer', 'footer_article_search', 1);

/* Template Name: TEST */

get_header();

<?php

if (strpos(get_pagenum_link(), "checked")){

echo '<a href="' . $post->guid . '">投稿日順</a>　';

echo '[タイトル順]';

} else {

echo '[投稿日順]　';

echo '<a href="' . $post->guid . '&checked">タイトル順</a>';

}

</form>

<?php

if (strpos(get_pagenum_link(), "checked")){

$args = array(

'posts_per_page' => -1,

'post_type' => 'post',

'orderby' => 'title',

'order' => 'asc',

);

} else {

$args = array(

'posts_per_page' => -1,

'post_type' => 'post',

);

}

$myposts = get_posts( $args );

echo "<ul id=titles>";

foreach ($myposts as $post) : setup_postdata($post);

echo "<li>";

echo "<a target='_blank' href='";

the_permalink();

echo "'>";

the_time('Y-m-d');

echo "　";

the_title();

echo "</a>";

echo "　";

echo "<span class='tag'>";

the_tags("");

echo "</span>";

echo "</li>";

endforeach;

echo "</ul>";

wp_reset_postdata();

echo get_the_content();

echo "</main></div></div>";

get_footer();

これで、Enterを押せばGoogleのサイト内検索が実行され、文字を入力するだけならリスト検索(インクリメンタルサーチ)が実行される。

ブログをメモ代わりにしているので過去の記事を探すことも多い。今まではGoogleのサイト内検索だけだったが、タイトルだけ検索できれば十分という場合も多いのでこちらのほうが便利。

記事一覧

2020-04-202020-04-21

C# フォルダ監視(ファイル追加・更新チェック)

簡易的なフォルダの監視ソフトを作ってみた。削除は検知せず、更新(ファイルサイズ)と追加のみ。

拠点間でのファイルの提出をシステム化しようとなり、先ず全てプログラム化かなとも考えたのだが、現状、ファイルの雛形の整理ができていないので、項目全てをプログラムに落とし込むには時間がかかってしまう。

それなら、ファイルそのものをフォルダに入れておけばいいだろうと考え監視ソフトを作ってみた。もっと高機能なソフトがフリーでもあるけど、自作しておくと後々ファイルの名称などでフィルタをかけたり自由にできる。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

using System.Xml.Serialization;
using System.IO;

namespace FileUpdateCheck
{
    public partial class Form1 : Form
    {
        string _XmlPath = Application.StartupPath + @"\dat_path.xml";
        string _XmlFileList = Application.StartupPath + @"\dat_file_list.xml";

        Timer _Timer = new Timer();
        List<MyFileInfo> _BeforeFileList = new List<MyFileInfo>();

        public Form1()
        {
            InitializeComponent();

            EventAttach();
            SetNotifyIcon();

            _Timer.Interval = 1000 * 60; // 1分
            _Timer.Tick += (s, e) => TimerWork();

            ButtonStateChange(ButtonState.waiting);

            if (File.Exists(_XmlPath))
            {
                string path = "";
                using (StreamReader sr = new StreamReader(_XmlPath, Encoding.UTF8))
                {
                    path = (string)new XmlSerializer(typeof(string)).Deserialize(sr);
                }

                if (Directory.Exists(path))
                {
                    TargetFolderPath.Text = path;
                    // PathのXmlが存在し、Pathが有効ならTextboxへ

                    if (File.Exists(_XmlFileList))
                    {
                        using (StreamReader sr = new StreamReader(_XmlFileList, Encoding.UTF8))
                        {
                            _BeforeFileList = new List<MyFileInfo>((List<MyFileInfo>)new XmlSerializer(typeof(List<MyFileInfo>)).Deserialize(sr));
                        }

                        // 自動起動するのはXMLが2つ有った場合
                        // FileListのXmlはストップ時削除するので、2つある場合、ストップしていないということ
                        _Timer.Start();

                        ButtonStateChange(ButtonState.working);
                        WindowState = FormWindowState.Minimized;
                        ShowInTaskbar = false;

                    }
                }
            }
        }

        private void EventAttach()
        {
            this.ClientSizeChanged += (s, e) =>
            {
                if (WindowState == FormWindowState.Minimized)
                {
                    ShowInTaskbar = false;
                }
            };

            this.FormClosing += (s, e) =>
            {
                e.Cancel = true;
                WindowState = FormWindowState.Minimized;
            };

            StartButton.Click += (s, e) => StartWatch();
            StopButton.Click += (s, e) => StopWatch();
            ExitButton.Click += (s, e) =>
            {
                DialogResult yesNo = MessageBox.Show("終了しますか？", "", MessageBoxButtons.YesNo);
                if (yesNo == DialogResult.No) return;
                Application.Exit();
            };
        }

        private void SetNotifyIcon()
        {
            Bitmap darkGreenBitmap = new Bitmap(32, 32);
            Graphics darkGreenGraphics = Graphics.FromImage(darkGreenBitmap);
            darkGreenGraphics.FillRectangle(Brushes.DarkGreen, darkGreenGraphics.VisibleClipBounds);

            Bitmap greenBitmap = new Bitmap(32, 32);
            Graphics greenGraphics = Graphics.FromImage(greenBitmap);
            greenGraphics.FillRectangle(Brushes.Green, greenGraphics.VisibleClipBounds);

            Icon[] icons = new Icon[] {
                Icon.FromHandle(darkGreenBitmap.GetHicon()),
                Icon.FromHandle(greenBitmap.GetHicon())
            };

            NotifyIcon notifyIcon = new NotifyIcon();
            notifyIcon.Icon = Icon.FromHandle(darkGreenBitmap.GetHicon());
            notifyIcon.Visible = true;
            notifyIcon.Click += new EventHandler((object sender, EventArgs e) => {
                WindowState = FormWindowState.Normal;
                ShowInTaskbar = true;
            });

            int i = 0;
            var t = new Timer();
            t.Interval = 1000;
            t.Tick += (s, e) =>
            {
                notifyIcon.Icon = icons[i++];
                if (i == 2) i = 0;
            };
            t.Start();
        }

        private void TimerWork()
        {
            List<string> message = new List<string>();

            if (_BeforeFileList.Count > 0)
            {
                foreach(var currentFileInfo in GetCurrentMyFileInfoList())
                {
                    bool isNew = true;
                    bool isUpdate = false;

                    foreach (var beforeFileInfo in _BeforeFileList)
                    {
                        if (currentFileInfo.Name == beforeFileInfo.Name)
                        {
                            isNew = false;
                            if (currentFileInfo.Length != beforeFileInfo.Length) isUpdate = true;
                        }
                    }

                    if (isNew) message.Add("新規：　" + currentFileInfo.Name);
                    if (isUpdate) message.Add("更新：　" + currentFileInfo.Name);
                }
            }

            _BeforeFileList.Clear();
            _BeforeFileList = new List<MyFileInfo>(GetCurrentMyFileInfoList());

            using (StreamWriter sw = new StreamWriter(_XmlFileList, false, Encoding.UTF8))
            {
                new XmlSerializer(typeof(List<MyFileInfo>)).Serialize(sw, _BeforeFileList);
            }

            if (message.Count > 0) MessageBox.Show(string.Join(Environment.NewLine, message));
        }

        private List<MyFileInfo> GetCurrentMyFileInfoList()
        {
            List<MyFileInfo> fileInfoList = new List<MyFileInfo>();
            foreach (string file in Directory.GetFiles(TargetFolderPath.Text, "*", SearchOption.TopDirectoryOnly))
            {
                var fi = new FileInfo(file);
                fi.Refresh();
                fileInfoList.Add(new MyFileInfo { 
                    Name = fi.Name,
                    Length = fi.Length
                });
            }
            return fileInfoList;
        }

        private void StartWatch()
        {
            if(!Directory.Exists(TargetFolderPath.Text))
            {
                MessageBox.Show("フォルダが存在しません。");
                return;
            }

            using (StreamWriter sw = new StreamWriter(_XmlPath, false, Encoding.UTF8))
            {
                new XmlSerializer(typeof(string)).Serialize(sw, TargetFolderPath.Text);
            }

            TimerWork(); 
            // TimerのTickが実行される前に終了した場合、_XmlFileListが生成されていないため
            // これで2つのXmlが存在する状態になる

            _Timer.Start();

            ButtonStateChange(ButtonState.working);
        }

        private void StopWatch()
        {
            _BeforeFileList.Clear();
            File.Delete(_XmlFileList);
            // 終了時、Xmlは1つ(Pathのみ)となる

            _Timer.Stop();

            ButtonStateChange(ButtonState.waiting);
        }

        enum ButtonState { working, waiting }

        private void ButtonStateChange(ButtonState buttonState)
        {
            switch (buttonState)
            {
                case ButtonState.waiting:
                    StartButton.Enabled = true;
                    StopButton.Enabled = false;
                    TargetFolderPath.Enabled = true;
                    this.Text = "停止中";
                    break;

                case ButtonState.working:
                    StartButton.Enabled = false;
                    StopButton.Enabled = true;
                    TargetFolderPath.Enabled = false;
                    this.Text = "監視中";
                    break;
            }
        }
    }

    public class MyFileInfo
    {
        public string Name;
        public long Length;
    }

}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using System.Xml.Serialization;

using System.IO;

namespace FileUpdateCheck

{

public partial class Form1 : Form

{

string _XmlPath = Application.StartupPath + @"\dat_path.xml";

string _XmlFileList = Application.StartupPath + @"\dat_file_list.xml";

Timer _Timer = new Timer();

List<MyFileInfo> _BeforeFileList = new List<MyFileInfo>();

public Form1()

{

InitializeComponent();

EventAttach();

SetNotifyIcon();

_Timer.Interval = 1000 * 60; // 1分

_Timer.Tick += (s, e) => TimerWork();

ButtonStateChange(ButtonState.waiting);

if (File.Exists(_XmlPath))

{

string path = "";

using (StreamReader sr = new StreamReader(_XmlPath, Encoding.UTF8))

{

path = (string)new XmlSerializer(typeof(string)).Deserialize(sr);

}

if (Directory.Exists(path))

{

TargetFolderPath.Text = path;

// PathのXmlが存在し、Pathが有効ならTextboxへ

if (File.Exists(_XmlFileList))

{

using (StreamReader sr = new StreamReader(_XmlFileList, Encoding.UTF8))

{

_BeforeFileList = new List<MyFileInfo>((List<MyFileInfo>)new XmlSerializer(typeof(List<MyFileInfo>)).Deserialize(sr));

}

// 自動起動するのはXMLが2つ有った場合

// FileListのXmlはストップ時削除するので、2つある場合、ストップしていないということ

_Timer.Start();

ButtonStateChange(ButtonState.working);

WindowState = FormWindowState.Minimized;

ShowInTaskbar = false;

}

private void EventAttach()

{

this.ClientSizeChanged += (s, e) =>

{

if (WindowState == FormWindowState.Minimized)

{

ShowInTaskbar = false;

}

};

this.FormClosing += (s, e) =>

{

e.Cancel = true;

WindowState = FormWindowState.Minimized;

};

StartButton.Click += (s, e) => StartWatch();

StopButton.Click += (s, e) => StopWatch();

ExitButton.Click += (s, e) =>

{

DialogResult yesNo = MessageBox.Show("終了しますか？", "", MessageBoxButtons.YesNo);

if (yesNo == DialogResult.No) return;

Application.Exit();

};

}

private void SetNotifyIcon()

{

Bitmap darkGreenBitmap = new Bitmap(32, 32);

Graphics darkGreenGraphics = Graphics.FromImage(darkGreenBitmap);

darkGreenGraphics.FillRectangle(Brushes.DarkGreen, darkGreenGraphics.VisibleClipBounds);

Bitmap greenBitmap = new Bitmap(32, 32);

Graphics greenGraphics = Graphics.FromImage(greenBitmap);

greenGraphics.FillRectangle(Brushes.Green, greenGraphics.VisibleClipBounds);

Icon[] icons = new Icon[] {

Icon.FromHandle(darkGreenBitmap.GetHicon()),

Icon.FromHandle(greenBitmap.GetHicon())

};

NotifyIcon notifyIcon = new NotifyIcon();

notifyIcon.Icon = Icon.FromHandle(darkGreenBitmap.GetHicon());

notifyIcon.Visible = true;

notifyIcon.Click += new EventHandler((object sender, EventArgs e) => {

WindowState = FormWindowState.Normal;

ShowInTaskbar = true;

});

int i = 0;

var t = new Timer();

t.Interval = 1000;

t.Tick += (s, e) =>

{

notifyIcon.Icon = icons[i++];

if (i == 2) i = 0;

};

t.Start();

}

private void TimerWork()

{

List<string> message = new List<string>();

if (_BeforeFileList.Count > 0)

{

foreach(var currentFileInfo in GetCurrentMyFileInfoList())

{

bool isNew = true;

bool isUpdate = false;

foreach (var beforeFileInfo in _BeforeFileList)

{

if (currentFileInfo.Name == beforeFileInfo.Name)

{

isNew = false;

if (currentFileInfo.Length != beforeFileInfo.Length) isUpdate = true;

}

if (isNew) message.Add("新規：　" + currentFileInfo.Name);

if (isUpdate) message.Add("更新：　" + currentFileInfo.Name);

}

_BeforeFileList.Clear();

_BeforeFileList = new List<MyFileInfo>(GetCurrentMyFileInfoList());

using (StreamWriter sw = new StreamWriter(_XmlFileList, false, Encoding.UTF8))

{

new XmlSerializer(typeof(List<MyFileInfo>)).Serialize(sw, _BeforeFileList);

}

if (message.Count > 0) MessageBox.Show(string.Join(Environment.NewLine, message));

}

private List<MyFileInfo> GetCurrentMyFileInfoList()

{

List<MyFileInfo> fileInfoList = new List<MyFileInfo>();

foreach (string file in Directory.GetFiles(TargetFolderPath.Text, "*", SearchOption.TopDirectoryOnly))

{

var fi = new FileInfo(file);

fi.Refresh();

fileInfoList.Add(new MyFileInfo {

Name = fi.Name,

Length = fi.Length

});

}

return fileInfoList;

}

private void StartWatch()

{

if(!Directory.Exists(TargetFolderPath.Text))

{

MessageBox.Show("フォルダが存在しません。");

return;

}

using (StreamWriter sw = new StreamWriter(_XmlPath, false, Encoding.UTF8))

{

new XmlSerializer(typeof(string)).Serialize(sw, TargetFolderPath.Text);

}

TimerWork();

// TimerのTickが実行される前に終了した場合、_XmlFileListが生成されていないため

// これで2つのXmlが存在する状態になる

_Timer.Start();

ButtonStateChange(ButtonState.working);

}

private void StopWatch()

{

_BeforeFileList.Clear();

File.Delete(_XmlFileList);

// 終了時、Xmlは1つ(Pathのみ)となる

_Timer.Stop();

ButtonStateChange(ButtonState.waiting);

}

enum ButtonState { working, waiting }

private void ButtonStateChange(ButtonState buttonState)

{

switch (buttonState)

{

case ButtonState.waiting:

StartButton.Enabled = true;

StopButton.Enabled = false;

TargetFolderPath.Enabled = true;

this.Text = "停止中";

break;

case ButtonState.working:

StartButton.Enabled = false;

StopButton.Enabled = true;

TargetFolderPath.Enabled = false;

this.Text = "監視中";

break;

}

public class MyFileInfo

{

public string Name;

public long Length;

}