Joe Horn 的啟示錄

前陣子，在工作上剛好需要對 wav 檔案格式進行判定，可是 NAudio 製作出來的格式用來作判斷又有錯誤，所以土法煉鋼寫了一個小 class：

    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;
    using System.IO;

    public class Wave
    {
        public struct Format
        {
            public String FileName = String.Empty;
            public Boolean PCM = false;
            public uint Channel = 0;
            public uint SampleRate = 0;
            public uint BitsPerSample = 0;
            public uint ByteRate = 0;
            public uint BlockAlign = 0;
        };

        private Format _fmt;

        private void fillUp()
        {
            _fmt.ByteRate = _fmt.Channel * _fmt.SampleRate * _fmt.BitsPerSample / 8;
            _fmt.BlockAlign = _fmt.Channel * _fmt.BitsPerSample / 8;
        }

        public Format getType(String fileName)
        {
            _fmt.FileName = fileName;

            try
            {
                FileStream fs = File.OpenRead(@fileName);
                Byte[] readTmp = new Byte[36];

                fs.Read(readTmp, 0, 36);
                fs.close();

                if (BitConverter.ToUInt16(readTmp, 20) == 1)
                {
                    _fmt.PCM = true;
                }

                _fmt.Channel = BitConverter.ToUInt16(readTmp, 22);
                _fmt.SampleRate = BitConverter.ToUInt32(readTmp, 24);
                _fmt.BitsPerSample = BitConverter.ToUInt16(readTmp, 34);

                fillUp();
            }
            catch (Exception e)
            {
                Console.WriteLine("Wave.getType(fileName) Error : " + e.ToString());
            }
            return _fmt;
        }
    }

• 檢查 FileName 是否為空字串，就知道是否成功呼叫 getType() 。
• 檢查 PCM 是否為 true，就知道該檔案是不是 PCM 格式的 wav 檔。
• wav 檔播放的時間會等於 ByteRate。

Technorati Tags: .NET, Audio, C#, file, NAudio, PCM, wav

Tags: .NET , Audio , C# , file , NAudio , PCM , wav
(Visited 1688 times)

這是我的第一個 C# Windows Form 程式。

執行畫面：

使用方法：

1. 點選 Browse 按鈕，選擇並輸入 reg 檔存放位置與檔名。
2. 點選 Backup 按鈕就能將 putty 的登錄檔輸出。

下載：

Technorati Tags: backup, C#, putty, registry, Windows Form

Tags: backup , C# , putty , registry , Windows Form
(Visited 3280 times)

最近在玩 C#，寫個小軟體。
不過，我發現我產生出來的 exe 檔就是很醜，看起來的感覺就好像是病毒檔...
用 MSDN 跟上網搜尋，solution 也不算好找，所以寫這篇順便幫自己紀錄一下。

Windows Form 有兩種圖示可以設定：

• Form 的圖示：只要在 Form 的屬性中，更改 Icon 屬性的 Value 就好，設定的圖示會顯示在執行的視窗的左上角。
• Application 的圖示：在 Visual Studio 2008 中，最上方工具列的 專案 -> [專案名稱]屬性，開啟的分頁中的 應用程式 有個 圖示與資訊清單 項目。在此便可設定軟體圖示。

By the way，我覺得目前寫這個小軟體應該還算實用，寫完後再丟上來～

Technorati Tags: icon, Visual Studio, Windows Form

Tags: icon , Visual Studio , Windows Form
(Visited 3544 times)

剛剛弄出來的東西.

DsExport.vb :

Public Class DsExport

  Public Shared Function Export(ByVal ds As DataSet, _
                                ByVal dtName As String, _
                                ByVal colList() As String, _
                                ByVal colValue() As Integer) As String
    Dim header As String = ""
    Dim body As String = ""
    Dim record As String = ""

    For Each col As String In colList
      header = header & Chr(34) & col & Chr(34) & ","
    Next
      header = header.Substring(0, header.Length - 1)

    For Each row As DataRow In ds.Tables(dtName).Rows
      Dim arr() As Object = row.ItemArray()

      For Each i As Integer In colValue
        If arr(i).ToString().IndexOf(",") > 0 Then
          record = record & Chr(34) & arr(i).ToString() & Chr(34) & ","
        Else
          record = record & arr(i).ToString() & ","
        End If
      Next

      body = body & record.Substring(0, record.Length - 1) & vbCrLf
      record = ""
    Next

    Return header & vbCrLf & body

  End Function

End Class

呼叫方式:

  Private Sub BtnExport_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles BtnExport.Click
    Dim colList() As String = {"CSV表頭1", "CSV表頭2", "CSV表頭3"}

    "顯示順序: SQL query 刮出來的欄位0, 4, 2
    Dim colValue() As Integer = {0, 4, 2}

    Dim strData As String = _
      DsExport.Export(DataSet 變數名稱, _
                      "DataSet 變數中的 DataTabel 名稱", _
                      colList, colValue)

    Dim binData() As Byte = System.Text.Encoding.Default.GetBytes(strData)

    Response.Clear()
    Response.AddHeader("Content-Type", "application/vnd.ms-access")
    Response.AddHeader("Content-Disposition", "inline;filename=檔案名稱.csv")
    Response.BinaryWrite(binData)
    Response.End()
  End Sub

Technorati Tags: .NET, CSV, DataSet, Visual Basic

Tags: .NET , CSV , DataSet , Visual Basic
(Visited 6858 times)