vb.net stramreader 讀文字檔

Imports System.IO

Public Class _03_StreamReader

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim theFile As FileStream = File.Open("d:\temp\asdf.txt", FileMode.Open, FileAccess.Read)
Dim rdr As StreamReader = New StreamReader(theFile)
TextBox1.Text = rdr.ReadToEnd()
rdr.Close()
theFile.Close()
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rdr As StreamReader = File.OpenText("d:\temp\asdf.txt")
TextBox1.Text = rdr.ReadToEnd()
rdr.Close()
End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox(File.ReadAllText("d:\temp\asdf.txt"))
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim rdr As StreamReader = File.OpenText("d:\temp\asdf.txt")
While Not rdr.EndOfStream
Dim ft As String = rdr.ReadLine()
If ft.Contains(TextBox2.Text) Then
MsgBox("Found " & TextBox2.Text & vbNewLine & ft)
End If
End While
End Sub


End Class

Power Builder TempTable Decimal

decimal 宣告時要出現小數 必須宣告為decimal(15,4)  抓取整數15個字，小數點4位
EX：

'CURRENCY char(4) _null,'+&
'AMT decimal _null,'+&
'EXCH_RATE decimal(15,4) _null,'+&
'nt_ar_amt decimal _null)'

Power Builder 函數

抓取master的物件設定
dw_master[1].object.apdl_vch_ty.enable=false //將欄位關閉
dw_master[1].object.apdl_vch_ty.text = l_apdl_vch_ty

//取得登入者帳號

l_usr_no=gs.uf_get_usr_no()  

//顯示狀態列   4代表中間的位置
wf_set_statusbar(4,i_vch_no+"-"+i_item_no)

Power Builder 神奇錯誤

下 l_sql 套用 cursor 執行時沒有任何錯誤發生，
但是直接把sql 套在sql manager裡面查的到資料，但在ERP測試卻沒資料，
查了一整個下午最後發現是

eclare lc_cur_mocrpf12 dynamic cursor for sqlsa;
prepare sqlsa from :l_sql;
open dynamic lc_cur_mocrpf12;

do while sqlca.sqlcode=0

 fetch lc_cur_mocrpf12 into ：l_XXXX
在into欄位的時候  欄位宣告格式錯誤
currency是 幣別..string

PDF浮水印產生 C#

引用

private void Printpdf()

        {
            

            //String sFileIn = args[0];   // command line parameter: input filename

            string sFileIn = @"c:\sample.pdf";
            PdfReader reader = new PdfReader(sFileIn);
            using (MemoryStream ms = new MemoryStream())
            {
                PdfStamper stamper = new PdfStamper(reader, ms);
                for (int i = 1; i <= reader.NumberOfPages; i++)
                {
                    iTextSharp.text.Rectangle pageSize = reader.GetPageSizeWithRotation(i);
                    PdfContentByte pdfPageContents = stamper.GetUnderContent(i);
                    pdfPageContents.BeginText();
                    BaseFont baseFont = BaseFont.CreateFont(BaseFont.HELVETICA_BOLD, Encoding.ASCII.EncodingName, false);
                    pdfPageContents.SetFontAndSize(baseFont, 20);
                    pdfPageContents.SetRGBColorFill(200, 200, 200);
                    pdfPageContents.ShowTextAligned(PdfContentByte.ALIGN_RIGHT, sFileIn, pageSize.Width - 5, pageSize.Height - 25, 0);
                    pdfPageContents.EndText();
                }
                stamper.FormFlattening = true;
                stamper.Close();
                FileStream fs = new FileStream("watermarked-output.pdf", FileMode.Create, FileAccess.ReadWrite);
                BinaryWriter bw = new BinaryWriter(fs);
                bw.Write(ms.ToArray());
                bw.Close();
            }
        }

什麼是Hot Spare？RAID 5 RAID6 比較

         當一個正在使用的磁盤發生故障後，一個空閒、加電並待機的磁盤將馬上代替此故障盤，此方法就是熱備用。
        熱備用磁盤上不存儲任何的用戶數據，最多可以有8個磁盤作為熱備用磁盤。一個熱備用磁盤可以專屬於一個單一的冗餘陣列或者它也可以是整個陣列熱備用磁盤池中的一部分。而在某個特定的陣列中，只能有一個熱備用磁盤。當磁盤發生故障時，控制器的固件能自動的用熱備用磁盤代替故障磁盤，並通過算法把原來儲存在故障磁盤上的數據重建到熱備用磁盤上。數據只能從帶有冗餘的邏輯驅動器上進行重建（除了RAID 0以外），並且熱備用磁盤必須有足夠多的容量。系統管理員可以更換發生故障的磁盤，並把更換後的磁盤指定為新的熱備用磁盤。

容量部份,
RAID 5 + HotSpare 和 RAID 6 都是 N-2 ,
沒有什差別!

容錯能力部分,
RAID 5 + HotSpare 也和 RAID 6 一樣,
最多可壞 2 顆HD仍能維持系統運作,

但 RAID 5 + HotSpare 除了 HotSpare 外只能一次壞一顆 HD,
等 HotSpare 加入 RAID 5 HD 群組並完成 Rebuid 後,
才能再壞第 2 顆,
若 RAID 5 本身 HD 組同一時間同時壞 2 顆,
那就回天乏術了,

RAID 6 則可以同一時間同時壞 2 顆 HD ,

結論是,
RAID 6 會比 RAID 5 + HotSpare 安全性來的高 !

要是我選,
我會用 RAID 6 !

ibm server 硬碟管理程式

硬碟掛掉，廠商來修的時候問了一句你們沒裝IBM的硬碟管理器嗎...

然後..找找找...應該是這個了

IBM ServeRAID Application CD v9.30-17006 - IBM System x and BladeCenter

應該是這個東東..連結

http://www-947.ibm.com/support/entry/portal/docdisplay?lndocid=MIGR-61707

 

做RAID 5 的時候 也要記得做 

Hot Spare 不然沒啥用處..掛兩顆以上資料就全沒了。

掛了一顆 至少還能用RAID 5 本身機制還原，但建議最好配上硬碟管理系統去看有沒有正常運作。