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

2018-01-192022-08-23

C# DataTable メモ

using System.Data;
using System.Linq;
using System.Windows.Forms;

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

            // データテーブル作成
            DataTable dt = new DataTable("newTable");

            // カラム作成
            string[] cols = new string[] { "id", "name", "age" };

            foreach (string c in cols)
            {
                dt.Columns.Add(c);
            }

            // データセット作成
            DataSet ds = new DataSet();

            // データセットにテーブルを追加
            ds.Tables.Add(dt);

            // 値作成(2次元配列) 
            string[,] vals = new string[,] {
                {"01", "02", "03", "04"}, // id
                {"aa", "bb", "cc", "dd"}, // name
                {"11", "12", "13", "14"}  // age
            };

            for (int r = 0; r < vals.GetLength(1); r++) // GetLength(0) = 3(1次元), GetLength(1) = 4(2次元)
            {
                DataRow row = ds.Tables["newTable"].NewRow();
                // DataRow row = dt.NewRow(); このようにも書ける

                row["id"] = vals[0, r]; // [1次元、2次元]
                row["name"] = vals[1, r];
                row["age"] = vals[2, r];

                ds.Tables["newTable"].Rows.Add(row);
            }

            // データソース設定
            dataGridView1.DataSource = ds.Tables["newTable"];

            // 条件を追加したデータテーブル間での複写--------------------------------------------------------

            var newTable = dt.Clone();

            // ベースループ
            foreach (var baseRow in dt.AsEnumerable())
            {
                // ①特定の行を飛ばす
                if (baseRow["id"].ToString() == "02") continue;

                // ②特定の文字列を置き換える
                if(baseRow["age"].ToString() == "13")
                {
                    baseRow["age"] = "26";
                }

                newTable.ImportRow(baseRow);
            }

            // データセット作成
            DataSet ds2 = new DataSet();

            // データセットにテーブルを追加
            ds2.Tables.Add(newTable.Copy());

            // データソース設定
            dataGridView2.DataSource = ds2.Tables["newTable"];
        }
    }
}

using System.Data;

using System.Linq;

using System.Windows.Forms;

namespace WindowsFormsApp1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

// データテーブル作成

DataTable dt = new DataTable("newTable");

// カラム作成

string[] cols = new string[] { "id", "name", "age" };

foreach (string c in cols)

{

dt.Columns.Add(c);

}

// データセット作成

DataSet ds = new DataSet();

// データセットにテーブルを追加

ds.Tables.Add(dt);

// 値作成(2次元配列)

string[,] vals = new string[,] {

{"01", "02", "03", "04"}, // id

{"aa", "bb", "cc", "dd"}, // name

{"11", "12", "13", "14"} // age

};

for (int r = 0; r < vals.GetLength(1); r++) // GetLength(0) = 3(1次元), GetLength(1) = 4(2次元)

{

DataRow row = ds.Tables["newTable"].NewRow();

// DataRow row = dt.NewRow(); このようにも書ける

row["id"] = vals[0, r]; // [1次元、2次元]

row["name"] = vals[1, r];

row["age"] = vals[2, r];

ds.Tables["newTable"].Rows.Add(row);

}

// データソース設定

dataGridView1.DataSource = ds.Tables["newTable"];

// 条件を追加したデータテーブル間での複写--------------------------------------------------------

var newTable = dt.Clone();

// ベースループ

foreach (var baseRow in dt.AsEnumerable())

{

// ①特定の行を飛ばす

if (baseRow["id"].ToString() == "02") continue;

// ②特定の文字列を置き換える

if(baseRow["age"].ToString() == "13")

{

baseRow["age"] = "26";

}

newTable.ImportRow(baseRow);

}

// データセット作成

DataSet ds2 = new DataSet();

// データセットにテーブルを追加

ds2.Tables.Add(newTable.Copy());

// データソース設定

dataGridView2.DataSource = ds2.Tables["newTable"];

}

2017-12-262017-12-26

PowerShell リモート接続設定

ホスト側のPC

enable-psremoting
を実行。

ネットワークがPublicだと接続できない。
Win10の設定＞ネットワークとインターネット＞接続プロパティの変更＞プライベート

接続できるユーザを追加。
Set-PSSessionConfiguration -Name Microsoft.PowerShell -showSecurityDescriptorUI
追加するとき、もしMicrosoftアカウントならメールアドレスで検索して追加。

クライアント側のPC

クライアント側から信頼できるホストを追加。
Set-Item WSMan:\localhost\Client\TrustedHosts -Value PC_name

接続は、
Enter-PSSession -ComputerName PC_name -Credential mail@xxx.com
を実行。

切断は、
Exit-PSSession

エイリアス追加

必要なら
Set-ExecutionPolicy Unrestricted

$profile
を実行すると読み込まれているかどうか分かる。

既にファイルが存在すれば、
notepad $profile
存在しなければ、
New-item -type file -force $profile
notepad $profile
を実行し、以下のように記述。

Set-Alias -name c -value cd
Set-Alias -name l -value ls
Set-Alias -name pss -value f
function f()
{
Enter-PSSession -ComputerName PC_name -Credential mail@xxx.com
}

2017-12-222023-09-17

ショートカットメモ

よく使うものだけ。

Excel

・オートフィルタ：
Alt＞A＞T

・ソート：
Alt＞A＞S＞S

・重複削除：
Alt＞A＞M

・書式設定：
Ctrl + 1

・値の貼り付け：
右クリック＞S＞V

・テキストボックス挿入：
Alt＞N＞X＞H

・図形挿入：
Alt＞N＞S＞H

Affinity Designer

・移動ツール：
V

・カーブ形式に変換：
右クリック＞カーブに変換

＊＊＊

・ノードツール：
A

・コントロールハンドル削除：
Alt+クリック

・ノード削除：
ノード選択＞Delete

・カーブ切断：
ノード選択＞右クリック＞カーブ切断

・コントロールハンドル追加
ノード選択＞右クリック＞スマートに変換

Illustrator

・ダイレクト選択（パスの部分的削除）：
A

・選択：
V

・複写：
Alt + ドラッグ

・移動＝角度固定／縮小拡大＝比率固定：
Shift + ドラッグ

・ペン：
P
＞アンカーポイント追加
＞アンカーポイント削除

・アンカー切り替えツール：
Shift + C：
＞アンカーポイントクリック＞ハンドル作成
＞ハンドルクリック＞ハンドル削除

・ズーム：
Z

・ズーム：
Ctrl + Space

・標準表示：
Ctrl + 1

・上下：
スクロール

・左右：
Ctrl + スクロール

・パスのアウトライン化：
オブジェクト＞パス＞パスのアウトライン

・オブジェクトの結合・切り抜き：
ウィンドウ＞パスファインダー

・影、ぼかし：
効果＞スタライズ＞ドロップシャドウ・ぼかし

・テキストボックス：
アピアランス追加＞形状に変換＞長方形

Gimp

・部分的に削除して上下を詰めたい場合
Ctrl+Shift+L(選択範囲のフローと化)
右クリック＞I,O(内容で切り抜き)
右クリック＞F,W(上書きエクスポート)

・移動
M

・切り抜き
Shif+C
縦横比にチェックを入れれば現在の比率で切り抜ける

・選択
E / R

・回転
Shift+R
Shift押しながらだと15度ずつ

・拡大縮小
Shift+S

レイヤー＞レイヤーをキャンバスに合わせる
・レイヤーが小さい場合＝レイヤーサイズがキャンバスと同じになる。
・レイヤーが大きい場合＝キャンバスからはみ出したレイヤーが切り落とされる。
※キャンバスのサイズは変わらない。レイヤーのサイズが変わる。

画像＞内容で切り抜き
・レイヤーが小さい場合＝キャンバスがレイヤーサイズになる。
・レイヤーが大きい場合＝キャンバスからはみ出したレイヤーが切り落とされる。
※はみ出したレイヤーは切り落とされ、
レイヤーの無いキャンバスはトリムされるように、キャンバスサイズが変わる。

画像＞キャンバスをレイヤーに合わせる
・レイヤーが小さい場合＝キャンバスがレイヤーサイズになる。
・レイヤーが大きい場合＝キャンバスがレイヤーサイズになる。
※レイヤーを損なわないようにキャンバスのサイズ変わる。

Visual Studio

・コメント登録/削除：
Ctrl + E＞C / Ctrl + E＞U

・ブックマーク登録/削除：
Ctrl + K＞K

・ブックマーク移動：
Ctrl + K＞N

・定義元へ移動：
F12

・オブジェクトが使われている一覧：
Ctrl + K, R

・戻る：
Ctrl + –

・対応するカッコにジャンプ：
Ctrl + ]

・指定行へ移動：
Ctrl + g

・デバッグ実行：
F5

IME

普段はGoogle日本語入力を利用。

・確定後修正

確定後、
Ctrl + BS
で、確定前の状態に戻し、もう一度、
Ctrl + BS(またはEsc)
でかな状態に戻せば部分的に修正できる。

Escだと押しすぎるとキャンセルされてしまうので、
Ctrl + BS
を2回押す方が無難。

・変換

カタカナ変換
Ctrl + I

ひらがな変換
Ctrl + U

半角変換
Ctrl + O

英数変換
Ctrl + P

半角のカタカナ、英数は、
Ctrl + I → O / Ctrl + P → O
と入力する。

・区切位置の移動

区切位置の移動
Ctrl + K / Ctrl + L

変換対象の切り替え
Ctrl + S / Ctrl + D

変換対象の部分確定
Ctrl + N

2017-12-21

C# SSH.NET

資料が少ない。NuGetでSSH.NETと検索。

using System;
using System.Windows.Forms;

using Renci.SshNet;

namespace BlogBackup
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent(); 
        }
        
        private void button1_Click(object sender, EventArgs e)
        {
            var pkci = new PrivateKeyConnectionInfo("URL",22, "user", new PrivateKeyFile("key", "pass"));

            using (var ssh = new SshClient(pkci))
            {
                ssh.Connect();
                var cmd = ssh.CreateCommand("ls");
                cmd.Execute();
                ssh.Disconnect();
            }

            using (var ftp = new SftpClient(pkci))
            {
                ftp.Connect();
                ftp.DownloadFile("/home/xxx/test.sql", System.IO.File.OpenWrite("test.sql"));
                ftp.Disconnect();
            }
        }
    }
}

using System;

using System.Windows.Forms;

using Renci.SshNet;

namespace BlogBackup

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

var pkci = new PrivateKeyConnectionInfo("URL",22, "user", new PrivateKeyFile("key", "pass"));

using (var ssh = new SshClient(pkci))

{

ssh.Connect();

var cmd = ssh.CreateCommand("ls");

cmd.Execute();

ssh.Disconnect();

}

using (var ftp = new SftpClient(pkci))

{

ftp.Connect();

ftp.DownloadFile("/home/xxx/test.sql", System.IO.File.OpenWrite("test.sql"));

ftp.Disconnect();

}

2017-12-182020-05-06

Hyper-V debianインストール

msinfo32 ＞システム要約
下部を見るとHyper-Vが使えるかどうか確認できる。

optionalfeatures
Hyper-Vにチェックして機能追加。

Windows管理ツール＞ Hyper-Vマネージャー
を起動し、仮想マシンを作成する。

・第１世代
・起動メモリ1024MB
・動的メモリ
・規定のスイッチ

Hyper-Vマネージャーから作成した仮想マシンを右クリックしてプロパティを表示し、
DVDドライブにISOをマウントする。

今回はdebian/64bitのisoファイルをマウントした。

起動し接続すれば、リモート接続と同じように操作ができる。

今回試したPCの性能では実用的ではなかった。当然ある程度の性能は必要。
また相性も悪いようで操作中何度もフリーズしてしまった。

2017-12-082020-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;
using System.IO;
using System.Text.RegularExpressions;

namespace JAN解析
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int i = 1;
            string path = Application.StartupPath + @"\jan";
            StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

            foreach (string fileName in Directory.GetFiles(path))
            {
                this.Text = i.ToString();
                using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))
                {
                    string line = "";
                    string date = "";
                    string staff_name = "";
                    string point = "";
                    string card_no = "";

                    while (sr.Peek() > -1)
                    {
                        line = sr.ReadLine();

                        if (new Regex("--------------------------------").IsMatch(line))
                        {
                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                        else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))
                        {
                            Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);
                            date = m.Groups[0].Value;
                        }
                        else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))
                        {
                            Match m = new Regex(@"^No00[0-9](\S*)").Match(line);
                            staff_name = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*[0-9]*点").IsMatch(line))
                        {
                            Match m = new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*([0-9]*点)").Match(line);
                            point = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);
                            card_no = m.Groups[1].Value;
                        }

                        if (date != "" && staff_name != "" && point != "" && card_no != "")
                        {
                            string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";
                            sw.Write(matched);

                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                    }
                }
                i++;
            }
            sw.Close();
            MessageBox.Show("完了");
        }

        private void button2_Click(object sender, EventArgs e)
        {
            int i = 1;
            string path = Application.StartupPath + @"\jan";
            StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

            foreach (string fileName in Directory.GetFiles(path))
            {
                this.Text = i.ToString();
                using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))
                {
                    string line = "";
                    string date = "";
                    string staff_name = "";
                    string point = "";
                    string card_no = "";

                    while (sr.Peek() > -1)
                    {
                        line = sr.ReadLine();

                        if (new Regex("--------------------------------").IsMatch(line))
                        {
                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                        else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))
                        {
                            Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);
                            date = m.Groups[0].Value;
                        }
                        else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))
                        {
                            Match m = new Regex(@"^No00[0-9](\S*)").Match(line);
                            staff_name = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^\s割引券\s*[0-9]*点").IsMatch(line))
                        {
                            Match m = new Regex(@"^\s割引券\s*([0-9]*)点").Match(line);
                            point = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);
                            card_no = m.Groups[1].Value;
                        }

                        if (date != "" && staff_name != "" && point != "" && card_no != "")
                        {
                            string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";
                            sw.Write(matched);

                            date = "";
                            staff_name = "";
                            point = "";
                            card_no = "";
                        }
                    }
                }
                i++;
            }
            sw.Close();
            MessageBox.Show("完了");
        }

        private void button3_Click(object sender, EventArgs e)
        {
            int i = 1;
            string path = Application.StartupPath + @"\jan";
            StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

            foreach (string fileName in Directory.GetFiles(path))
            {
                this.Text = i.ToString();
                using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))
                {
                    string line = "";
                    string date = "";
                    string staff_name = "";
                    string amount = "";
                    string card_no = "";

                    while (sr.Peek() > -1)
                    {
                        line = sr.ReadLine();

                        if (new Regex("--------------------------------").IsMatch(line))
                        {
                            date = "";
                            staff_name = "";
                            amount = "";
                            card_no = "";
                        }
                        else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))
                        {
                            Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);
                            date = m.Groups[0].Value;
                        }
                        else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))
                        {
                            Match m = new Regex(@"^No00[0-9](\S*)").Match(line);
                            staff_name = m.Groups[1].Value;
                        }
                        else if (new Regex(@"^合計\s*\\[0-9,]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^合計\s*(\\[0-9,]*)").Match(line);
                            amount = m.Groups[1].Value;
                            amount = amount.Replace(",", "");
                        }
                        else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))
                        {
                            Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);
                            card_no = m.Groups[1].Value;
                            if (card_no != textBox1.Text) card_no = "";
                        }

                        if (date != "" && staff_name != "" && amount != "" && card_no != "")
                        {
                            string matched = date + "," + staff_name + "," + card_no + "," + amount + "\r\n";
                            sw.Write(matched);

                            date = "";
                            staff_name = "";
                            amount = "";
                            card_no = "";
                        }
                    }
                }
                i++;
            }
            sw.Close();
            MessageBox.Show("完了");
        }
    }
}

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

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.IO;

using System.Text.RegularExpressions;

namespace JAN解析

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

int i = 1;

string path = Application.StartupPath + @"\jan";

StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

foreach (string fileName in Directory.GetFiles(path))

{

this.Text = i.ToString();

using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))

{

string line = "";

string date = "";

string staff_name = "";

string point = "";

string card_no = "";

while (sr.Peek() > -1)

{

line = sr.ReadLine();

if (new Regex("--------------------------------").IsMatch(line))

{

date = "";

staff_name = "";

point = "";

card_no = "";

}

else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))

{

Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);

date = m.Groups[0].Value;

}

else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))

{

Match m = new Regex(@"^No00[0-9](\S*)").Match(line);

staff_name = m.Groups[1].Value;

}

else if (new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*[0-9]*点").IsMatch(line))

{

Match m = new Regex(@"^\s訂正ﾎﾟｲﾝﾄ\s*([0-9]*点)").Match(line);

point = m.Groups[1].Value;

}

else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))

{

Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);

card_no = m.Groups[1].Value;

}

if (date != "" && staff_name != "" && point != "" && card_no != "")

{

string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";

sw.Write(matched);

date = "";

staff_name = "";

point = "";

card_no = "";

}

i++;

}

sw.Close();

MessageBox.Show("完了");

}

private void button2_Click(object sender, EventArgs e)

{

int i = 1;

string path = Application.StartupPath + @"\jan";

StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

foreach (string fileName in Directory.GetFiles(path))

{

this.Text = i.ToString();

using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))

{

string line = "";

string date = "";

string staff_name = "";

string point = "";

string card_no = "";

while (sr.Peek() > -1)

{

line = sr.ReadLine();

if (new Regex("--------------------------------").IsMatch(line))

{

date = "";

staff_name = "";

point = "";

card_no = "";

}

else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))

{

Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);

date = m.Groups[0].Value;

}

else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))

{

Match m = new Regex(@"^No00[0-9](\S*)").Match(line);

staff_name = m.Groups[1].Value;

}

else if (new Regex(@"^\s割引券\s*[0-9]*点").IsMatch(line))

{

Match m = new Regex(@"^\s割引券\s*([0-9]*)点").Match(line);

point = m.Groups[1].Value;

}

else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))

{

Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);

card_no = m.Groups[1].Value;

}

if (date != "" && staff_name != "" && point != "" && card_no != "")

{

string matched = date + "," + staff_name + "," + card_no + "," + point + "\r\n";

sw.Write(matched);

date = "";

staff_name = "";

point = "";

card_no = "";

}

i++;

}

sw.Close();

MessageBox.Show("完了");

}

private void button3_Click(object sender, EventArgs e)

{

int i = 1;

string path = Application.StartupPath + @"\jan";

StreamWriter sw = new StreamWriter(Application.StartupPath + @"\out.txt", false, Encoding.GetEncoding("shift_jis"));

foreach (string fileName in Directory.GetFiles(path))

{

this.Text = i.ToString();

using (StreamReader sr = new StreamReader(fileName, Encoding.GetEncoding("shift_jis")))

{

string line = "";

string date = "";

string staff_name = "";

string amount = "";

string card_no = "";

while (sr.Peek() > -1)

{

line = sr.ReadLine();

if (new Regex("--------------------------------").IsMatch(line))

{

date = "";

staff_name = "";

amount = "";

card_no = "";

}

else if (new Regex(@"^\d{4}年\d{2}月\d{2}日").IsMatch(line))

{

Match m = new Regex(@"^\d{4}年\d{2}月\d{2}日").Match(line);

date = m.Groups[0].Value;

}

else if (new Regex(@"^No00[0-9]\S*").IsMatch(line))

{

Match m = new Regex(@"^No00[0-9](\S*)").Match(line);

staff_name = m.Groups[1].Value;

}

else if (new Regex(@"^合計\s*\\[0-9,]*").IsMatch(line))

{

Match m = new Regex(@"^合計\s*(\\[0-9,]*)").Match(line);

amount = m.Groups[1].Value;

amount = amount.Replace(",", "");

}

else if (new Regex(@"^ｶ-ﾄﾞNO[0-9]*").IsMatch(line))

{

Match m = new Regex(@"^ｶ-ﾄﾞNO([0-9]*)").Match(line);

card_no = m.Groups[1].Value;

if (card_no != textBox1.Text) card_no = "";

}

if (date != "" && staff_name != "" && amount != "" && card_no != "")

{

string matched = date + "," + staff_name + "," + card_no + "," + amount + "\r\n";

sw.Write(matched);

date = "";

staff_name = "";

amount = "";

card_no = "";

}

i++;

}

sw.Close();

MessageBox.Show("完了");

}

2017-11-302020-05-06

Microsoft Office プロダクトキー確認方法

入ってるバージョンなどによって微妙に違う。

ちなみに、所有している中の２台は、
cscript “C:\Program Files\Microsoft Office\Office16\OSPP.VBS” /dstatus
cscript “C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS” /dstatus
となっていた。

2017-11-202017-11-21

VBA セル内の数式一覧

セル内で使われている数式を抜き出す。

シート１枚ずつ。

Sub test()

Set s1 = ActiveSheet

Sheets.Add after:=s1: Set s2 = ActiveSheet

For r = 1 To s1.UsedRange.Rows.Count
  For c = 1 To s1.UsedRange.Columns.Count
    If InStr(s1.Cells(r, c).Formula, "=") > 0 Then s2.Cells(r, c).Value = "'" & s1.Cells(r, c).Formula
  Next c
Next r

End Sub

Sub test()

Set s1 = ActiveSheet

Sheets.Add after:=s1: Set s2 = ActiveSheet

For r = 1 To s1.UsedRange.Rows.Count

For c = 1 To s1.UsedRange.Columns.Count

If InStr(s1.Cells(r, c).Formula, "=") > 0 Then s2.Cells(r, c).Value = "'" & s1.Cells(r, c).Formula

Next c

Next r

End Sub

全てのシート。

Sub test()
Sheets.Add after:=ActiveSheet
Set d = ActiveSheet
i = 1
For Each w In Sheets
  If w.Name <> d.Name Then
    For r = 1 To w.UsedRange.Rows.Count
      For c = 1 To w.UsedRange.Columns.Count
        If InStr(w.Cells(r, c).Formula, "=") > 0 Then
          d.Cells(i, 1).Value = "'" & w.Cells(r, c).Formula
          d.Cells(i, 2).Value = "'" & w.Name
          i = i + 1
        End If
      Next c
    Next r
  End If
Next
End Sub

Sub test()

Sheets.Add after:=ActiveSheet

Set d = ActiveSheet

i = 1

For Each w In Sheets

If w.Name <> d.Name Then

For r = 1 To w.UsedRange.Rows.Count

For c = 1 To w.UsedRange.Columns.Count

If InStr(w.Cells(r, c).Formula, "=") > 0 Then

d.Cells(i, 1).Value = "'" & w.Cells(r, c).Formula

d.Cells(i, 2).Value = "'" & w.Name

i = i + 1

End If

Next c

Next r

End If

End Sub

2017-11-162020-05-06

旧型PCでフルHDの再生

特に設定を変更せずそのままMPCで再生したら音飛びする。
オプション＞再生＞出力
でDirectShowのレンダラをシステム既定にしてみる。

一応音飛びはなくなったが、今度は映像と音声がズレてしまう。

ffdshowインストールする。
DirectShowフィルタのみチェックし、それ以外の全てチェックのチェック外してインストール。

インストール後、
コーデックはH264/AVCだけlibavcodecでOK。

デコーダーのオプション＞遅延時のコマ落ち
を1500から100。

デコーダーのオプション＞遅延時のH.264ブロック低減スキップ
を350から100。

Haali Media Splitterのインストール
Disable MPC internal Matroska splitter
のチェックを外す。

インストール後、
MPCの右クリック＞フィルタ＞Haali Media Splitter＞プロパティ＞Options＞Input buffer size
を8192から128000に変更。

MPCの内部フィルタの設定からソースフィルタのMP4/MOV、変換フィルタのH264/AVCを外しておく。
※ちなみに、ソースフィルタ＝内部スプリッタ使用有無。変換フィルタ＝内部コーデック使用有無。

これだけでもMPCでのMP4の再生はffdshowで行われる。

ダメな場合（PC=64bit/ffdshow=64bitでMPCが32bit等）MPCの外部フィルタにffdshowを追加する。もし表示されていない場合、参照を押してffdshowをインストールしたフォルダからffdshow.axというファイルを選択しても追加できる。

通常サイズのmp4の再生はmpcそのままで問題ないので、この設定は常用しない。

2017-11-152017-11-15

VBA 弥生CSV操作

DBに登録。

Application.StatusBar = "データアップロード中..."

On Error GoTo try

Set con = CreateObject("adodb.connection")

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ActiveWorkbook.Path & "\yayoi.mdb"
con.Execute "delete from tbl"

Set w = Sheets("貼付")

For r = 9 To w.UsedRange.Rows.Count

  If w.Cells(r, 1).Value = "[明細行]" Then

    w.Cells(r, 2).NumberFormatLocal = "yyyy/mm/dd"

    If w.Cells(r, 15).Text = "" Then w.Cells(r, 15).Value = 0
    If w.Cells(r, 16).Text = "" Then w.Cells(r, 16).Value = 0
    If w.Cells(r, 22).Text = "" Then w.Cells(r, 22).Value = 0
    If w.Cells(r, 23).Text = "" Then w.Cells(r, 23).Value = 0

    q = "insert into tbl (" & _
    "日付,借方勘定科目,借方補助科目,借方部門,借方金額,借方税額,貸方勘定科目,貸方補助科目,貸方部門,貸方金額,貸方税額,摘要" & _
    ") values (" & _
    "'" & w.Cells(r, 2).Text & "'," & _
    "'" & w.Cells(r, 10).Text & "'," & _
    "'" & w.Cells(r, 11).Text & "'," & _
    "'" & w.Cells(r, 12).Text & "'," & _
    " " & w.Cells(r, 15).Text & " ," & _
    " " & w.Cells(r, 16).Text & " ," & _
    "'" & w.Cells(r, 17).Text & "'," & _
    "'" & w.Cells(r, 18).Text & "'," & _
    "'" & w.Cells(r, 19).Text & "'," & _
    " " & w.Cells(r, 22).Text & " ," & _
    " " & w.Cells(r, 23).Text & " ," & _
    "'" & w.Cells(r, 24).Text & "');"

    con.Execute q: Debug.Print q

  End If

Next r

If con.State = 1 Then con.Close

Application.StatusBar = False

InsertDb = True

Exit Function

try:

  If con.State = 1 Then con.Close
  
  Application.StatusBar = False
  
  MsgBox Err.Description
  
  InsertDb = False

Application.StatusBar = "データアップロード中..."

On Error GoTo try

Set con = CreateObject("adodb.connection")

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ActiveWorkbook.Path & "\yayoi.mdb"

con.Execute "delete from tbl"

Set w = Sheets("貼付")

For r = 9 To w.UsedRange.Rows.Count

If w.Cells(r, 1).Value = "[明細行]" Then

w.Cells(r, 2).NumberFormatLocal = "yyyy/mm/dd"

If w.Cells(r, 15).Text = "" Then w.Cells(r, 15).Value = 0

If w.Cells(r, 16).Text = "" Then w.Cells(r, 16).Value = 0

If w.Cells(r, 22).Text = "" Then w.Cells(r, 22).Value = 0

If w.Cells(r, 23).Text = "" Then w.Cells(r, 23).Value = 0

q = "insert into tbl (" & _

"日付,借方勘定科目,借方補助科目,借方部門,借方金額,借方税額,貸方勘定科目,貸方補助科目,貸方部門,貸方金額,貸方税額,摘要" & _

") values (" & _

"'" & w.Cells(r, 2).Text & "'," & _

"'" & w.Cells(r, 10).Text & "'," & _

"'" & w.Cells(r, 11).Text & "'," & _

"'" & w.Cells(r, 12).Text & "'," & _

" " & w.Cells(r, 15).Text & " ," & _

" " & w.Cells(r, 16).Text & " ," & _

"'" & w.Cells(r, 17).Text & "'," & _

"'" & w.Cells(r, 18).Text & "'," & _

"'" & w.Cells(r, 19).Text & "'," & _

" " & w.Cells(r, 22).Text & " ," & _

" " & w.Cells(r, 23).Text & " ," & _

"'" & w.Cells(r, 24).Text & "');"

con.Execute q: Debug.Print q

End If

Next r

If con.State = 1 Then con.Close

Application.StatusBar = False

InsertDb = True

Exit Function

try:

If con.State = 1 Then con.Close

Application.StatusBar = False

MsgBox Err.Description

InsertDb = False

DBから取り出す。

Application.StatusBar = "データ取得中..."

On Error GoTo try

Set con = CreateObject("adodb.connection")
Set rec = CreateObject("adodb.recordset")

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ActiveWorkbook.Path & "\yayoi.mdb"

Set w = Sheets("集計")
w.Activate
w.Cells.Delete

i = 1

w.Cells(i, 1).Value = "売上"

i = w.UsedRange.Rows.Count + 1
rec.Open "select '生産者売上高','-',sum(貸方金額)-sum(貸方税額) from tbl where 貸方勘定科目 = '生産者売上高'", con
w.Cells(i, 2).CopyFromRecordset rec
rec.Close

i = w.UsedRange.Rows.Count + 1
w.Cells(i, 1).Value = "売上/補助"

i = w.UsedRange.Rows.Count + 1
rec.Open "select '生産者売上高',貸方補助科目,sum(貸方金額)-sum(貸方税額) from tbl where 貸方勘定科目 = '生産者売上高' group by 貸方補助科目"
w.Cells(i, 2).CopyFromRecordset rec
rec.Close

w.Columns.AutoFit

If con.State = 1 Then con.Close

Application.StatusBar = False

SelectDb = True

Exit Function

try:

  If con.State = 1 Then con.Close
  
  Application.StatusBar = False
  
  MsgBox Err.Description
  
  SelectDb = False

Application.StatusBar = "データ取得中..."

On Error GoTo try

Set con = CreateObject("adodb.connection")

Set rec = CreateObject("adodb.recordset")

con.Open "provider=microsoft.jet.oledb.4.0;data source=" & ActiveWorkbook.Path & "\yayoi.mdb"

Set w = Sheets("集計")

w.Activate

w.Cells.Delete

i = 1

w.Cells(i, 1).Value = "売上"

i = w.UsedRange.Rows.Count + 1

rec.Open "select '生産者売上高','-',sum(貸方金額)-sum(貸方税額) from tbl where 貸方勘定科目 = '生産者売上高'", con

w.Cells(i, 2).CopyFromRecordset rec

rec.Close

i = w.UsedRange.Rows.Count + 1

w.Cells(i, 1).Value = "売上/補助"

i = w.UsedRange.Rows.Count + 1

rec.Open "select '生産者売上高',貸方補助科目,sum(貸方金額)-sum(貸方税額) from tbl where 貸方勘定科目 = '生産者売上高' group by 貸方補助科目"

w.Cells(i, 2).CopyFromRecordset rec

rec.Close

w.Columns.AutoFit

If con.State = 1 Then con.Close

Application.StatusBar = False

SelectDb = True

Exit Function

try:

If con.State = 1 Then con.Close

Application.StatusBar = False

MsgBox Err.Description

SelectDb = False

該当アドレスを取り出す。

Set w = Sheets("集計")
  
For r = 1 To w.UsedRange.Rows.Count

  If w.Cells(r, 2).Text = op1 And w.Cells(r, 3).Text = op2 Then
  
    SearchText = w.Cells(r, 4).Address(rowabsolute:=False, columnabsolute:=False)
    Exit Function
  
  End If
  
Next r

SearchText = "A2"

Set w = Sheets("集計")

For r = 1 To w.UsedRange.Rows.Count

If w.Cells(r, 2).Text = op1 And w.Cells(r, 3).Text = op2 Then

SearchText = w.Cells(r, 4).Address(rowabsolute:=False, columnabsolute:=False)

Exit Function

End If

Next r

SearchText = "A2"

関数登録

w.Cells(13, 5).Value = "=集計!" & SearchText("業者仕入高", "加工他（買取）")

1	w.Cells(13, 5).Value = "=集計!" & SearchText("業者仕入高", "加工他（買取）")