okamura – ページ 30 – テックメモ

2018-04-132018-04-13

C# CD等一覧の一括リネーム

大量のリネームがあったのでamazon等からテキストデータを持ってきて利用した。

using System;
using System.Windows.Forms;

namespace cd_ren
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void listBox1_DragEnter(object sender, DragEventArgs e)
        {
            if (e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                e.Effect = DragDropEffects.Copy;
            }
            else
            {
                e.Effect = DragDropEffects.None;
            }
        }

        private void button3_Click(object sender, EventArgs e)
        {
            int i = listBox1.SelectedIndex;
            if (i <= 0) return;
            var o = listBox1.SelectedItem;
            listBox1.Items.RemoveAt(i);
            listBox1.Items.Insert(i - 1, o);
            listBox1.SelectedIndex = i - 1;
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int i = listBox1.SelectedIndex;
            if (listBox1.Items.Count - 1 == i) return;
            var o = listBox1.SelectedItem;
            listBox1.Items.RemoveAt(i);
            listBox1.Items.Insert(i + 1, o);
            listBox1.SelectedIndex = i + 1;
        }

        private void listBox1_DragDrop(object sender, DragEventArgs e)
        {
            string[] file_names = (string[])e.Data.GetData(DataFormats.FileDrop, false);
            listBox1.Items.AddRange(file_names);
        }

        private void button2_Click(object sender, EventArgs e)
        {
            for(int r = 0; r < listBox1.Items.Count; r++ )
            {
                if (textBox1.Lines.Length - 1 < r || textBox1.Lines[r] == "") return;

                var original_full_path = listBox1.Items[r].ToString();
                var new_full_path = System.IO.Path.GetDirectoryName(listBox1.Items[r].ToString()) + @"\" + textBox1.Lines[r].ToString() + ".mp3";
                System.IO.File.Copy(original_full_path, new_full_path);
            }
        }

    }
}

using System;

using System.Windows.Forms;

namespace cd_ren

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void listBox1_DragEnter(object sender, DragEventArgs e)

{

if (e.Data.GetDataPresent(DataFormats.FileDrop))

{

e.Effect = DragDropEffects.Copy;

}

else

{

e.Effect = DragDropEffects.None;

}

private void button3_Click(object sender, EventArgs e)

{

int i = listBox1.SelectedIndex;

if (i <= 0) return;

var o = listBox1.SelectedItem;

listBox1.Items.RemoveAt(i);

listBox1.Items.Insert(i - 1, o);

listBox1.SelectedIndex = i - 1;

}

private void button1_Click(object sender, EventArgs e)

{

int i = listBox1.SelectedIndex;

if (listBox1.Items.Count - 1 == i) return;

var o = listBox1.SelectedItem;

listBox1.Items.RemoveAt(i);

listBox1.Items.Insert(i + 1, o);

listBox1.SelectedIndex = i + 1;

}

private void listBox1_DragDrop(object sender, DragEventArgs e)

{

string[] file_names = (string[])e.Data.GetData(DataFormats.FileDrop, false);

listBox1.Items.AddRange(file_names);

}

private void button2_Click(object sender, EventArgs e)

{

for(int r = 0; r < listBox1.Items.Count; r++ )

{

if (textBox1.Lines.Length - 1 < r || textBox1.Lines[r] == "") return;

var original_full_path = listBox1.Items[r].ToString();

var new_full_path = System.IO.Path.GetDirectoryName(listBox1.Items[r].ToString()) + @"\" + textBox1.Lines[r].ToString() + ".mp3";

System.IO.File.Copy(original_full_path, new_full_path);

}

2018-03-232020-01-15

VBA フォルダの中にある全てのExcelを開く

指定したフォルダ内にある全てのエクセルファイルを開いて値を持ってくる。意外にこれに近い動作を要望されることは多い。

ただこの方法、ファイルが上手く開けなかったりとか気をつけなければいけないことが多いので、なるべく採用しないようにしている。

Sub FileList()

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

p = "C:\test"

c = 1
For Each f In fs.GetFolder(p).Files
  Call MainProc(f.Path, c)
  c = c + 1
Next

End Sub

Function MainProc(p, c)

Workbooks.Open (p)
Set w = ActiveWorkbook

ThisWorkbook.Sheets("Sheet1").Cells(1, c).Value = w.Sheets("Sheet1").Cells(1, 1).Value

w.Close

End Function

Sub FileList()

Dim fs As Object

Set fs = CreateObject("Scripting.FileSystemObject")

p = "C:\test"

c = 1

For Each f In fs.GetFolder(p).Files

Call MainProc(f.Path, c)

c = c + 1

End Sub

Function MainProc(p, c)

Workbooks.Open (p)

Set w = ActiveWorkbook

ThisWorkbook.Sheets("Sheet1").Cells(1, c).Value = w.Sheets("Sheet1").Cells(1, 1).Value

w.Close

End Function

2018-03-212020-05-05

C# 即席学習タイマー

ソフトの起動で計測を開始、終了で停止するだけの単純なタイマー。自分のモチベーションアップ用。
時間のリセットはdat.xmlを削除。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;

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

            string path = Application.StartupPath + @"\dat.xml";
            TimeSpan load_time_span = new TimeSpan();

            if (System.IO.File.Exists(path))
            {
                System.Xml.Serialization.XmlSerializer x = new System.Xml.Serialization.XmlSerializer(typeof(int[]));
                System.IO.StreamReader sr = new System.IO.StreamReader(path, new UTF8Encoding(false));
                int[] ts = (int[])x.Deserialize(sr);
                load_time_span = new TimeSpan(ts[0], ts[1], ts[2], ts[3]);
                sr.Close();
            }

            TimeSpan current_time_span = new TimeSpan();

            DateTime original_dt = DateTime.Now;
            Timer t = new Timer();
            t.Tick += new EventHandler((object t_sender, EventArgs t_e) => {
            current_time_span = (DateTime.Now - original_dt);

                int h = (load_time_span + current_time_span).Days * 24 + (load_time_span + current_time_span).Hours;
                label1.Text = h.ToString() + "時間" + (load_time_span + current_time_span).ToString(@"mm\分ss\秒");
            });
            t.Start();

            this.FormClosed += new FormClosedEventHandler((object sender, FormClosedEventArgs e) => {
                System.Xml.Serialization.XmlSerializer x = new System.Xml.Serialization.XmlSerializer(typeof(int[]));
                System.IO.StreamWriter sw = new System.IO.StreamWriter(path, false, new UTF8Encoding(false));

                x.Serialize(sw, new int[] {
                    (int)(load_time_span + current_time_span).Days,
                    (int)(load_time_span + current_time_span).Hours,
                    (int)(load_time_span + current_time_span).Minutes,
                    (int)(load_time_span + current_time_span).Seconds
                });
                sw.Close();
            });

        }
    }
}

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;

namespace study_timer_simple

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

string path = Application.StartupPath + @"\dat.xml";

TimeSpan load_time_span = new TimeSpan();

if (System.IO.File.Exists(path))

{

System.Xml.Serialization.XmlSerializer x = new System.Xml.Serialization.XmlSerializer(typeof(int[]));

System.IO.StreamReader sr = new System.IO.StreamReader(path, new UTF8Encoding(false));

int[] ts = (int[])x.Deserialize(sr);

load_time_span = new TimeSpan(ts[0], ts[1], ts[2], ts[3]);

sr.Close();

}

TimeSpan current_time_span = new TimeSpan();

DateTime original_dt = DateTime.Now;

Timer t = new Timer();

t.Tick += new EventHandler((object t_sender, EventArgs t_e) => {

current_time_span = (DateTime.Now - original_dt);

int h = (load_time_span + current_time_span).Days * 24 + (load_time_span + current_time_span).Hours;

label1.Text = h.ToString() + "時間" + (load_time_span + current_time_span).ToString(@"mm\分ss\秒");

});

t.Start();

this.FormClosed += new FormClosedEventHandler((object sender, FormClosedEventArgs e) => {

System.Xml.Serialization.XmlSerializer x = new System.Xml.Serialization.XmlSerializer(typeof(int[]));

System.IO.StreamWriter sw = new System.IO.StreamWriter(path, false, new UTF8Encoding(false));

x.Serialize(sw, new int[] {

(int)(load_time_span + current_time_span).Days,

(int)(load_time_span + current_time_span).Hours,

(int)(load_time_span + current_time_span).Minutes,

(int)(load_time_span + current_time_span).Seconds

});

sw.Close();

});

}

2018-03-19

C# Excel操作②

この書き方だと落ちた時にプロセスが残る。

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

using Microsoft.Office.Interop.Excel;
using System.Runtime.InteropServices;

namespace WindowsFormsApp1
{
    class create_excel
    {
        public void create_order(DataGridView dgv, setting setting)
        {
            var ex = new Microsoft.Office.Interop.Excel.Application();
            ex.Visible = true;
            ex.DisplayAlerts = false;

            var wbs = ex.Workbooks;
            var wb = wbs.Open(System.Windows.Forms.Application.StartupPath + @"\po.xlsx");
            var wss = wb.Sheets;
            var ws = wss["po"];

            var _wbs = ex.Workbooks;
            var _wb = _wbs.Add();
            var _wss = _wb.Sheets;
            var _ws = _wss[1];

            ws.copy(_ws);
            wb.Close();

            var order = _wss["po"];

            var selected_rows_index = dgv.SelectedCells.Cast<DataGridViewCell>().Select(x => x.RowIndex).Distinct();

            int counter = 18;
            foreach (int selected_row_index in selected_rows_index)
            {
                if (counter == 29)
                {
                    MessageBox.Show("選択行数が多いため一部表示されていません。");
                    break;
                }

                if (dgv.Rows[selected_row_index].Cells[setting.id_header].Value != null)
                {
                    var rc = order.Cells[4, 1];
                    if (dgv.Rows[selected_row_index].Cells["仕入先"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["仕入先"].Value.ToString() + "　御中";
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);
                    rc = null;

                    rc = order.Cells[counter, 1];
                    if(dgv.Rows[selected_row_index].Cells["品名"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["品名"].Value.ToString();
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);
                    rc = null;

                    rc = order.Cells[counter, 2];
                    if(dgv.Rows[selected_row_index].Cells["発注数量"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["発注数量"].Value.ToString();
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);
                    rc = null;

                    rc = order.Cells[counter, 3];
                    if(dgv.Rows[selected_row_index].Cells["納期"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["納期"].Value.ToString();
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);
                    rc = null;

                    rc = order.Cells[counter, 4];
                    if(dgv.Rows[selected_row_index].Cells["型式"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["型式"].Value.ToString();
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);
                    rc = null;

                    counter++;
                }
            }

            Marshal.ReleaseComObject(order);
            order = null;

            Marshal.ReleaseComObject(_ws);
            _ws = null;
            Marshal.ReleaseComObject(_wss);
            _wss = null;
            Marshal.ReleaseComObject(_wb);
            _wb = null;
            Marshal.ReleaseComObject(_wbs);
            _wbs = null;

            Marshal.ReleaseComObject(ws);
            ws = null;
            Marshal.ReleaseComObject(wss);
            wss = null;
            Marshal.ReleaseComObject(wb);
            wb = null;
            Marshal.ReleaseComObject(wbs);
            wbs = null;

            Marshal.ReleaseComObject(ex);
            ex = null;
        }

        public void dgv_copy(DataGridView dgv)
        {
            var ex = new Microsoft.Office.Interop.Excel.Application();
            ex.Visible = true;
            ex.DisplayAlerts = false;

            var wbs = ex.Workbooks;
            var wb = wbs.Add();
            var wss = wb.Sheets;
            var ws = wss[1];
            
            for (int r = 0; r < dgv.Rows.Count; r++)
            {
                for (int c = 0; c < dgv.Columns.Count; c++)
                {
                    var rc = ws.Cells[r + 1, c + 1];
                    if (dgv.Rows[r].Cells[c].Value != null) rc.Value = dgv.Rows[r].Cells[c].Value.ToString();
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);
                    rc = null;
                }
            }

            Marshal.ReleaseComObject(ws);
            ws = null;
            Marshal.ReleaseComObject(wss);
            wss = null;
            Marshal.ReleaseComObject(wb);
            wb = null;
            Marshal.ReleaseComObject(wbs);
            wbs = null;

            Marshal.ReleaseComObject(ex);
            ex = null;
        }
    }
}

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

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

using Microsoft.Office.Interop.Excel;

using System.Runtime.InteropServices;

namespace WindowsFormsApp1

{

class create_excel

{

public void create_order(DataGridView dgv, setting setting)

{

var ex = new Microsoft.Office.Interop.Excel.Application();

ex.Visible = true;

ex.DisplayAlerts = false;

var wbs = ex.Workbooks;

var wb = wbs.Open(System.Windows.Forms.Application.StartupPath + @"\po.xlsx");

var wss = wb.Sheets;

var ws = wss["po"];

var _wbs = ex.Workbooks;

var _wb = _wbs.Add();

var _wss = _wb.Sheets;

var _ws = _wss[1];

ws.copy(_ws);

wb.Close();

var order = _wss["po"];

var selected_rows_index = dgv.SelectedCells.Cast<DataGridViewCell>().Select(x => x.RowIndex).Distinct();

int counter = 18;

foreach (int selected_row_index in selected_rows_index)

{

if (counter == 29)

{

MessageBox.Show("選択行数が多いため一部表示されていません。");

break;

}

if (dgv.Rows[selected_row_index].Cells[setting.id_header].Value != null)

{

var rc = order.Cells[4, 1];

if (dgv.Rows[selected_row_index].Cells["仕入先"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["仕入先"].Value.ToString() + "　御中";

System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);

rc = null;

rc = order.Cells[counter, 1];

if(dgv.Rows[selected_row_index].Cells["品名"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["品名"].Value.ToString();

System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);

rc = null;

rc = order.Cells[counter, 2];

if(dgv.Rows[selected_row_index].Cells["発注数量"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["発注数量"].Value.ToString();

System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);

rc = null;

rc = order.Cells[counter, 3];

if(dgv.Rows[selected_row_index].Cells["納期"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["納期"].Value.ToString();

System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);

rc = null;

rc = order.Cells[counter, 4];

if(dgv.Rows[selected_row_index].Cells["型式"].Value != null) rc.value = dgv.Rows[selected_row_index].Cells["型式"].Value.ToString();

System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);

rc = null;

counter++;

}

Marshal.ReleaseComObject(order);

order = null;

Marshal.ReleaseComObject(_ws);

_ws = null;

Marshal.ReleaseComObject(_wss);

_wss = null;

Marshal.ReleaseComObject(_wb);

_wb = null;

Marshal.ReleaseComObject(_wbs);

_wbs = null;

Marshal.ReleaseComObject(ws);

ws = null;

Marshal.ReleaseComObject(wss);

wss = null;

Marshal.ReleaseComObject(wb);

wb = null;

Marshal.ReleaseComObject(wbs);

wbs = null;

Marshal.ReleaseComObject(ex);

ex = null;

}

public void dgv_copy(DataGridView dgv)

{

var ex = new Microsoft.Office.Interop.Excel.Application();

ex.Visible = true;

ex.DisplayAlerts = false;

var wbs = ex.Workbooks;

var wb = wbs.Add();

var wss = wb.Sheets;

var ws = wss[1];

for (int r = 0; r < dgv.Rows.Count; r++)

{

for (int c = 0; c < dgv.Columns.Count; c++)

{

var rc = ws.Cells[r + 1, c + 1];

if (dgv.Rows[r].Cells[c].Value != null) rc.Value = dgv.Rows[r].Cells[c].Value.ToString();

System.Runtime.InteropServices.Marshal.ReleaseComObject(rc);

rc = null;

}

Marshal.ReleaseComObject(ws);

ws = null;

Marshal.ReleaseComObject(wss);

wss = null;

Marshal.ReleaseComObject(wb);

wb = null;

Marshal.ReleaseComObject(wbs);

wbs = null;

Marshal.ReleaseComObject(ex);

ex = null;

}

2018-03-142020-05-05

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;

namespace 検索ボックス
{
    public partial class Form1 : Form
    {
        private Point mouse_point;
        public Form1()
        {
            InitializeComponent();

            load_xml();

            NotifyIcon ic = new NotifyIcon();
            ic.Visible = true;
            ic.Icon = Icon;
            ic.MouseDoubleClick += new MouseEventHandler((object sender, MouseEventArgs e) => {
                this.Close();
            });

            this.ShowInTaskbar = false;

            this.FormBorderStyle = FormBorderStyle.None;
            this.TransparencyKey = this.BackColor;

            this.comboBox1.AutoCompleteMode = AutoCompleteMode.Append;
            this.comboBox1.AutoCompleteSource = AutoCompleteSource.ListItems;

            this.comboBox1.MouseDown += new MouseEventHandler((object sender, MouseEventArgs e)=> {
                if(e.Button == MouseButtons.Left)
                {
                    mouse_point = new Point(e.X, e.Y);
                }
            });
            this.comboBox1.MouseMove += new MouseEventHandler((object sender, MouseEventArgs e)=> {
                if(e.Button == MouseButtons.Left)
                {
                    this.Left += e.X - mouse_point.X;
                    this.Top += e.Y - mouse_point.Y;
                }
            });
            this.comboBox1.KeyDown  += new KeyEventHandler((object sender, KeyEventArgs e) => {
                if(e.KeyCode == Keys.Enter)
                {
                    string tmp = Uri.EscapeDataString(comboBox1.Text);
                    System.Diagnostics.Process.Start(@"https://www.google.co.jp/search?q=" + tmp);
                    comboBox1.Items.Add(comboBox1.Text);
                    save_xml();
                }
            });
        }
        private void load_xml()
        {
            if (!System.IO.File.Exists(Application.StartupPath + @"\dat.xml")) return;

            System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(string[]));
            System.IO.StreamReader sr = new System.IO.StreamReader(Application.StartupPath + @"\dat.xml", new UTF8Encoding(false));
            string[] items = (string[])xs.Deserialize(sr);
            comboBox1.Items.AddRange(items);
            sr.Close();
        }

        private void save_xml()
        {
            System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(string[]));
            System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\dat.xml", false, new UTF8Encoding(false));
            List<string> items = comboBox1.Items.Cast<string>().ToList();
            xs.Serialize(sw, items.ToArray());
            sw.Close();
        }
    }
}

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;

namespace 検索ボックス

{

public partial class Form1 : Form

{

private Point mouse_point;

public Form1()

{

InitializeComponent();

load_xml();

NotifyIcon ic = new NotifyIcon();

ic.Visible = true;

ic.Icon = Icon;

ic.MouseDoubleClick += new MouseEventHandler((object sender, MouseEventArgs e) => {

this.Close();

});

this.ShowInTaskbar = false;

this.FormBorderStyle = FormBorderStyle.None;

this.TransparencyKey = this.BackColor;

this.comboBox1.AutoCompleteMode = AutoCompleteMode.Append;

this.comboBox1.AutoCompleteSource = AutoCompleteSource.ListItems;

this.comboBox1.MouseDown += new MouseEventHandler((object sender, MouseEventArgs e)=> {

if(e.Button == MouseButtons.Left)

{

mouse_point = new Point(e.X, e.Y);

}

});

this.comboBox1.MouseMove += new MouseEventHandler((object sender, MouseEventArgs e)=> {

if(e.Button == MouseButtons.Left)

{

this.Left += e.X - mouse_point.X;

this.Top += e.Y - mouse_point.Y;

}

});

this.comboBox1.KeyDown += new KeyEventHandler((object sender, KeyEventArgs e) => {

if(e.KeyCode == Keys.Enter)

{

string tmp = Uri.EscapeDataString(comboBox1.Text);

System.Diagnostics.Process.Start(@"https://www.google.co.jp/search?q=" + tmp);

comboBox1.Items.Add(comboBox1.Text);

save_xml();

}

});

}

private void load_xml()

{

if (!System.IO.File.Exists(Application.StartupPath + @"\dat.xml")) return;

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(string[]));

System.IO.StreamReader sr = new System.IO.StreamReader(Application.StartupPath + @"\dat.xml", new UTF8Encoding(false));

string[] items = (string[])xs.Deserialize(sr);

comboBox1.Items.AddRange(items);

sr.Close();

}

private void save_xml()

{

System.Xml.Serialization.XmlSerializer xs = new System.Xml.Serialization.XmlSerializer(typeof(string[]));

System.IO.StreamWriter sw = new System.IO.StreamWriter(Application.StartupPath + @"\dat.xml", false, new UTF8Encoding(false));

List<string> items = comboBox1.Items.Cast<string>().ToList();

xs.Serialize(sw, items.ToArray());

sw.Close();

}

2018-02-08

C# 承認テストプログラム

承認処理。ハッシュを使って見たけれど実用的ではなさそう。

Main.cs

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.Data.OleDb;
using System.IO;

namespace ファイル認証フォーム
{
    public partial class Main : Form
    {
        public Main()
        {
            InitializeComponent();

            this.Text = "ファイル認証フォーム 1.0";

            create_dgv();

            if (!load_dgv()) return;

            dataGridView1.CellDoubleClick += new DataGridViewCellEventHandler(onclick_dgv);
        }

        private void click_approval(string id, string approval_name)
        {
            string qry;
            string msg;

            if (approval_name != "")
            {
                DialogResult result = MessageBox.Show("既に認証済みです。認証を解除しますか？", "", MessageBoxButtons.YesNo);
                if (result == DialogResult.No) return;

                UserPassword f = new UserPassword(approval_name);
                f.ShowDialog();
                if (!f.approval_check) return;

                qry = "update dat_tbl set approval_name = null where id = " + id + ";";
                msg = "解除";

            }
            else
            {
                UserPassword f = new UserPassword();
                f.ShowDialog();
                if (!f.approval_check) return;

                qry = "update dat_tbl set approval_name = '" + f.approval_user + "' where id = " + id + ";";
                msg = "登録";
            }

            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    return;
                }

                OleDbCommand cmd = new OleDbCommand(qry, con);

                try
                {
                    cmd.ExecuteNonQuery();
                }
                catch
                {
                    MessageBox.Show("正しく" + msg + "できませんでした。");
                    return;
                }

                MessageBox.Show(msg + "しました。");
                load_dgv();
            }
        }

        private void click_delete(string id, string approval_name, string file_name)
        {
            DialogResult result = MessageBox.Show(file_name + "\n" + "削除しますか？", "", MessageBoxButtons.YesNo);
            if (result == DialogResult.No) return;

            if (approval_name == "")
            {
                row_delete(id);
            }
            else
            {
                UserPassword f = new UserPassword(approval_name);
                f.ShowDialog();

                if (!f.approval_check)
                {
                    MessageBox.Show("承認者以外は削除できません。");
                    return;
                }

                row_delete(id);
            }
        }

        private void click_open(string id, string approval_name, string file_name, string file_path)
        {

            if (!File.Exists(file_path))
            {
                MessageBox.Show("ファイルが存在しません。");
                return;
            }

            string current_hash;

            using (FileStream fs = new FileStream(file_path, FileMode.Open, FileAccess.Read, FileShare.Read))
            {
                System.Security.Cryptography.MD5CryptoServiceProvider md5 = new System.Security.Cryptography.MD5CryptoServiceProvider();
                byte[] bs = md5.ComputeHash(fs);

                md5.Clear();

                StringBuilder res = new StringBuilder();
                foreach (byte b in bs)
                {
                    res.Append(b.ToString("x2"));
                }
                current_hash = res.ToString();
            }

            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    return;
                }

                try
                {
                    string q = "select * from dat_tbl where id = " + id + ";";
                    OleDbCommand cmd = new OleDbCommand(q, con);

                    using (OleDbDataReader dr = cmd.ExecuteReader())
                    {

                        while (dr.Read())
                        {
                            if (dr["md5"].ToString() == current_hash)
                            {
                                System.Diagnostics.Process.Start(Path.GetDirectoryName(file_path));
                                return;
                            }
                        }

                        MessageBox.Show("ハッシュ値が一致しません。");
                        return;

                    }
                }
                catch
                {
                    MessageBox.Show("データ取得中にエラーが発生しました。");
                }
            }  
        }

        private void row_delete(string id)
        {
            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    return;
                }

                string q = "delete from dat_tbl where id = " + id + ";";
                OleDbCommand cmd = new OleDbCommand(q, con);

                try
                {
                    cmd.ExecuteNonQuery();
                }
                catch
                {
                    MessageBox.Show("正しく削除できませんでした。");
                    return;
                }

                MessageBox.Show("削除しました。");
                load_dgv();
            }
        }

        private void onclick_dgv(object sender, DataGridViewCellEventArgs e)
        {
            int c = e.ColumnIndex;
            int r = e.RowIndex;

            string id = dataGridView1.Rows[r].Cells[0].Value.ToString();
            string approval_name = dataGridView1.Rows[r].Cells[1].Value.ToString();
            string file_name = dataGridView1.Rows[r].Cells[4].Value.ToString();
            string file_path = dataGridView1.Rows[r].Cells[5].Value.ToString();

            if (c == 1 && r >= 0) click_approval(id, approval_name);
            if (c == 4 && r >= 0) click_open(id, approval_name, file_name, file_path);
            if (c == 5 && r >= 0) click_delete(id, approval_name, file_name);

        }

        private void create_dgv()
        {
            string[] headers = new string[] {
                "", //0
                "承認者 (承認)",
                "得意先",
                "種類",
                "ファイル名 (ファイルオープン)",//4
                "パス名 (登録削除)",//5
                "ハッシュ値",
                "更新日時"

            };

            foreach (string h in headers)
            {
                DataGridViewTextBoxColumn col = new DataGridViewTextBoxColumn();
                col.HeaderText = h;
                dataGridView1.Columns.Add(col);
            }

            dataGridView1.ReadOnly = true;
            dataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
            dataGridView1.Columns[0].Visible = false;
            dataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells;
            dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;
            dataGridView1.Font = new Font("MS UI Gothic", 12);
            dataGridView1.RowTemplate.Height = 32;
            dataGridView1.AllowUserToAddRows = false;

        }

        public bool load_dgv(string q = "select * from dat_tbl order by updated;")
        {
            dataGridView1.Rows.Clear();
            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    return false;
                }

                try
                {
                    OleDbCommand cmd = new OleDbCommand(q, con);

                    using (OleDbDataReader dr = cmd.ExecuteReader())
                    {
                        while (dr.Read())
                        {
                            dataGridView1.Rows.Add(
                                dr["id"].ToString(),
                                dr["approval_name"].ToString(),//1
                                dr["customer"].ToString(),
                                dr["document_type"].ToString(),
                                dr["file_name"].ToString(),//4
                                dr["file_path"].ToString(),//5
                                dr["md5"].ToString(),
                                dr["updated"].ToString()
                                );
                        }
                    }
                }
                catch
                {
                    MessageBox.Show("データ取得中にエラーが発生しました。");
                    return false;
                }
            }
            return true;
        }

        private void Form1_DragEnter(object sender, DragEventArgs e)
        {
            string[] files = (string[])e.Data.GetData(DataFormats.FileDrop, false);

            if (e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                foreach (string s in files)
                {
                    if (!File.Exists(s)) return;
                }
                e.Effect = DragDropEffects.Copy;
            }
        }

        private void Form1_DragDrop(object sender, DragEventArgs e)
        {
            string[] files = (string[])e.Data.GetData(DataFormats.FileDrop,false);

            PathSplit f = new PathSplit(files, this);
            f.ShowDialog();
        }
    }
}

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

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

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.Data.OleDb;

using System.IO;

namespace ファイル認証フォーム

{

public partial class Main : Form

{

public Main()

{

InitializeComponent();

this.Text = "ファイル認証フォーム 1.0";

create_dgv();

if (!load_dgv()) return;

dataGridView1.CellDoubleClick += new DataGridViewCellEventHandler(onclick_dgv);

}

private void click_approval(string id, string approval_name)

{

string qry;

string msg;

if (approval_name != "")

{

DialogResult result = MessageBox.Show("既に認証済みです。認証を解除しますか？", "", MessageBoxButtons.YesNo);

if (result == DialogResult.No) return;

UserPassword f = new UserPassword(approval_name);

f.ShowDialog();

if (!f.approval_check) return;

qry = "update dat_tbl set approval_name = null where id = " + id + ";";

msg = "解除";

}

else

{

UserPassword f = new UserPassword();

f.ShowDialog();

if (!f.approval_check) return;

qry = "update dat_tbl set approval_name = '" + f.approval_user + "' where id = " + id + ";";

msg = "登録";

}

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

return;

}

OleDbCommand cmd = new OleDbCommand(qry, con);

try

{

cmd.ExecuteNonQuery();

}

catch

{

MessageBox.Show("正しく" + msg + "できませんでした。");

return;

}

MessageBox.Show(msg + "しました。");

load_dgv();

}

private void click_delete(string id, string approval_name, string file_name)

{

DialogResult result = MessageBox.Show(file_name + "\n" + "削除しますか？", "", MessageBoxButtons.YesNo);

if (result == DialogResult.No) return;

if (approval_name == "")

{

row_delete(id);

}

else

{

UserPassword f = new UserPassword(approval_name);

f.ShowDialog();

if (!f.approval_check)

{

MessageBox.Show("承認者以外は削除できません。");

return;

}

row_delete(id);

}

private void click_open(string id, string approval_name, string file_name, string file_path)

{

if (!File.Exists(file_path))

{

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

return;

}

string current_hash;

using (FileStream fs = new FileStream(file_path, FileMode.Open, FileAccess.Read, FileShare.Read))

{

System.Security.Cryptography.MD5CryptoServiceProvider md5 = new System.Security.Cryptography.MD5CryptoServiceProvider();

byte[] bs = md5.ComputeHash(fs);

md5.Clear();

StringBuilder res = new StringBuilder();

foreach (byte b in bs)

{

res.Append(b.ToString("x2"));

}

current_hash = res.ToString();

}

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

return;

}

try

{

string q = "select * from dat_tbl where id = " + id + ";";

OleDbCommand cmd = new OleDbCommand(q, con);

using (OleDbDataReader dr = cmd.ExecuteReader())

{

while (dr.Read())

{

if (dr["md5"].ToString() == current_hash)

{

System.Diagnostics.Process.Start(Path.GetDirectoryName(file_path));

return;

}

MessageBox.Show("ハッシュ値が一致しません。");

return;

}

catch

{

MessageBox.Show("データ取得中にエラーが発生しました。");

}

private void row_delete(string id)

{

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

return;

}

string q = "delete from dat_tbl where id = " + id + ";";

OleDbCommand cmd = new OleDbCommand(q, con);

try

{

cmd.ExecuteNonQuery();

}

catch

{

MessageBox.Show("正しく削除できませんでした。");

return;

}

MessageBox.Show("削除しました。");

load_dgv();

}

private void onclick_dgv(object sender, DataGridViewCellEventArgs e)

{

int c = e.ColumnIndex;

int r = e.RowIndex;

string id = dataGridView1.Rows[r].Cells[0].Value.ToString();

string approval_name = dataGridView1.Rows[r].Cells[1].Value.ToString();

string file_name = dataGridView1.Rows[r].Cells[4].Value.ToString();

string file_path = dataGridView1.Rows[r].Cells[5].Value.ToString();

if (c == 1 && r >= 0) click_approval(id, approval_name);

if (c == 4 && r >= 0) click_open(id, approval_name, file_name, file_path);

if (c == 5 && r >= 0) click_delete(id, approval_name, file_name);

}

private void create_dgv()

{

string[] headers = new string[] {

"", //0

"承認者 (承認)",

"得意先",

"種類",

"ファイル名 (ファイルオープン)",//4

"パス名 (登録削除)",//5

"ハッシュ値",

"更新日時"

};

foreach (string h in headers)

{

DataGridViewTextBoxColumn col = new DataGridViewTextBoxColumn();

col.HeaderText = h;

dataGridView1.Columns.Add(col);

}

dataGridView1.ReadOnly = true;

dataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect;

dataGridView1.Columns[0].Visible = false;

dataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells;

dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False;

dataGridView1.Font = new Font("MS UI Gothic", 12);

dataGridView1.RowTemplate.Height = 32;

dataGridView1.AllowUserToAddRows = false;

}

public bool load_dgv(string q = "select * from dat_tbl order by updated;")

{

dataGridView1.Rows.Clear();

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

return false;

}

try

{

OleDbCommand cmd = new OleDbCommand(q, con);

using (OleDbDataReader dr = cmd.ExecuteReader())

{

while (dr.Read())

{

dataGridView1.Rows.Add(

dr["id"].ToString(),

dr["approval_name"].ToString(),//1

dr["customer"].ToString(),

dr["document_type"].ToString(),

dr["file_name"].ToString(),//4

dr["file_path"].ToString(),//5

dr["md5"].ToString(),

dr["updated"].ToString()

);

}

catch

{

MessageBox.Show("データ取得中にエラーが発生しました。");

return false;

}

return true;

}

private void Form1_DragEnter(object sender, DragEventArgs e)

{

string[] files = (string[])e.Data.GetData(DataFormats.FileDrop, false);

if (e.Data.GetDataPresent(DataFormats.FileDrop))

{

foreach (string s in files)

{

if (!File.Exists(s)) return;

}

e.Effect = DragDropEffects.Copy;

}

private void Form1_DragDrop(object sender, DragEventArgs e)

{

string[] files = (string[])e.Data.GetData(DataFormats.FileDrop,false);

PathSplit f = new PathSplit(files, this);

f.ShowDialog();

}

UserPassword.cs

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.Data.OleDb;

namespace ファイル認証フォーム
{
    public partial class UserPassword : Form
    {
        public bool approval_check;
        public string approval_user;

        public UserPassword(string entered_user = "")
        {
            InitializeComponent();

            if (entered_user == "")
            {
                textBox1.Enabled = true;
            }
            else
            {
                textBox1.Enabled = false;
                textBox1.Text = entered_user;
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {
            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_approval))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    approval_check = false;
                    return;
                }

                string user_name = textBox1.Text.Replace("\'", "\'\'");
                string password = textBox2.Text.Replace("\'", "\'\'");

                try
                {
                    string q = "select * from approval_tbl where user_name = '" + user_name + "';";
                    OleDbCommand cmd = new OleDbCommand(q, con);

                    using (OleDbDataReader dr = cmd.ExecuteReader())
                    {

                        while (dr.Read())
                        {
                            if (dr["password"].ToString() == password)
                            {
                                approval_check = true;
                                approval_user = user_name;

                                this.Close();
                                return;
                            }
                        }

                        MessageBox.Show("ユーザーが存在しません。");
                        approval_check = false;

                        return;

                    }
                }
                catch
                {
                    MessageBox.Show("データ取得中にエラーが発生しました。");
                    approval_check = false;
                }
            }
        }
    }
}

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.Data.OleDb;

namespace ファイル認証フォーム

{

public partial class UserPassword : Form

{

public bool approval_check;

public string approval_user;

public UserPassword(string entered_user = "")

{

InitializeComponent();

if (entered_user == "")

{

textBox1.Enabled = true;

}

else

{

textBox1.Enabled = false;

textBox1.Text = entered_user;

}

private void button1_Click(object sender, EventArgs e)

{

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_approval))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

approval_check = false;

return;

}

string user_name = textBox1.Text.Replace("\'", "\'\'");

string password = textBox2.Text.Replace("\'", "\'\'");

try

{

string q = "select * from approval_tbl where user_name = '" + user_name + "';";

OleDbCommand cmd = new OleDbCommand(q, con);

using (OleDbDataReader dr = cmd.ExecuteReader())

{

while (dr.Read())

{

if (dr["password"].ToString() == password)

{

approval_check = true;

approval_user = user_name;

this.Close();

return;

}

MessageBox.Show("ユーザーが存在しません。");

approval_check = false;

return;

}

catch

{

MessageBox.Show("データ取得中にエラーが発生しました。");

approval_check = false;

}

UserStrings.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

using System.Windows.Forms;

namespace ファイル認証フォーム
{
    class UserStrings
    {
        public static string ds_dat = "provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + @"\dat.mdb;";
        public static string ds_approval = "provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + @"\approval.mdb;";
    }
}

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace ファイル認証フォーム

{

class UserStrings

{

public static string ds_dat = "provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + @"\dat.mdb;";

public static string ds_approval = "provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + @"\approval.mdb;";

}

PathSplit.cs

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.Data.OleDb;
using System.IO;

namespace ファイル認証フォーム
{

    public partial class PathSplit : Form
    {
        Main fm;

        public PathSplit(string[] files, Main f)
        {
            fm = f;
            InitializeComponent();

            string[] path = files[0].Split('\\');

            if (path.Length >= 1) comboBox3.Text = path[path.Length - 1];
            if (path.Length >= 2) comboBox2.Text = path[path.Length - 2];
            if (path.Length >= 3) comboBox1.Text = path[path.Length - 3];

            comboBox1.Items.AddRange(path);
            comboBox2.Items.AddRange(path);
            comboBox3.Items.AddRange(path);

            textBox1.Text = files[0];

            using (FileStream fs = new FileStream(files[0],FileMode.Open,FileAccess.Read,FileShare.Read))
            {
                System.Security.Cryptography.MD5CryptoServiceProvider md5 = new System.Security.Cryptography.MD5CryptoServiceProvider();
                byte[] bs = md5.ComputeHash(fs);

                md5.Clear();

                StringBuilder res = new StringBuilder();
                foreach (byte b in bs)
                {
                    res.Append(b.ToString("x2"));
                }
                textBox2.Text = res.ToString();
            }
        }

        private bool duplicate_path_chechk()
        {
            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    return false;
                }

                string file_path = textBox1.Text.Replace("\'", "\'\'");

                try
                {
                    string q = "select * from dat_tbl where file_path = '" + file_path + "';";
                    OleDbCommand cmd = new OleDbCommand(q, con);

                    using (OleDbDataReader dr = cmd.ExecuteReader())
                    {
                        if (dr.Read())
                        {
                            MessageBox.Show("既に登録済です。パスは重複できません。");
                            return false;
                        }
                        else
                        {
                            return true;
                        }

                    }
                }
                catch
                {
                    MessageBox.Show("データ取得にエラーが発生しました。");
                    return false;
                }
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {

            if (!duplicate_path_chechk())
            {
                this.Close();
                return;
            }

            using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))
            {
                try
                {
                    con.Open();
                }
                catch
                {
                    MessageBox.Show("データーベース接続にエラーが発生しました。");
                    return;
                }


                string customer = comboBox1.Text.Replace("\'", "\'\'");
                string document_type = comboBox2.Text.Replace("\'", "\'\'");
                string file_name = comboBox3.Text.Replace("\'", "\'\'");
                string file_path = textBox1.Text.Replace("\'","\'\'");
                string md5 = textBox2.Text;
                string notes = textBox3.Text.Replace("\'", "\'\'");

                string q = "insert into dat_tbl (customer,document_type,file_name,file_path,md5,updated,notes)" +
                    " values ('" + customer + "','" + document_type + "','" + file_name + "','" + file_path + "','" + md5 + "','" + DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") + "','" + notes + "');";
                OleDbCommand cmd = new OleDbCommand(q,con);

                try
                {
                    cmd.ExecuteNonQuery();
                }
                catch
                {
                    MessageBox.Show("正しく登録できませんでした。");
                    return;
                }

                MessageBox.Show("登録しました。");

                this.Close();
                fm.load_dgv();
            }
        }
    }
}

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

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.Data.OleDb;

using System.IO;

namespace ファイル認証フォーム

{

public partial class PathSplit : Form

{

Main fm;

public PathSplit(string[] files, Main f)

{

fm = f;

InitializeComponent();

string[] path = files[0].Split('\\');

if (path.Length >= 1) comboBox3.Text = path[path.Length - 1];

if (path.Length >= 2) comboBox2.Text = path[path.Length - 2];

if (path.Length >= 3) comboBox1.Text = path[path.Length - 3];

comboBox1.Items.AddRange(path);

comboBox2.Items.AddRange(path);

comboBox3.Items.AddRange(path);

textBox1.Text = files[0];

using (FileStream fs = new FileStream(files[0],FileMode.Open,FileAccess.Read,FileShare.Read))

{

System.Security.Cryptography.MD5CryptoServiceProvider md5 = new System.Security.Cryptography.MD5CryptoServiceProvider();

byte[] bs = md5.ComputeHash(fs);

md5.Clear();

StringBuilder res = new StringBuilder();

foreach (byte b in bs)

{

res.Append(b.ToString("x2"));

}

textBox2.Text = res.ToString();

}

private bool duplicate_path_chechk()

{

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

return false;

}

string file_path = textBox1.Text.Replace("\'", "\'\'");

try

{

string q = "select * from dat_tbl where file_path = '" + file_path + "';";

OleDbCommand cmd = new OleDbCommand(q, con);

using (OleDbDataReader dr = cmd.ExecuteReader())

{

if (dr.Read())

{

MessageBox.Show("既に登録済です。パスは重複できません。");

return false;

}

else

{

return true;

}

catch

{

MessageBox.Show("データ取得にエラーが発生しました。");

return false;

}

private void button1_Click(object sender, EventArgs e)

{

if (!duplicate_path_chechk())

{

this.Close();

return;

}

using (OleDbConnection con = new OleDbConnection(UserStrings.ds_dat))

{

try

{

con.Open();

}

catch

{

MessageBox.Show("データーベース接続にエラーが発生しました。");

return;

}

string customer = comboBox1.Text.Replace("\'", "\'\'");

string document_type = comboBox2.Text.Replace("\'", "\'\'");

string file_name = comboBox3.Text.Replace("\'", "\'\'");

string file_path = textBox1.Text.Replace("\'","\'\'");

string md5 = textBox2.Text;

string notes = textBox3.Text.Replace("\'", "\'\'");

string q = "insert into dat_tbl (customer,document_type,file_name,file_path,md5,updated,notes)" +

" values ('" + customer + "','" + document_type + "','" + file_name + "','" + file_path + "','" + md5 + "','" + DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") + "','" + notes + "');";

OleDbCommand cmd = new OleDbCommand(q,con);

try

{

cmd.ExecuteNonQuery();

}

catch

{

MessageBox.Show("正しく登録できませんでした。");

return;

}

MessageBox.Show("登録しました。");

this.Close();

fm.load_dgv();

}

2018-02-072020-11-30

AutoHotkey マウスクリックループ

一定のタイミングでマウスクリック

IsStop:=0
A::
Loop
{
  MouseClick ,Left
  Sleep, 3000

  if(IsStop=1)
  {
    IsStop:=0
    Return
  }

}
Return

B::
  IsStop:=1
Return

IsStop:=0

A::

Loop

{

MouseClick ,Left

Sleep, 3000

if(IsStop=1)

{

IsStop:=0

Return

}

Return

B::

IsStop:=1

Return

2018-01-30

C# クラスの実験

using System.Windows.Forms;

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

            //動的な型＝インスタンスの型。a.GetType()
            //静的な型＝変数の型。typeof(a)

            //静的な型　／　動的な型
            A a1 = new A();
            B b1 = new B();
            A a2 = new B();

            MessageBox.Show(a1.GetType().ToString()); //A
            MessageBox.Show(b1.GetType().ToString()); //B
            MessageBox.Show(a2.GetType().ToString()); //B
            //a2はAの型の変数だけど、インスタンスはBが入っている。

            MessageBox.Show(typeof(A).ToString()); //A
            MessageBox.Show(typeof(B).ToString()); //B

            //変数同士の代入時、静的な型で判断
            //基底の変数に派生の変数を入れる＝アップキャスト。(安全)
            //派生の変数に基底の変数を入れる＝ダウンキャスト。(不可)

            //メソッドは通常静的な型で呼ばれる。
            MessageBox.Show(a1.say()); //A
            MessageBox.Show(b1.say()); //B
            MessageBox.Show(a2.say()); //A

            //Virtualは動的な型でメソッドが呼ばれる。
            //Virtualメソッドの再定義Override

            C c1 = new C();
            D d1 = new D();
            C c2 = new D();
            MessageBox.Show(c1.say());//C
            MessageBox.Show(d1.say());//D
            MessageBox.Show(c2.say());//D

            //コンストラクタは、基底クラスが呼ばれ、派生クラスが呼ばれる。
        }
    }

    public class A
    {
        public string say() { return "A"; }
    }
    public class B : A
    {
        public string say() { return "B"; }
    }
    public class C
    {
        public virtual string say() { return "C"; }
    }
    public class D : C
    {
        public override string say() { return "D"; }
        //virtualメソッドじゃないとoverrideできない。
    }
}

using System.Windows.Forms;

namespace WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

//動的な型＝インスタンスの型。a.GetType()

//静的な型＝変数の型。typeof(a)

//静的な型　／　動的な型

A a1 = new A();

B b1 = new B();

A a2 = new B();

MessageBox.Show(a1.GetType().ToString()); //A

MessageBox.Show(b1.GetType().ToString()); //B

MessageBox.Show(a2.GetType().ToString()); //B

//a2はAの型の変数だけど、インスタンスはBが入っている。

MessageBox.Show(typeof(A).ToString()); //A

MessageBox.Show(typeof(B).ToString()); //B

//変数同士の代入時、静的な型で判断

//基底の変数に派生の変数を入れる＝アップキャスト。(安全)

//派生の変数に基底の変数を入れる＝ダウンキャスト。(不可)

//メソッドは通常静的な型で呼ばれる。

MessageBox.Show(a1.say()); //A

MessageBox.Show(b1.say()); //B

MessageBox.Show(a2.say()); //A

//Virtualは動的な型でメソッドが呼ばれる。

//Virtualメソッドの再定義Override

C c1 = new C();

D d1 = new D();

C c2 = new D();

MessageBox.Show(c1.say());//C

MessageBox.Show(d1.say());//D

MessageBox.Show(c2.say());//D

//コンストラクタは、基底クラスが呼ばれ、派生クラスが呼ばれる。

}

public class A

{

public string say() { return "A"; }

}

public class B : A

{

public string say() { return "B"; }

}

public class C

{

public virtual string say() { return "C"; }

}

public class D : C

{

public override string say() { return "D"; }

//virtualメソッドじゃないとoverrideできない。

}

2018-01-252020-05-05

簿記会計原則

会計公準

会計公準とは会計での基礎的前提

企業実体の公準。会計の対象は企業であること。
継続企業の公準。企業は永久に活動する前提であること。
貨幣的評価の公準。評価の単位は貨幣であること。

会計原則

一般原則、損益計算書原則、貸借対照表原則の３つがある。

一般原則

真実性の原則。相対的な真実。より実態に適した処理方法。
資本取引、損益取引区分の原則。資本取引、損益取引を混同しない。
継続性の原則。採用した会計処理をむやみに変更しない。
単一性の原則。複数帳簿の禁止
正規の簿記の原則。正確な会計帳簿を作成すること。
明瞭性の原則。重要な会計方針の注記。後発事象の注記。
保守主義の原則。収益は小さく遅く。費用は大きく早く。

損益計算書原則

費用収益対応の原則。発生した収益に費用を対応させ利益を計算。個別的対応、期間的対応。
総額主義の原則。収益と費用の項目で相殺しない。
収支額基準。収益、費用は現金の支出にもとづいて計上。いくらで計上するか。
発生主義の原則。収益、費用は発生した期間に割り当てる。いつ計上するか。
実現主義の原則。収益は対価を受け取った時点で認識し、未実現収益は除外する。

貸借対照表原則

貸借対照表完全性の原則。資産、負債、純資産をもれなく記載すること。
区分表示の原則。流動資産、固定資産、繰延資産のように区分し、配列は流動性配列法を用いる。
費用配分の原則。資産を使用した期間にもとづいて費用配分すること。
総額主義の原則。相殺して表示はしてはならない。
取得原価主義の原則。資産は取得価額で測定する。

2018-01-25

VBA 日次チェックシート生成

Function holiday_chk(dt)

'通常の休日
If Weekday(dt) = 1 Or Weekday(dt) = 7 Then
  holiday_chk = True
  Exit Function
End If

'祝日
For r = 3 To 30
  If Sheets("表紙").Cells(r, 4).Value = dt Then
    holiday_chk = True
    Exit Function
  End If
Next r

holiday_chk = False

End Function
Private Sub CommandButton1_Click()

'入力チェック --------------------------------------------------------

If IsDate(Sheets("表紙").Cells(3, 2).Value) = False Then
  MsgBox "開始日が日付ではありません。"
  Exit Sub
End If

If IsDate(Sheets("表紙").Cells(6, 2).Value) = False Then
  MsgBox "終了日が日付ではありません。"
  Exit Sub
End If

If Sheets("表紙").Cells(3, 2).Value >= Sheets("表紙").Cells(6, 2).Value Then
  MsgBox "開始日と終了日の関係が正しくありません。"
  Exit Sub
End If

'ゴミ分別 --------------------------------------------------------

Sheets("ゴミ分別原本(雛形)").Copy after:=Sheets("表紙")
Set g = ActiveSheet

r = 7
dt = Sheets("表紙").Cells(3, 2).Value
Do While dt <= Sheets("表紙").Cells(6, 2).Value

  f = holiday_chk(dt)
  
  '表示形式
  If r = 7 Then
    g.Cells(r, 1).NumberFormatLocal = "yyyy/mm/dd"
  Else
    g.Cells(r, 1).NumberFormatLocal = "mm/dd"
  End If
  
  g.Cells(r, 3).NumberFormatLocal = "aaa"
  
  '配置
  g.Cells(r, 5).HorizontalAlignment = xlCenter
  g.Cells(r, 6).HorizontalAlignment = xlCenter
  g.Cells(r, 7).HorizontalAlignment = xlCenter
  g.Cells(r, 9).HorizontalAlignment = xlCenter
  
  '休日の場合
  If f = True Then g.Range(g.Cells(r, 1), g.Cells(r, 9)).Interior.Color = RGB(222, 222, 222)
  
  '罫線
  g.Range(g.Cells(r, 1), g.Cells(r, 9)).Borders.LineStyle = True
  
  '値
  g.Cells(r, 1).Value = dt '日付
  g.Cells(r, 3).Value = dt '曜日
  
  '休日では無い場合
  If f = False Then
    g.Cells(r, 5).Value = "○" '一般廃棄物ゴミ
    g.Cells(r, 6).Value = "○" '廃プラスチック類
    g.Cells(r, 7).Value = "○" '金属くず
    g.Cells(r, 8).Value = "" '備考
    tmp = Int((15 - 9 + 1) * Rnd + 9)
    g.Cells(r, 9).Value = Sheets("表紙").Cells(tmp, 2).Value 'チェック者
  End If
  
r = r + 1
dt = DateAdd("d", 1, dt)
Loop

'表題
g.Cells(2, 1).Value = "　　▼" & Sheets("表紙").Cells(18, 2).Value & "年廃棄物分別チェック表"

'作成日
For Each sh In g.Shapes
  If sh.Type = msoTextBox Then
    If sh.TextFrame.Characters.Text = "x" Then
      sh.TextFrame.Characters.Text = "作成日 " & Sheets("表紙").Cells(21, 2).Value
    End If
  End If
Next

'照明チェック --------------------------------------------------------

Sheets("照明チェック(雛形)").Copy after:=Sheets("表紙")
Set s = ActiveSheet

r = 9
dt = Sheets("表紙").Cells(3, 2).Value
Do While dt <= Sheets("表紙").Cells(6, 2).Value

  f = holiday_chk(dt)
  
  '表示形式
  If r = 9 Then
    s.Cells(r, 1).NumberFormatLocal = "yyyy/mm/dd"
  Else
    s.Cells(r, 1).NumberFormatLocal = "mm/dd"
  End If
  
  s.Cells(r, 3).NumberFormatLocal = "aaa"
  
  '配置
  s.Cells(r, 5).HorizontalAlignment = xlCenter
  s.Cells(r, 6).HorizontalAlignment = xlCenter
  s.Cells(r, 7).HorizontalAlignment = xlCenter
  s.Cells(r, 8).HorizontalAlignment = xlCenter
  s.Cells(r, 9).HorizontalAlignment = xlCenter
  s.Cells(r, 11).HorizontalAlignment = xlCenter
  
  '休日の場合
  If f = True Then s.Range(s.Cells(r, 1), s.Cells(r, 11)).Interior.Color = RGB(222, 222, 222)
  
  '罫線
  s.Range(s.Cells(r, 1), s.Cells(r, 11)).Borders.LineStyle = True
  
  '値
  s.Cells(r, 1).Value = dt '日付
  s.Cells(r, 3).Value = dt '曜日
  
  '休日では無い場合
  If f = False Then
    s.Cells(r, 5).Value = "○" '照明
    s.Cells(r, 6).Value = "○" '空調
    s.Cells(r, 7).Value = "○" 'マシン
    s.Cells(r, 8).Value = "○" 'ディスプレイ
    s.Cells(r, 9).Value = "○" 'プリンタ
    tmp = Int((15 - 9 + 1) * Rnd + 9)
    s.Cells(r, 11).Value = Sheets("表紙").Cells(tmp, 2).Value 'チェック者
  End If
  
r = r + 1
dt = DateAdd("d", 1, dt)
Loop

'表題
s.Cells(2, 1).Value = "　　▼" & Sheets("表紙").Cells(18, 2).Value & "年省エネチェック表"

'作成日
For Each sh In s.Shapes
  If sh.Type = msoTextBox Then
    If sh.TextFrame.Characters.Text = "x" Then
      sh.TextFrame.Characters.Text = "作成日 " & Sheets("表紙").Cells(21, 2).Value
    End If
  End If
Next

End Sub

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

Function holiday_chk(dt)

'通常の休日

If Weekday(dt) = 1 Or Weekday(dt) = 7 Then

holiday_chk = True

Exit Function

End If

'祝日

For r = 3 To 30

If Sheets("表紙").Cells(r, 4).Value = dt Then

holiday_chk = True

Exit Function

End If

Next r

holiday_chk = False

End Function

Private Sub CommandButton1_Click()

'入力チェック --------------------------------------------------------

If IsDate(Sheets("表紙").Cells(3, 2).Value) = False Then

MsgBox "開始日が日付ではありません。"

Exit Sub

End If

If IsDate(Sheets("表紙").Cells(6, 2).Value) = False Then

MsgBox "終了日が日付ではありません。"

Exit Sub

End If

If Sheets("表紙").Cells(3, 2).Value >= Sheets("表紙").Cells(6, 2).Value Then

MsgBox "開始日と終了日の関係が正しくありません。"

Exit Sub

End If

'ゴミ分別 --------------------------------------------------------

Sheets("ゴミ分別原本(雛形)").Copy after:=Sheets("表紙")

Set g = ActiveSheet

r = 7

dt = Sheets("表紙").Cells(3, 2).Value

Do While dt <= Sheets("表紙").Cells(6, 2).Value

f = holiday_chk(dt)

'表示形式

If r = 7 Then

g.Cells(r, 1).NumberFormatLocal = "yyyy/mm/dd"

Else

g.Cells(r, 1).NumberFormatLocal = "mm/dd"

End If

g.Cells(r, 3).NumberFormatLocal = "aaa"

'配置

g.Cells(r, 5).HorizontalAlignment = xlCenter

g.Cells(r, 6).HorizontalAlignment = xlCenter

g.Cells(r, 7).HorizontalAlignment = xlCenter

g.Cells(r, 9).HorizontalAlignment = xlCenter

'休日の場合

If f = True Then g.Range(g.Cells(r, 1), g.Cells(r, 9)).Interior.Color = RGB(222, 222, 222)

'罫線

g.Range(g.Cells(r, 1), g.Cells(r, 9)).Borders.LineStyle = True

'値

g.Cells(r, 1).Value = dt '日付

g.Cells(r, 3).Value = dt '曜日

'休日では無い場合

If f = False Then

g.Cells(r, 5).Value = "○" '一般廃棄物ゴミ

g.Cells(r, 6).Value = "○" '廃プラスチック類

g.Cells(r, 7).Value = "○" '金属くず

g.Cells(r, 8).Value = "" '備考

tmp = Int((15 - 9 + 1) * Rnd + 9)

g.Cells(r, 9).Value = Sheets("表紙").Cells(tmp, 2).Value 'チェック者

End If

r = r + 1

dt = DateAdd("d", 1, dt)

Loop

'表題

g.Cells(2, 1).Value = "　　▼" & Sheets("表紙").Cells(18, 2).Value & "年廃棄物分別チェック表"

'作成日

For Each sh In g.Shapes

If sh.Type = msoTextBox Then

If sh.TextFrame.Characters.Text = "x" Then

sh.TextFrame.Characters.Text = "作成日 " & Sheets("表紙").Cells(21, 2).Value

End If

'照明チェック --------------------------------------------------------

Sheets("照明チェック(雛形)").Copy after:=Sheets("表紙")

Set s = ActiveSheet

r = 9

dt = Sheets("表紙").Cells(3, 2).Value

Do While dt <= Sheets("表紙").Cells(6, 2).Value

f = holiday_chk(dt)

'表示形式

If r = 9 Then

s.Cells(r, 1).NumberFormatLocal = "yyyy/mm/dd"

Else

s.Cells(r, 1).NumberFormatLocal = "mm/dd"

End If

s.Cells(r, 3).NumberFormatLocal = "aaa"

'配置

s.Cells(r, 5).HorizontalAlignment = xlCenter

s.Cells(r, 6).HorizontalAlignment = xlCenter

s.Cells(r, 7).HorizontalAlignment = xlCenter

s.Cells(r, 8).HorizontalAlignment = xlCenter

s.Cells(r, 9).HorizontalAlignment = xlCenter

s.Cells(r, 11).HorizontalAlignment = xlCenter

'休日の場合

If f = True Then s.Range(s.Cells(r, 1), s.Cells(r, 11)).Interior.Color = RGB(222, 222, 222)

'罫線

s.Range(s.Cells(r, 1), s.Cells(r, 11)).Borders.LineStyle = True

'値

s.Cells(r, 1).Value = dt '日付

s.Cells(r, 3).Value = dt '曜日

'休日では無い場合

If f = False Then

s.Cells(r, 5).Value = "○" '照明

s.Cells(r, 6).Value = "○" '空調

s.Cells(r, 7).Value = "○" 'マシン

s.Cells(r, 8).Value = "○" 'ディスプレイ

s.Cells(r, 9).Value = "○" 'プリンタ

tmp = Int((15 - 9 + 1) * Rnd + 9)

s.Cells(r, 11).Value = Sheets("表紙").Cells(tmp, 2).Value 'チェック者

End If

r = r + 1

dt = DateAdd("d", 1, dt)

Loop

'表題

s.Cells(2, 1).Value = "　　▼" & Sheets("表紙").Cells(18, 2).Value & "年省エネチェック表"

'作成日

For Each sh In s.Shapes

If sh.Type = msoTextBox Then

If sh.TextFrame.Characters.Text = "x" Then

sh.TextFrame.Characters.Text = "作成日 " & Sheets("表紙").Cells(21, 2).Value

End If

End Sub