程式狂想曲

ByVal Data As RecipeDetail                                '自行定義物件
 Dim x As New XmlSerializer(Data.GetType)       '取得自定義結構
  Dim Xstream As MemoryStream = New MemoryStream
  x.Serialize(Xstream, Data)                                '將續列化後轉成 Stream

 
使用方式  自定 8 個字元長度的字串  或由 Generatekey 得到一個 8字元長度的字串
Dim Des as new CDES
Dim Key as string = Des.GenerateKey

Dim  Xdoc as Xelement = Xelement.Load( "C:\text.xml")
今天要把  裡面的資料  依 RcpNO 排序
  XDoc = New XElement(<RecipeList><%= From rcp In XDoc.Elements("Recipe") _
                                            Select rcp _
                                            Order By CInt(rcp.Elements("RcpNo").Value) %>
                            </RecipeList>)
 可用 Order by 的方式 ，來排序資料
===================================================
test.xml 內的資料
<?xml version="1.0" encoding="utf-8"?>
<RecipeList>
  <Recipe>
    <RcpNo>1001</RcpNo>
    <RcpName>SEtest2</RcpName>
  <Recipe>
    <RcpNo>1011</RcpNo>
    <RcpName>123</RcpName>
   </Recipe>
  <Recipe>
    <RcpNo>1005</RcpNo>
    <RcpName>RStest1</RcpName>
  </Recipe>
  </Recipe>
  <Recipe>
    <RcpNo>1002</RcpNo>
    <RcpName>ABCD</RcpName>
  </Recipe>
  </RecipeList>

運用 XElement  有兩種方式 可以 將 Node 的資料刪除
Dim  Xdoc as Xelement = Xelement.Load( "C:\text.xml")
比如  想要將  
<Recipe>
    <RcpNo>1011</RcpNo>
    <RcpName>123</RcpName>
 </Recipe>
重 節點中鐘移除
1. 法一:  用反選的方式，將 不一樣的挑出來
   XDoc = New XElement(<RecipeList><%= From rcp In XDoc.Elements("Recipe")
                                            Select rcp
                                            Where rcp.Element("RcpNo").Value <> recipe.RcpNo %>
                                       </RecipeList>)
2. 法二: 用正選的方式，在將之移除
  Dim selectXelement As System.Collections.Generic.IEnumerable(Of XElement) = From rcp In Xdoc.Elements("Recipe")
                                                                                        Select rcp
                                                                                        Where rcp.Element("RcpNo").Value = rcpNo.ToString
   selectXelement.Remove()
===================================================
test.xml 內的資料
<?xml version="1.0" encoding="utf-8"?>
<RecipeList>
  <Recipe>
    <RcpNo>1001</RcpNo>
    <RcpName>SEtest2</RcpName>
  </Recipe>
  <Recipe>
    <RcpNo>1002</RcpNo>
    <RcpName>ABCD</RcpName>
  </Recipe>
  <Recipe>
    <RcpNo>1005</RcpNo>
    <RcpName>RStest1</RcpName>
  </Recipe>
  <Recipe>
    <RcpNo>1011</RcpNo>
    <RcpName>123</RcpName>
   </Recipe>
</RecipeList>

Enum 是 Enumeration 的簡稱
主要的的作用是將一堆相關係的同樣類型整合在一起
在宣告時  需要一起宣告 類型
 Public Enum Ping As Integer
        Success = 0
        Err = -1
        Error_Base = &H8000
        Error_Host_Not_Found = ERROR_BASE + 1
        Error_Socket_Didnt_Send = Error_Base + 2
        Error_Host_Not_Responding = Error_Base + 3
        Error_Time_Out = Error_Base + 4
    End Enum
如此  可以避免用大量的 Const 變數，且沒有連灌的方式  或用 Class 方式來組合

之前 有介紹過  DateTime 經過 ToString 時間格式化後  可以將時間轉成 文字格式
ToString 是 .Net 下內建基本物件的格式之一
其實在 ToString() 可以做許多文字處理的方式，讓我們可以省下很多程式碼(恩 這很重要.....我很懶得打字)
在ToString() 後面，讓我們在多打一個點 "."，可以發現後面帶出許多ToString() 內建可以運用的 Function
 (題外話... .Net 的名稱不知道是不是因為在 VB.net 與 C#.net 在呼叫後面物件時  都要打個 " . " 來的 ......)
裡面很實用的
.ToUpper()       '所有字母大寫
.ToLower()       '所有字母小寫
.Trim()             '去除前後空格
.SubString()     '取得子集合文字
.Split()             '文字分割
.
.
.
.
還有蠻多好用的Function 大家可以玩玩

在 .Net 的環境下   資源的回收 是比較簡單的，但相對的簡單 也是需要付出一定的代價( 記憶體)
如何讓程式寫得更簡捷 有力是每個程式設計師 最基本的工作
在 .Net 回收 記憶體中的垃圾 除了交由系統本身外
還有之前介紹過的  GC
今天介紹 更為主動的 Using  (Dispose 也是主動的一種  使用時機就看個人使用習慣)
VB.Net
Using some as new Object
End Using
C#
Using Object obj = new Object()
{
}
用  VB.Net  及 StreamWriter 做範例
Using sw As TextWriter = New StreamWriter("C:\test.txt")
     Dim s As String = ""
     s += "GlassID:," + lblGlassID.Text + "," + vbCrLf
     s += "Measure Type:,Thickness,Auto," + vbCrLf
     s += "Recipe Name:," + labSERecipeName.Text + "," + vbCrLf
     sw.Write( sw.Write(s + vbCrLf))
End Using

在 .Net 下  不論讀文字或  圖檔  都相當方便
但如果值接用相對應的 物件 讀取，如果只是單執行緒開啟 或 不會共用此檔案  就沒有甚麼影響
如
Dim str as string = IO.File.ReadAllText("路徑 ")
Dim bm as Bitmap = Bitmap.Fromfile(" 路徑   ")
但 一但此檔案需用共用  如 FTP 此時  系統會有警告  已在其他執行緒中使用
ps 尤其是 Ftp. 多執行緒的 FTP 如果沒寫好 . 會有莫名檔案沒有傳輸成功
  Dim ioStr As IO.FileStream = New FileStream("D:\HS\Alignment\2.bmp", FileMode.Open)
  Dim bmTemp As Bitmap = Bitmap.FromStream(ioStr)
    
在 .Net 基本檔案格式 大都有 由 Stream 的模式取得資料  如此 就可以斷開 與 原本檔案的聯結 
讓原本的檔案 給其他的程是或執行緒使用      

以 BackGroundWork 為例，用文自宣告的方式  加入事件
C# 在手動宣告物件時，事件建立的方式上與 VB.Net 最大的不同是  必須自行手動加入
(VB.Net 在宣告時加入 WithEvents 就可以在上方用拉取的方式加入)
在.Net 本身就有的物件 可以由被宣告出來的無物件中找到(開頭有  閃電 的符號)

private System.ComponentModel.BackgroundWorker bkRs232 = new System.ComponentModel.BackgroundWorker();
bkRs232.DoWork += new DoWorkEventHandler(bkRs232_DoWork);        
bkRs232.RunWorkerCompleted  += new RunWorkerCompletedEventHandler(bkRs232_RunWorkComplete);

(刮符 裡面就是要用來 addhandle 的 Function)


        private void bkRs232_DoWork(object sender , DoWorkEventArgs e)
        {
            RS232Conn();
        }

      
        private void bkRs232_RunWorkComplete(object sender, RunWorkerCompletedEventArgs e)
        {


        }

在  VB6的軟體中，有個很好用的原件  叫 shape.  到了 .Net 下就消失不見了
雖然後來有推個 VisualBasicPowerPacks 
但有用過的人都知道，真的很不好用
尤其在排版實不能最上層顯示，常常被其他物件給遮住，跟過去VB6下真的很大的不同