2018-05-13

C# 從 Delegate 到 Lambda

/* 定義一個 delegate */
public delegate string MyDel(int id);


/* 宣告一個 Method */
public static string MethodA(int id)
{
    return " { " + id + " } ";
}


/* 將 MethodA 指派給一個 MyDel */
MyDel fu = MethodA;

/* 接著就可以這樣呼叫 delegate */
string result = fu(22);
System.Console.WriteLine(result);



/* 用 delegate 關鍵字建立 MyDel */
MyDel fu = delegate(int id)
{
    return " { " + id + " } ";
};



/* 用 Lambda 語法建立 MyDel */
MyDel fu = (int id) => {
    return " { " + id + " } ";
};



/* 因為 MyDel 已經定義參數為 int 了,所以可以省略 int */
MyDel fu = (id) => {
    return " { " + id + " } ";
};



/* 因為是單參數,所以可以省略小刮號 */
MyDel fu = id => {
    return " { " + id + " } ";
};



/* 接著是單純的 return,所以可以省略大刮號跟 return */
MyDel fu = id => " { " + id + " } ";

 


Ref:
匿名函式 (C# 程式設計手冊)
使用委派 (C# 程式設計手冊)

2018-05-12

Windows Server 磁碟清理


磁碟清理
DISM.exe /online /Cleanup-Image /StartComponentCleanup

清理系統 Service Pack 備份檔案
DISM.exe /Online /Cleanup-Image /SPSuperseded

JavaScript 正規表示式 跳脫

RegExp.escape = function(str) {
    return str.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, '\\$&');
};

/* use sample */
new RegExp(RegExp.escape("[te()st]"));

Visual Studio 快捷鍵

Ctrl + L刪除行
Ctrl + X剪下行(游標不選取文字)
Ctrl + C複製行(游標不選取文字)
Ctrl + J呼叫出類別成員
Ctrl + K,C註解選取範圍
Ctrl + K,U取消註解選取範圍
Ctrl + R,R重新命名變數
F2重新命名變數
Ctrl + Enter上方插入一列
Ctrl + Shift + Enter下方插入一列
Ctrl + 减號回到上次游標位置
CTRL + SHIFT + 减號反之
Ctrl + F3找當前選取
F3找下一個
Shift + F3找上一個
Ctrl + F尋找文字
Ctrl + Shift + F跨檔案尋找文字
Ctrl + H取代文字
Ctrl + Shift + H跨檔案取代文字
Ctrl + J顯示物件的成員清單
Ctrl + K, D格式化文件
Ctrl + K, F格式化選取範圍
Ctrl + E, S顯示空白字元
Ctrl + E, \刪除行尾空白
Ctrl + Alt + ]對齊等號
Ctrl + ]切換至對應刮號
F12轉至定義
Ctrl + F12轉至實做
Alt + F12查看定義
F5偵錯建置
Ctrl + F5建置
Ctrl + U小寫
Ctrl + Shift + U大寫
Alt + 上選取行上移
Alt + 下選取行下移
Ctrl + K, K切換書籤
Ctrl + .開啟智慧標籤選單
Shift + Alt + F10開啟智慧標籤選單

2018-04-16

[VBA] Read Write UTF-8 File

Dim reader As Object
Set reader = CreateObject("ADODB.Stream")
reader.CharSet = "UTF-8"
reader.LineSeparator = 10
reader.Open
reader.LoadFromFile "C:\test.txt"

Dim textLine As String
Do Until reader.EOS
    textLine = reader.ReadText(-2)
Loop
reader.Close


Dim writer As Object
Set writer = CreateObject("ADODB.Stream")
writer.CharSet = "UTF-8"
writer.Open
writer.WriteText "xxxxxxx" & Chr(10)

writer.SaveToFile "C:\test.txt", 2
writer.Close

2018-04-13

擴充 LinqToSql 的 Left Join 關連 Table

Linq 在處理 Left Join 的語法有點煩人,想採用 EntityRef 的方式進行查詢,而建立 Entity 的關連表的方式很多,但 DBML 都是透過 Visual Studio 的工具去維護的,手動去修改他實在是不優啊!利用 partial class 的方式就可以避開這種問題。

在 AssociationAttribute 中的 IsForeignKey = false 就會採用 Left Join 進行關連查詢。

using System.Data.Linq;
using System.Data.Linq.Mapping;

namespace MyConsoleApp.Database
{
    public partial class JobCommandMaterial
    {
        private Link<Material> _Material;

        [Association(Storage = "_Material", ThisKey = "MaterialCode", OtherKey = "MaterialCode")]
        public Material Material { get { return _Material.Value; } }
    }
}

參考:
AssociationAttribute 類別 (System.Data.Linq.Mapping)
EntityRef(TEntity) 結構 (System.Data.Linq)
Link(T) 結構 (System.Data.Linq)

2018-04-11

LinqToSql 替換查詢的 Table

因為封存的 Table 是基於 Base Table 複製出來的,DBML 也不可能一開始就建立這些封存的 Table,但又想用 LinqToSql 去處理資料存取,所以想到用程式去換掉 SQL 裡的 Table Name。

var query = _dc.CtrlCommandRecord.Where(x => x.CreateDate > DateTime.Today);

DbCommand command = _dc.GetCommand(query);
command.CommandText = command.CommandText.Replace("CtrlCommandRecord", "CtrlCommandRecord_2017");
command.Connection = _dc.Connection;
command.Connection.Open();

DbDataReader reader = command.ExecuteReader(System.Data.CommandBehavior.CloseConnection);
var list =  _dc.Translate<CtrlCommandRecord>(reader);

list.Dump();

用 Visual Studio 自動壓縮發佈的程式

針對只能用隨身碟安裝程式,又不想用 Web Deploy 這麼複雜工具,簡單的用壓縮檔來是處理,利用 Visual Studio 的檔案發佈再進行壓縮封裝,在原本的 pubxml 檔的後面加上 ZipPublishOutput Target 來接續發佈處理,這樣在 Visual Studio 在執行發佈時就可以產生壓縮封裝。

<?xml version="1.0" encoding="utf-8"?>
<!--
"C:\Program Files (x86)\MSBuild\14.0\Bin\MSBuild.exe" MySolution.sln /t:Rebuild /p:VisualStudioVersion=14.0;Configuration=Release;DeployOnBuild=true;PublishProfile=Release.pubxml
-->
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <PropertyGroup>
    <WebPublishMethod>FileSystem</WebPublishMethod>
    <LastUsedBuildConfiguration>Release</LastUsedBuildConfiguration>
    <LastUsedPlatform>Any CPU</LastUsedPlatform>
    <SiteUrlToLaunchAfterPublish />
    <LaunchSiteAfterPublish>True</LaunchSiteAfterPublish>
    <ExcludeApp_Data>True</ExcludeApp_Data>
    <publishUrl>obj\Publish</publishUrl>
    <DeleteExistingFiles>True</DeleteExistingFiles>
    <AutoParameterizationWebConfigConnectionStrings>False</AutoParameterizationWebConfigConnectionStrings>
  </PropertyGroup>

  <Target Name="ZipPublishOutput" AfterTargets="GatherAllFilesToPublish;WebFileSystemPublish">
    <Message Text="== 封裝 7-Zip 安裝包 ===============================" Importance="high" />
    <PropertyGroup>
      <Today>$([System.DateTime]::Today.ToString("yyyyMMdd"))</Today>
      <zip>"C:\Program Files\7-Zip\7z.exe"</zip>
      <ReleasePath>$(ProjectDir)obj\Release\Package\PackageTmp</ReleasePath>
      <PackagePath>D:\MySolution_$(Today).exe</PackagePath>
    </PropertyGroup>

    <Exec Command='DEL $(PackagePath)' />
    <Exec Command='$(zip) a -t7z -mx9 -sfx7z.sfx -bd $(PackagePath) * | findstr /v "^$"' WorkingDirectory="$(ReleasePath)" />
  </Target>
</Project>