入ってるバージョンなどによって微妙に違う。
ちなみに、所有している中の２台は、
cscript “C:\Program Files\Microsoft Office\Office16\OSPP.VBS” /dstatus
cscript “C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS” /dstatus
となっていた。
VBA セル内の数式一覧
セル内で使われている数式を抜き出す。
シート１枚ずつ。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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 |
全てのシート。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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 |
旧型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そのままで問題ないので、この設定は常用しない。
VBA 弥生CSV操作
DBに登録。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
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から取り出す。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
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 |
該当アドレスを取り出す。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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" |
関数登録
|
1 |
w.Cells(13, 5).Value = "=集計!" & SearchText("業者仕入高", "加工他（買取）") |
C# 継続してPing
ちょっと実験のため、継続してPingを打ち続ける。
cmd.exeでもいいのだけど、一応タスクトレイに常駐。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
using System; using System.Windows.Forms; namespace RepPing { static class Program { /// <summary> /// アプリケーションのメイン エントリ ポイントです。 /// </summary> [STAThread] static void Main() { NotifyIcon n = new NotifyIcon(); n.Visible = true; n.Text = ""; n.Icon = System.Drawing.Icon.FromHandle((new System.Drawing.Bitmap(32, 32).GetHicon())); n.DoubleClick += new EventHandler((object sender, EventArgs e) => { Application.Exit(); }); Timer t = new Timer(); t.Interval = 3600000; t.Tick += new EventHandler((object sender, EventArgs e)=> { var p = new System.Net.NetworkInformation.Ping(); var r = p.Send("192.168.1.1"); n.Text = DateTime.Now.ToString("yyyy/MM/dd hh:mm:ss") + "/" + r.Status.ToString(); ; }); t.Start(); Application.Run(); } } } |
C# DataAdapter実験
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
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 WindowsFormsApp1 { public partial class Form1 : Form { public Form1() { // DataTableはテーブルキャッシュで、そのコレクションがDataSet。 // DataReader/Adapter // DataReaderはループで取得し、Read()されるまで読み込まれないため軽い。 // DataAdapterはFill()で取得してDataSetに全て入る。(da -> ds) // DataAdapterへの更新はUpdate()で処理。 // 実験 // create table tb([ID] autoincrement, [age] int); OleDbConnection con = new OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + @"\db.mdb" + ";"); //con.Open(); //ここのOpen()は不要。Open()するならClose()必要。 //Open()すると接続型となる。 //データアダプタの作成／データセットの作成 OleDbDataAdapter da = new OleDbDataAdapter("select * from tb", con); DataSet ds = new DataSet(); //これがないとUpdate()でエラー new OleDbCommandBuilder(da); da.Fill(ds); //新しい行の作成 DataRow dr = ds.Tables[0].NewRow(); dr[1] = 10; ds.Tables[0].Rows.Add(dr); //データグリッドビューを作成し、データソースを設定 DataGridView d = new DataGridView(); d.DataSource = ds.Tables[0]; Controls.Add(d); //DataAdapterのUpdate()を実行。 Button btn = new Button(); btn.Top = Height - 100; Controls.Add(btn); btn.Click += new EventHandler((object sender, EventArgs e) => { da.Update(ds.Tables[0]);//新しい行が追加されているのでUpdate()ではInsertが実行される。 }); //con.Close(); //InitializeComponent(); } } } |
C# 在庫管理
以前にも数回同じようなソフトを作っているが、今回は
表を並べて表示するタイプ。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 |
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 預かり在庫管理ver2 { public partial class Form1 : Form { public void dgv1_setup() { string[] header = new string[] { "ID", "登録日", "伝票番号", "得意先", "仕入先", "品目名", "PO", "INV", "数量", "備考" }; foreach (string h in header) { DataGridViewTextBoxColumn col = new DataGridViewTextBoxColumn(); col.HeaderText = h; dataGridView1.Columns.Add(col); } for (int i = 1; i <= 2; i++) { DataGridViewButtonColumn col_btn = new DataGridViewButtonColumn(); col_btn.HeaderText = " "; dataGridView1.Columns.Add(col_btn); } dataGridView1.Columns[0].Visible = false; dataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells; dataGridView1.ReadOnly = true; dataGridView1.AllowUserToAddRows = false; dataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect; dataGridView1.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False; dataGridView1.RowTemplate.Height = 28; dataGridView1.Font = new Font("Meiryo UI", 9); dataGridView1.MultiSelect = false; dataGridView1.CellClick += new DataGridViewCellEventHandler(cell_click); } public void dgv2_setup() { string[] header = new string[] { "ID", "出庫日", "出庫数" }; foreach (string h in header) { DataGridViewTextBoxColumn col = new DataGridViewTextBoxColumn(); col.Name = h; col.HeaderText = h; dataGridView2.Columns.Add(col); } DataGridViewButtonColumn col_btn = new DataGridViewButtonColumn(); col_btn.HeaderText = " "; dataGridView2.Columns.Add(col_btn); dataGridView2.Columns[0].Visible = false; dataGridView2.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells; dataGridView2.ReadOnly = true; dataGridView2.AllowUserToAddRows = false; dataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect; dataGridView2.ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False; dataGridView2.RowTemplate.Height = 28; dataGridView2.Font = new Font("Meiryo UI", 9); dataGridView2.MultiSelect = false; dataGridView2.CellClick += new DataGridViewCellEventHandler(sub_cell_click); } public Form1() { InitializeComponent(); using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd1 = new OleDbCommand("select distinct customer_name from orders;", con); using (OleDbDataReader dr = cmd1.ExecuteReader()) { while (dr.Read()) { comboBox1.Items.Add(dr["customer_name"].ToString()); } } OleDbCommand cmd2 = new OleDbCommand("select distinct supplier_name from orders;", con); using (OleDbDataReader dr = cmd2.ExecuteReader()) { while (dr.Read()) { comboBox2.Items.Add(dr["supplier_name"].ToString()); } } OleDbCommand cmd3 = new OleDbCommand("select distinct item_name from orders;", con); using (OleDbDataReader dr = cmd3.ExecuteReader()) { while (dr.Read()) { comboBox3.Items.Add(dr["item_name"].ToString()); } } } catch (OleDbException e) { foreach (Control c in this.Controls) { c.Enabled = false; } MessageBox.Show(e.Message); return; } finally { con.Close(); } } textBox1.TextChanged += new EventHandler((object sender, EventArgs e) => { button1.Text = textBox1.Text == "" ? "登録" : "更新"; }); dgv1_setup(); dgv2_setup(); dgv_load("select * from orders where visible <> 'hide';", "完了"); form_clear(); } private string rp(string s) { s = s.Replace("\'", "’"); s = s.Replace("\"", "”"); return s; } private void sub_cell_click(object sender, DataGridViewCellEventArgs e) { int btn_ci = 3; int ri = e.RowIndex; int ci = e.ColumnIndex; if (ri == -1 || ci == -1) return; string id = dataGridView2.Rows[ri].Cells[0].Value.ToString(); if (ci == btn_ci) { DialogResult yn = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo); if (yn == DialogResult.No) return; using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand("delete from shipments where shipments_id = " + id + ";", con); cmd.ExecuteNonQuery(); } catch (OleDbException ex) { MessageBox.Show(ex.Message); } finally { con.Close(); } } sub_dgv_load(textBox1.Text); } } private void cell_click(object sender, DataGridViewCellEventArgs e) { int btn1_ci = 10; int btn2_ci = 11; int btn3_ci = 6; int ri = e.RowIndex; int ci = e.ColumnIndex; if (ri == -1 || ci == -1) return; string id = dataGridView1.Rows[ri].Cells[0].Value.ToString(); string po = dataGridView1.Rows[ri].Cells[6].Value.ToString(); string btn_cap = dataGridView1.Rows[ri].Cells[btn1_ci].Value.ToString(); if (ci == btn1_ci) { rows_change(id, btn_cap); dgv_load("select * from orders where visible <> 'hide';", "完了"); form_clear(); return; } else if (ci == btn2_ci) { DialogResult yn = MessageBox.Show("削除しますか？", "", MessageBoxButtons.YesNo); if (yn == DialogResult.No) return; using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand("delete from orders where orders_id = " + id + ";", con); cmd.ExecuteNonQuery(); } catch (OleDbException ex) { MessageBox.Show(ex.Message); } finally { con.Close(); } } dgv_load("select * from orders where visible <> 'hide';", "完了"); form_clear(); return; } else if (ci == btn3_ci) { open_Folder(po); return; } textBox1.Text = dataGridView1.Rows[ri].Cells[0].Value.ToString(); textBox8.Text = dataGridView1.Rows[ri].Cells[1].Value.ToString(); textBox2.Text = dataGridView1.Rows[ri].Cells[2].Value.ToString(); comboBox1.Text = dataGridView1.Rows[ri].Cells[3].Value.ToString(); comboBox2.Text = dataGridView1.Rows[ri].Cells[4].Value.ToString(); comboBox3.Text = dataGridView1.Rows[ri].Cells[5].Value.ToString(); textBox5.Text = dataGridView1.Rows[ri].Cells[6].Value.ToString(); textBox6.Text = dataGridView1.Rows[ri].Cells[7].Value.ToString(); textBox9.Text = dataGridView1.Rows[ri].Cells[8].Value.ToString(); textBox7.Text = dataGridView1.Rows[ri].Cells[9].Value.ToString(); sub_dgv_load(id); } private void sub_dgv_load(string id) { dataGridView2.Rows.Clear(); using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand("select * from shipments where orders_id = " + id + ";", con); using (OleDbDataReader dr = cmd.ExecuteReader()) { while (dr.Read()) { dataGridView2.Rows.Add( dr["shipments_id"].ToString(), DateTime.Parse(dr["ship_date"].ToString()).ToString("yyyy/MM/dd"), dr["quantity"].ToString(), "削除"); } } } catch (OleDbException e) { MessageBox.Show(e.Message); } finally { con.Close(); } } int stock_count = 0; for (int r = 0; r < dataGridView2.Rows.Count; r++) { stock_count += int.Parse(dataGridView2.Rows[r].Cells[2].Value.ToString()); } textBox12.Text = stock_count.ToString(); } private void rows_change(string id,string btn_cap) { string tmp = (btn_cap == "完了") ? "hide" : "show"; using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand("update orders set visible = '" + tmp + "' where orders_id = " + id + ";", con); cmd.ExecuteNonQuery(); } catch (OleDbException e) { MessageBox.Show(e.Message); } finally { con.Close(); } } } private void form_clear() { textBox1.Text = ""; textBox8.Text = DateTime.Now.ToString("yyyy/MM/dd"); textBox2.Text = ""; comboBox1.Text = ""; comboBox2.Text = ""; comboBox3.Text = ""; textBox5.Text = ""; textBox6.Text = ""; textBox9.Text = ""; textBox7.Text = ""; textBox14.Text = DateTime.Now.ToString("yyyy/MM/dd"); textBox12.Text = ""; textBox10.Text = ""; dataGridView2.Rows.Clear(); } private bool form_validate() { if (textBox8.Text == "" | textBox2.Text == "" | comboBox1.Text == "" | comboBox2.Text == "" | comboBox3.Text == "" | textBox5.Text == "" | textBox6.Text == "" | textBox9.Text == "") { MessageBox.Show("入力が不足しています。"); return false; } try { DateTime.Parse(textBox8.Text); } catch { MessageBox.Show("日付が正しくありません。"); return false; } try { int.Parse(textBox9.Text); } catch { MessageBox.Show("数量が正しくありません。"); return false; } textBox2.Text = rp(textBox2.Text); comboBox1.Text = rp(comboBox1.Text); comboBox2.Text = rp(comboBox2.Text); comboBox3.Text = rp(comboBox3.Text); textBox5.Text = rp(textBox5.Text); textBox6.Text = rp(textBox6.Text); textBox7.Text = rp(textBox7.Text); return true; } private bool change_tbl() { string query; if (button1.Text == "登録") { query = "insert into orders (register_date,order_no,customer_name,supplier_name,item_name,po_no,inv_no,quantity,notes,visible) values (" + "'" + textBox8.Text + "'," + "'" + textBox2.Text + "'," + "'" + comboBox1.Text + "'," + "'" + comboBox2.Text + "'," + "'" + comboBox3.Text + "'," + "'" + textBox5.Text + "'," + "'" + textBox6.Text + "'," + "" + textBox9.Text + "," + "'" + textBox7.Text + "','show');"; } else { query = "update orders set " + "register_date='" + textBox8.Text + "'," + "order_no='" + textBox2.Text + "'," + "customer_name='" + comboBox1.Text + "'," + "supplier_name='" + comboBox2.Text + "'," + "item_name='" + comboBox3.Text + "'," + "po_no='" + textBox5.Text + "'," + "inv_no='" + textBox6.Text + "'," + "quantity=" + textBox9.Text + "," + "notes='" + textBox7.Text + "'" + "where orders_id = " + textBox1.Text + ";"; } using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand(query, con); cmd.ExecuteNonQuery(); } catch (OleDbException e) { MessageBox.Show(e.Message); return false; } finally { con.Close(); } } return true; } private void dgv_load(string query,string btn_cap) { dataGridView1.Rows.Clear(); using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand(query,con); using (OleDbDataReader dr = cmd.ExecuteReader()) { while (dr.Read()) { dataGridView1.Rows.Add( dr["orders_id"].ToString(), DateTime.Parse( dr["register_date"].ToString()).ToString("yyyy/MM/dd"), dr["order_no"].ToString(), dr["customer_name"].ToString(), dr["supplier_name"].ToString(), dr["item_name"].ToString(), dr["po_no"].ToString(), dr["inv_no"].ToString(), dr["quantity"].ToString(), dr["notes"].ToString(), btn_cap,"削除"); } } } catch (OleDbException e) { MessageBox.Show(e.Message); } finally { con.Close(); } } if (btn_cap == "完了") { button6.Enabled = false; button5.Enabled = true; } if (btn_cap == "戻入") { button6.Enabled = true; button5.Enabled = false; } } private void button1_Click(object sender, EventArgs e) { if (!form_validate()) return; if (!change_tbl()) return; if (button1.Text == "登録") { dgv_load("select * from orders where visible <> 'hide';", "完了"); } else if (button1.Text == "更新" && button5.Enabled == true) { dgv_load("select * from orders where visible <> 'hide';", "完了"); } else if (button1.Text == "更新" && button5.Enabled == false) { dgv_load("select * from orders where visible = 'hide';", "戻入"); } form_clear(); MessageBox.Show("完了しました。"); } private void button3_Click(object sender, EventArgs e) { form_clear(); } private bool sub_form_validate() { if (textBox14.Text == "" | textBox13.Text == "") { MessageBox.Show("入力が不足しています。"); return false; } try { DateTime.Parse(textBox14.Text); } catch { MessageBox.Show("日付が正しくありません。"); return false; } try { int.Parse(textBox13.Text); } catch { MessageBox.Show("数量が正しくありません。"); return false; } return true; } private void button4_Click(object sender, EventArgs e) { if (!form_validate()) return; if (!sub_form_validate()) return; if (textBox1.Text == "") return; string query = "insert into shipments (orders_id,ship_date,quantity) values " + "(" + textBox1.Text + ",'" + textBox14.Text + "'," + textBox13.Text + ");"; using (OleDbConnection con = new OleDbConnection(@"provider=microsoft.jet.oledb.4.0; data source=" + Application.StartupPath + @"\dat.mdb")) { try { con.Open(); OleDbCommand cmd = new OleDbCommand(query, con); cmd.ExecuteNonQuery(); } catch (OleDbException ex) { MessageBox.Show(ex.Message); } finally { con.Close(); } } sub_dgv_load(textBox1.Text); textBox14.Text = DateTime.Now.ToString("yyyy/MM/dd"); textBox13.Text = ""; } private void button6_Click(object sender, EventArgs e) { dgv_load("select * from orders where visible <> 'hide';","完了"); form_clear(); } private void button5_Click_1(object sender, EventArgs e) { dgv_load("select * from orders where visible = 'hide';","戻入"); form_clear(); } private void button2_Click(object sender, EventArgs e) { string q = ""; textBox10.Text = rp(textBox10.Text); if (textBox10.Text == "" && button5.Enabled == true) { dgv_load("select * from orders where visible <> 'hide';", "完了"); } else if (textBox10.Text == "" && button5.Enabled == false) { dgv_load("select * from orders where visible = 'hide';", "戻入"); } else if (textBox10.Text != "" && button5.Enabled == true) { q = "select * from orders where visible <> 'hide' and " + "(order_no like '%" + textBox10.Text + "%' or " + "customer_name like '%" + textBox10.Text + "%' or " + "supplier_name like '%" + textBox10.Text + "%' or " + "item_name like '%" + textBox10.Text + "%' or " + "po_no like '%" + textBox10.Text + "%' or " + "inv_no like '%" + textBox10.Text + "%' or " + "notes like '%" + textBox10.Text + "%')"; dgv_load(q, "完了"); } else if (textBox10.Text != "" && button5.Enabled == false) { q = "select * from orders where visible = 'hide' and " + "(order_no like '%" + textBox10.Text + "%' or " + "customer_name like '%" + textBox10.Text + "%' or " + "supplier_name like '%" + textBox10.Text + "%' or " + "item_name like '%" + textBox10.Text + "%' or " + "po_no like '%" + textBox10.Text + "%' or " + "inv_no like '%" + textBox10.Text + "%' or " + "notes like '%" + textBox10.Text + "%')"; dgv_load(q, "戻入"); } } void open_Folder(string po) { string path = ""; try { using (StreamReader sr = new StreamReader(Application.StartupPath + @"\setting.txt", Encoding.GetEncoding("shift_jis"))) { path = sr.ReadLine() + @"\" + po; if (Directory.Exists(path)) { System.Diagnostics.Process.Start(path); } else { DialogResult yn = MessageBox.Show("フォルダを作成します。実行しますか？", "", MessageBoxButtons.YesNo); if (yn == DialogResult.No) return; Directory.CreateDirectory(path); System.Diagnostics.Process.Start(path); } } } catch (Exception e) { MessageBox.Show(e.Message); } } } } |
Windows SMB1.0無効化
古いNASが繋がらなくなる場合あるので注意。
・現在の状態を確認
sc.exe qc lanmanworkstation
にて確認できる。
DEPENDENCIES
に
MRxSmb10
があるとSMB1.0が有効な状態
・SMB1.0無効化
コントロール＞プログラムと機能＞Windowsの機能の有効化または無効化
SMB1.0/CIFSファイル共有のサポート
のチェックを外す。
(SMB 1.0/CIFSクライアントだけチェックがあればアクセスすることはできる)
・どのバージョンで接続しているか
管理者のPowerShellから、
get-smbconnection
を実行。
C# 指定秒数でサムネイル作成②
作ってみたら意外と使えそうだったので、少々機能追加。
読み込みの処理を非同期にして固まらないように。
タブに進捗を表示。
タブに読み込んだパスを記入。
タブのダブルクリックでタブ削除。
サムネイル左ダブルクリックで標準プログラムを起動。
サムネイル右ダブルクリックでエクスプローラ起動。
検索機能追加。
ファイルの親フォルダの名前を記入。
指定秒数より短いファイルもエラーではなく透明の画像とした。
サムネイルの取得にffmpegを使っているので、実行ファイルと同じ場所にffmpeg.exeが必要。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 |
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 themenail { public partial class Form1 : Form { public Form1() { InitializeComponent(); tabControl1.Font = new Font("Meiryo UI", 11); tabControl1.MouseDoubleClick += new MouseEventHandler(tpDbClick); this.FormClosed += new FormClosedEventHandler((object sender, FormClosedEventArgs e) => { foreach (System.Diagnostics.Process p in ProcessList) { try { if (!p.HasExited) p.Kill(); } catch { } } }); } private List<System.Diagnostics.Process> ProcessList = new List<System.Diagnostics.Process>(); private async void BtnClick() { List<string> path = new List<string>(); foreach (string f in System.IO.Directory.GetFiles(textBox2.Text)) { path.Add(f); } foreach (string d in System.IO.Directory.GetDirectories(textBox2.Text,"*",System.IO.SearchOption.AllDirectories)) { foreach (string f in System.IO.Directory.GetFiles(d,"*.mp4")) { path.Add(f); } } string ss = textBox1.Text; string[] files = path.ToArray(); TabPage tp = new TabPage(); tp.Text = "開始中..."; tabControl1.Controls.Add(tp); tabControl1.SelectedTab = tp; Label lb = new Label(); lb.Font = new Font("Meiryo UI", 11); lb.Text = textBox2.Text; ImageList il = new ImageList(); il.ImageSize = new Size(255, 255); il.ColorDepth = ColorDepth.Depth24Bit; ListView lv = new ListView(); System.Diagnostics.Process p = new System.Diagnostics.Process(); ProcessList.Add(p); await Task.Run(() => { for (int i = 0; i < files.Length; i++) { try { Invoke((Action)(() => { tp.Text = i.ToString() + "/" + files.Length.ToString(); })); } catch (System.ObjectDisposedException) { return; } System.Diagnostics.ProcessStartInfo ps = new System.Diagnostics.ProcessStartInfo( Application.StartupPath + @"\ffmpeg.exe", "-ss " + ss + " -i \"" + files[i] + "\" -vframes 1 -f image2 pipe:1"); ps.RedirectStandardOutput = true; ps.CreateNoWindow = true; ps.UseShellExecute = false; p.StartInfo = ps; try { p.Start(); } catch (System.ComponentModel.Win32Exception e) { MessageBox.Show(e.Message); return; } Image img; try { img = Image.FromStream(p.StandardOutput.BaseStream); } catch (System.ArgumentException) { img = new Bitmap(255, 255); } Image theme = img.GetThumbnailImage(255, 255, null, IntPtr.Zero); il.Images.Add(theme); string parent = System.IO.Directory.GetParent(files[i]).Name; ListViewItem lvi = lv.Items.Add("(" + parent + ")" + System.IO.Path.GetFileName(files[i]), i); lvi.SubItems.Add(files[i]); } }); lv.Anchor = AnchorStyles.Top | AnchorStyles.Bottom | AnchorStyles.Left | AnchorStyles.Right; lv.Size = new Size(tp.Size.Width - 2, tp.Height - 1 - 25); lv.Top = 25; lv.LargeImageList = il; lv.MouseDoubleClick += new MouseEventHandler(lvDbClick); lb.Anchor = AnchorStyles.Top | AnchorStyles.Left | AnchorStyles.Right; lb.Top = 2; lb.Left = 2; lb.Width = lv.Width; tp.Controls.Add(lb); tp.Controls.Add(lv); tp.Text = "完了"; } private void lvDbClick(object sender, MouseEventArgs e) { string path = ((ListView)sender).SelectedItems[0].SubItems[1].Text; string file = ((ListView)sender).SelectedItems[0].Text; if (!System.IO.File.Exists(path)) return; if (e.Button == MouseButtons.Right) { System.Diagnostics.Process p = new System.Diagnostics.Process(); p.StartInfo.FileName = "explorer"; p.StartInfo.Arguments = "/select," + path; p.Start(); } if (e.Button == MouseButtons.Left) { System.Diagnostics.Process p = System.Diagnostics.Process.Start(path); } } private void tpDbClick(object sender, MouseEventArgs e) { tabControl1.TabPages.Remove(((TabControl)sender).SelectedTab); } private void button1_Click(object sender, EventArgs e) { if (textBox1.Text == "" || textBox2.Text == "") return; if (!System.IO.Directory.Exists(textBox2.Text)) return; BtnClick(); } List<ListView> TempListView = new List<ListView>(); private void button2_Click(object sender, EventArgs e) { if (tabControl1.TabCount == 0) return; if (tabControl1.SelectedTab.Text != "完了") return; if (tabControl1.SelectedTab.Name == "") { string guid = System.Guid.NewGuid().ToString(); tabControl1.SelectedTab.Name = guid; ListView lv = new ListView(); lv.Name = guid; int r = 0; foreach (ListViewItem i in ((ListView)tabControl1.SelectedTab.Controls[1]).Items) { lv.Items.Add(""); lv.Items[r] = (ListViewItem)i.Clone(); r++; } TempListView.Add(lv); } if (tabControl1.SelectedTab.Name != "") { foreach (ListView i in TempListView) { if (i.Name == tabControl1.SelectedTab.Name) { ((ListView)tabControl1.SelectedTab.Controls[1]).Items.Clear(); int r = 0; foreach (ListViewItem k in i.Items) { ((ListView)tabControl1.SelectedTab.Controls[1]).Items.Add(""); ((ListView)tabControl1.SelectedTab.Controls[1]).Items[r] = (ListViewItem)k.Clone(); r++; } } } } if (textBox3.Text != "") { foreach (ListViewItem i in ((ListView)tabControl1.SelectedTab.Controls[1]).Items) { if (i.Text.IndexOf(textBox3.Text,StringComparison.OrdinalIgnoreCase) <= 0) i.Remove(); } } } private void button3_Click(object sender, EventArgs e) { foreach (TabPage t in tabControl1.TabPages) { tabControl1.SelectedTab = t; button2.PerformClick(); } } } } |
C# 指定秒数でサムネイル作成①
特定フォルダ以下のmp4のサムネイルを指定秒数で取得したくなった。取得をするたびに新しいタブページを追加する。ダブルクリックすると、explorerで開く。
実行ファイルと同じ場所にffmpeg.exeが必要。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
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 themenail { public partial class Form1 : Form { public Form1() { InitializeComponent(); toolStripProgressBar1.Visible = false; } private void button1_Click(object sender, EventArgs e) { if (textBox1.Text == "" || textBox2.Text == "") return; toolStripProgressBar1.Visible = true; string path = textBox2.Text; string[] files; TabPage tp = new TabPage(); ListView lv = new ListView(); ImageList il = new ImageList(); il.ImageSize = new Size(255, 255); il.ColorDepth = ColorDepth.Depth32Bit; lv.Anchor = AnchorStyles.Top | AnchorStyles.Bottom | AnchorStyles.Left | AnchorStyles.Right; lv.Size = new Size(tp.Size.Width-2,tp.Height-3); lv.Top = 2; lv.LargeImageList = il; lv.MouseDoubleClick += new MouseEventHandler(DbClick); tp.Controls.Add(lv); tabControl1.Controls.Add(tp); tabControl1.SelectedTab = tp; try { files = System.IO.Directory.GetFiles(path, "*.mp4",System.IO.SearchOption.AllDirectories); toolStripProgressBar1.Minimum = 0; toolStripProgressBar1.Maximum = files.Length; for (int i = 0; i < files.Length; i++) { Application.DoEvents(); toolStripProgressBar1.Value = i; System.Diagnostics.ProcessStartInfo ps = new System.Diagnostics.ProcessStartInfo( Application.StartupPath + @"\ffmpeg.exe", "-ss " + textBox1.Text + " -i \"" + files[i] + "\" -vframes 1 -f image2 pipe:1"); ps.RedirectStandardOutput = true; ps.CreateNoWindow = true; ps.UseShellExecute = false; System.Diagnostics.Process p = new System.Diagnostics.Process(); p.StartInfo = ps; p.Start(); Image img = Image.FromStream(p.StandardOutput.BaseStream); Image theme = img.GetThumbnailImage(255, 255, null, IntPtr.Zero); il.Images.Add(theme); lv.Items.Add(files[i], i); } } catch (Exception ex) { MessageBox.Show(ex.Message); } toolStripProgressBar1.Visible = false; MessageBox.Show("完了"); } private void DbClick(object sender, MouseEventArgs e) { string path = ((ListView)sender).SelectedItems[0].Text; System.Diagnostics.Process p = new System.Diagnostics.Process(); p.StartInfo.FileName = "explorer"; p.StartInfo.Arguments = "/select," + path; p.Start(); } } } |