HASH

方法一:使用fileOpen、fileGet、filePut、fileClose

 ‘先定義資料結構
 Structure RowOBS04
        Dim TDATE As String     ‘交易日期
        Dim ITEM_ID As String   ‘貨品代碼
        Dim KIND_ID As String   ‘品種代碼
        Dim ITEM_NAME As String ‘貨品名稱
        Dim KIND_NAME As String ‘品種名稱
        Dim ITEM_CAT As String  ‘產品分類
        Dim KIND_CAT As String  ‘品種分類
    End Structure

 sub GETDATA()
  Dim Cusdat As RowOBS04
        Dim fileNumber As Integer = FreeFile()

        FileOpen(fileNumber, fileName, OpenMode.Random)
        FileGet(fileNumber, Cusdat, CInt(TextBox1.Text))
        FileClose(fileNumber)
  
  TextBox2.Text = Cusdat.TDATE
        TextBox3.Text = Cusdat.ITEM_ID
        TextBox4.Text = Cusdat.KIND_ID
        TextBox5.Text = Cusdat.ITEM_NAME
        TextBox6.Text = Cusdat.KIND_NAME
        TextBox7.Text = Cusdat.ITEM_CAT
        TextBox8.Text = Cusdat.KIND_CAT
 end sub
 
 sub SETDATA()
  Dim Cusdat As RowOBS04
        Dim fileNumber As Integer = FreeFile()

        FileOpen(fileNumber, fileName, OpenMode.Random)

        ‘UPDATE資料
        Cusdat.TDATE = TextBox2.Text
        Cusdat.ITEM_ID = TextBox3.Text
        Cusdat.KIND_ID = TextBox4.Text
        Cusdat.ITEM_NAME = TextBox5.Text
        Cusdat.KIND_NAME = TextBox6.Text
        Cusdat.ITEM_CAT = TextBox7.Text
        Cusdat.KIND_CAT = TextBox8.Text
        FilePut(fileNumber, Cusdat, CInt(TextBox1.Text))
        FileClose(fileNumber)
 end sub

方法二:system.io.file

1.定義一筆RecordLen

2.計算位置=(筆數-1)*RecordLen

3.三種方式[適情況而定]
(1)索引條件為數字,且知道數字不大

==================
item_id | item_Name | kind
0070     
0071
  .
  .
  .
9999
====================
以上這種情況,可以用數字直接作索引條件,71塞到71的位置,73塞到73的位置,如72沒資料就留一筆RecordLen空白

(2)索引條件為數字,但數字大
建索引(也是一個文字檔)
no為item_id除某一質數的餘數
record_no為實際位置
==========================
[餘數出現重覆情況則放後面,如超過預計放置筆數,則用FLAG記錄之後從哪個NO開始]
no | item_id | record_no | item_id | record_no | item_id | record_no | flag
1  0000070 1     
2  0000071 2
 .
 .
 .
100  0071000     20000
 .
 .
 .
==========================

(3)索引條件不一定為數字
如出現字母,則可把字母排除,或把字母轉為數字來進行INDEX

日本行的前一晚 和C老大的共進晚餐

晚上8點時分,公司附近的麥當勞,
沒想到這麼一談就到了10點,
工作上,C老大談了蠻多的,
不管是在主管方面,B老大和A老大在專案的處理方式;
同事方面,W先生在上個專案遇到的問題,顧著幫RITA,程式及進度都出問題,
及這個專案中他的成長,SA、PM、PG間的改變.

至於私事上,我說的還是有關VIVI,
“上班開門後的第一件事,妳猜是什麼?是看VIVI在不在位置上,這樣是不是很蠢”
“為什麼中午吃飯時,老VIVI在的時候問我為什麼悶悶不樂”
“我知道,我和VIVI真的不適合”
…………….

討厭的人

她,又來了,就在知道我會參加同學婚禮,而且會和她男友(以下稱A男)同桌之後,
MSN,MAIL都來了,
寫的事,不外乎是要請我和A男合好,
說法呢?不外乎之前的那套,聽都聽煩了,
“要放下才會過的好”
並要求我“下次見面能放下身段嗎?”

“很自私,真的是很自私的想法”我這樣認為

問我什麼是誠意?而且她沒有想要騷擾我的意思!!
“誠意,很簡單,就是要道歉請本人來”
“最沒誠意的就是代A男道歉,但或許A男跟本就沒這個意思…”

談到後來,她說“你並不是沒有錯”
對,我是有錯,但我認為沒有道歉的必要,
“妳只單純的想為因自己造成我和A男吵架的事贖罪而已”
“各有各的立場,而且我沒必要配合妳”

到最後,她叫我不要跟A男說這件事,更証明了這只是她單方面的想法,
“我根本沒有和A男說話的意願”
這點不必我再多說了,不會因為僅隔了幾個月而有所改變