項目單元5建立以文本文件為數據源的“員工工資管理系統”師生共勉笑聲給生活帶來甜美，使它像玫瑰園中的花兒一樣芬芳。

目錄5.1問題引入5.2預備知識5.3問題分析5.4實現員工工資數據的讀取功能5.5實現員工工資數據的顯示功能5.6實現員工工資數據的保存功能5.7實現員工工資數據的編輯功能5.8文件操作應用舉例5.10本單元容易出錯的地方5.11課堂實訓和課堂練習師生共勉笑聲給生活帶來甜美，使它像玫瑰園中的花兒一樣芬芳。

5.1問題引入在之前編寫的“員工工資管理系統”中，工資的信息存放在有格式的數據庫文件中。但是計算機不僅僅可以處理存放在數據庫的文件，還可以對不同的數據，如文本文件等的數據進行加工、處理，并且產生相應的結果進行輸出。例如：采集一組需要控制的數據進行處理等等。本單元就對如何處理文本文件的數據提出解決的辦法。5.2預備知識寫數據：把內存中的數據傳輸到相關聯的外部設備（例如磁盤等）并作為文件存放的操作；讀數據：把數據文件中的數據傳輸到內存程序中的操作；文件：記錄在外部介質上的數據的集合順序型：適用于讀寫在連續塊中的文本文件；隨機型：適用于讀寫有固定長度記錄結構的文本文件或者二進制文件；二進制型：適用于讀寫任意有結構的文件；文件訪問類型5.2預備知識引用Scripting類型庫聲明相關的對象變量創建相關的對象變量進行讀、寫操作關閉文件（TextStream對象的Close方法）

FileSystemObject(FSO)對象模型編程5.2預備知識打開或建立文件（Open語句）進行讀、寫操作（LineInput#、Write#語句等）關閉文件（Close語句）傳統文件I/O處理5.3問題分析利用文本文件進行員工工資數據管理的應用程序在程序運行時，將存放于文本文件中的員工工資數據讀出，實現瀏覽顯示功能；對這些數據進行修改、刪除、添加、插入等編輯操作；將更新后的員工工資數據再寫入文件；任務分析：5.3問題分析控件數組cmd_Browse控件數組cmd_Edit控件cmd_Write界面運行效果如下：5.3問題分析數據輸入：Form_Load數據處理：cmd_Browse_Clickcmd_Edit_Click數據輸出：界面輸出：Form_Load、cmd_Browse_Click、cmd_Edit_Click文件輸出：cmd_Write_Click聲明工程級的通用過程執行對文件中數據的讀寫操作，可以與窗體界面分離；有助于程序的擴展，可以直接調用這些過程；啟動對象SubMain創建程序主窗體和事件過程代碼框架：5.3問題分析PrivateSubForm_Load()'從文件中讀取數據

'顯示第1個員工的工資數據

'顯示員工的總人數和當前員工的順序號EndSubPrivateSubcmd_Browse_Click(IndexAsInteger)SelectCaseIndex Case0'第一位員工

Case1'前一位員工

Case2'后一位員工

Case3'最后一位員工

EndSelect

'顯示第n位員工的工資數據

'顯示員工的總人數和當前員工的順序號EndSub框架代碼：5.3問題分析PrivateSubcmd_Edit_Click(IndexAsInteger)SelectCaseIndex Case0'在所有記錄的最后新增一條

Case1'修改當前記錄

Case2'在當前記錄的位置插入一條記錄

Case3'刪除當前記錄

EndSelect

'顯示第n位員工的工資數據

'顯示員工的總人數和當前員工的順序號EndSubPrivateSubcmd_Write_Click()'向文件中寫入數據EndSub框架代碼：5.4實現員工工資數據的讀取功能實現把數據從外存（文本文件）讀到內存（變量）中的功能在標準模塊中聲明：與員工工資數據有關的工程級變量和符號常量；在標準模塊中創建：從文本文件中讀出數據的通用過程方法一：采用FSO對象模型方法二：采用傳統文件I/O語句和函數編寫從文本文件中讀出數據的通用過程5.4實現員工工資數據的讀取功能步驟一：引用Scripting類型庫單擊“工程”菜單中的“引用”命令；打開“引用”對話框；從“可用的引用”列表框中選擇“MicrosoftScriptingRuntime”；步驟二：聲明相關的對象變量

DimfsoAsNewFileSystemObject DimtsAsTextStream

New是一個關鍵字，它用于創建新對象。方法一：采用FSO對象模型5.4實現員工工資數據的讀取功能步驟三：創建相關的對象

Setts=fso.OpenTextFile(g_strFileName,ForReading)

用Set語句創建對象的實例，把對象賦予其變量。 其中，第二個參數可為下列三個常數之一ForReading：以只讀模式打開文件。不能對此文件進行寫操作。ForWriting：以只寫方式打開文件。不能對此文件進行讀操作。ForAppending：打開文件并在文件末尾進行寫操作。5.4實現員工工資數據的讀取功能步驟四：進行讀操作

TextStream對象的ReadLine方法步驟五：關閉文件文件操作完畢，就要將文件關閉，這樣下一次才能正確的創建文本流對象。TextStream對象的Close方法5.4實現員工工資數據的讀取功能數組的應用結合后面的第6單元內容定義二維數組: Dim

g_vntArrWage(5,50)

使用二維數組： 存放第1個人的第1個信息

g_vntArrWage(1,1)=“Helen”

5.4實現員工工資數據的讀取功能循環的應用（結合后面的第6單元內容）For循環變量=初值To終值[Step步長]<循環體>Next[循環變量]用DoWhile循環舉例:i=1DoWhilei<=5Printii=i+1Loop控制循環的變量賦初值DoWhile循環條件

<循環體>

控制循環的變量賦值Loop用For循環舉例:Fori=1to5 PrintiNextI5.4實現員工工資數據的讀取功能五個步驟中后三步都是在ReadFromFile_fso通用過程中實現'文件讀取：方法一PublicSubReadFromFile_fso()

'過程級變量i,j:i表示第幾位員工，j表示第幾項信息

DimiAsInteger,jAsInteger

'FSO:步驟三——文本流的創建（讀方式）

Setts=fso.OpenTextFile(g_strFileName,ForReading)i=0 'Do循環:變量i賦初值

DoWhileNotts.AtEndOfStream'Do循環:執行一次,讀取一位員工數據

i=i+1 'Do循環:變量i每次累加1Forj=1TogInfoNum 'For循環:執行一次,讀取工資數據中的一項

'FSO:步驟四——文本流的讀操作

g_vntArrWage(i,j)=ts.ReadLineNextLoop'FSO:步驟五——文本流的關閉

ts.Closeg_intRecNum=iEndSub5.4實現員工工資數據的讀取功能步驟一：打開文件Open語句：對文件做任何I/O（輸入/輸出）操作之前都必須先打開文件；在內存中為文件的讀寫分配一個緩沖區，并決定使用什么樣的訪問方式；具體的Open語句如下所示：Openg_strFileNameForInputAs#1

其中，打開方式：Input：從順序型文件中輸入（讀）字符；Output：把字符輸出（寫）到順序型文件，覆蓋寫；Append：把字符輸出（寫）到順序型文件的尾部，追加寫；方法二：采用傳統文件I/O語句和函數進行讀文件

5.4實現員工工資數據的讀取功能步驟二：進行讀操作LineInput#語句：從已打開的順序文件中讀出一行中的所有字符（不包括回車換行符），并將它分配給字符串型變量；

LineInput#文件號,變量名 其中，文件號應該與之前Open語句中的文件號相對應；步驟三：關閉文件打開一個文件（Input、Output或Append方式）之后，一旦要為其它類型的操作重新打開它，就必須先用Close語句關閉它；

Close[#]文件號5.5實現員工工資數據的顯示功能'顯示第n位員工的工資數據，并顯示員工的總人數和當前員工的順序號PrivateSubDispWageInfo()DimjAsInteger

Forj=1TogInfoNum

txt_WageInfo(j-1)=g_vntArrWage(g_intNum,j)Nextlbl_CountAll="共"&Str(g_intRecNum)&"位員工"lbl_CountNum="第"&Str(g_intNum)&"位員工"EndSub編寫顯示員工工資數據以及相關數據的通用過程

程序一開始運行，就要求把員工的工資數據顯示在相應的文本框中，并在界面下方的標簽中顯示出員工的總人數和當前員工的順序號；這些數據的顯示操作在之后還會被頻繁用到；5.5實現員工工資數據的顯示功能PrivateSubForm_Load()DimiAsIntegerCallReadFromFile_fso''文件讀取：方法一

g_intNum=1CallDispWageInfo'顯示第1位員工工資數據、員工的總人數和當前員工的順序號

Fori=1TogInfoNum

txt_WageInfo(i-1).Enabled=FalseNextcmd_Write.Visible=FalseEndSub編寫Form_Load事件過程

5.5實現員工工資數據的顯示功能PrivateSubcmd_Browse_Click(IndexAsInteger)SelectCaseIndexCase0'第一位員工

g_intNum=1Case1'前一位員工

Ifg_intNum<=1ThenMsgBox"已是第一位員工!"Elseg_intNum=g_intNum-1EndIfCase2'后一位員工

Ifg_intNum>=g_intRecNumThenMsgBox"已是最后一位員工!"Elseg_intNum=g_intNum+1EndIfCase3'最后一位員工

g_intNum=g_intRecNumEndSelectCallDispWageInfo‘顯示第n位員工工資數據、員工的總人數和當前員工的順序號EndSub

編寫瀏覽員工工資數據的cmd_Browse_Click事件過程

5.6實現員工工資數據的保存功能文件中的員工工資數據能在窗體上顯示、瀏覽，同時，程序還具有編輯功能：增加新員工的工資數據；對某位現有員工的工資數據進行修改或直接刪除；編輯的結果只有寫到文件中才能真正地保存下來，所以這些功能最終都可以歸結為文件的寫入操作；覆蓋寫入追加寫入

分析：5.6實現員工工資數據的保存功能將新增員工的工資數據插入到文件中間的某個位置；對現有員工工資數據進行修改、刪除；說明：順序型文件操作模式，只能從上到下逐條順序進行；要在存儲工資數據的二維數組中完成了相應的操作后，才能執行文件的覆蓋寫入操作；用重新把整個數組寫入文件的方式來實現；編寫向文本文件覆蓋寫入數據的通用過程

5.6實現員工工資數據的保存功能PublicSubWriteToFile_fso()DimiAsInteger,jAsInteger

'FSO:步驟三——文本流的創建（覆蓋寫方式）

Setts=fso.OpenTextFile(g_strFileName,ForWriting)Fori=1Tog_intRecNum'外層循環:執行一次,寫入一位員工的工資數據

Forj=1TogInfoNum'內層循環:執行一次,寫入工資數據中的一項信息

ts.WriteLineg_vntArrWage(i,j)'FSO:步驟四——文本流的寫操作

NextNextts.Close'FSO:步驟五——文本流的關閉EndSub'文件覆蓋寫入：方法一覆蓋寫入說明：FSO對象模型的處理過程包括五個步驟，其中，第一步“引用”必須要在編寫具體代碼之前完成的；第二步“聲明”是將相關對象的聲明放在標準模塊中的通用聲明部分；5.6實現員工工資數據的保存功能PublicSubWriteToFile_IO()DimiAsInteger,jAsInteger

'傳統文件I/O:步驟一——文件打開（覆蓋寫方式）

Openg_strFileNameForOutputAs#1Fori=1Tog_intRecNum'外層循環:執行一次,寫入一位員工的工資數據

Forj=1TogInfoNum'內層循環:執行一次,寫入工資數據中的一項信息

Print#1,g_vntArrWage(i,j)'傳統文件I/O:步驟二——文件寫操作

NextNextClose#1'傳統文件I/O:步驟三——文件關閉EndSub'文件覆蓋寫入：方法二覆蓋寫入5.6實現員工工資數據的保存功能新增員工的工資數據放在文件的最后；

文件中原有的數據會全部予以保留的情況；說明：在存儲工資數據的二維數組中完成了相應的操作后，只把最后一位員工的工資數據記錄追加寫入文件；本次寫入的數據就會添加到文件的末尾；編寫在文本文件末尾追加寫入數據的通用過程

5.6實現員工工資數據的保存功能PublicSubAppendToFile_fso()DimiAsInteger,jAsInteger

'FSO:步驟三——文本流的創建（追加寫方式）

Setts=fso.OpenTextFile(g_strFileName,ForAppending)Forj=1TogInfoNum'For循環:執行一次,寫入工資數據中一項信息

ts.WriteLineg_vntArrWage(g_intRecNum,j)'FSO:步驟四——文本流的寫操作

Nextts.Close'FSO:步驟五——文本流的關閉EndSub'文件追加寫入：方法一追加寫入5.6實現員工工資數據的保存功能PublicSubAppendToFile_IO()DimjAsInteger

'傳統文件I/O:步驟一——文件打開（追加寫方式）

Openg_strFileNameForAppendAs#1Forj=1TogInfoNum'For循環:執行一次,寫入工資數據中的一項信息

'傳統文件I/O:步驟二——文件的寫操作

Print#1,g_vntArrWage(g_intRecNum,j)NextClose#1'傳統文件I/O:步驟三——文件關閉EndSub‘文件追加寫入：方法二追加寫入5.7實現員工工資數據的編輯功能聲明兩個模塊級變量m_blnDele、m_blnWrite數據類型都是布爾（邏輯）型區別編輯操作類型：新增、插入、修改、刪除m_blnDele：表示編輯數據的方式m_blnWrite：表示數據寫入的方式

m_blnWrite=True '初始化為覆蓋寫入方式

m_blnDele=False '初始化為非刪除操作

fra_Browse.Visible=False '瀏覽/編輯框架不可見

fra_Edit.Visible=Falsecmd_Write.Visible=True '保存數據按鈕可用編寫編輯按鈕的cmd_Edit_Click事件過程

5.7實現員工工資數據的編輯功能新增一條工資記錄的代碼段修改一條工資記錄的代碼段

修改一條工資記錄的代碼段刪除一條工資記錄的代碼段數組操作5.7實現員工工資數據的編輯功能PrivateSubcmd_Write_Click()DimiAsIntegerIfm_blnDele=FalseThenFori=1TogInfoNum '將文本框中的內容（當前員工工資數據）存入數組

g_vntArrWage(g_intNum,i)=txt_WageInfo(i-1)NextEndIfIfm_blnWrite=TrueThen'向文件中寫入數據

CallWriteToFile_fso'文件覆蓋寫入：方法一

ElseCallAppendToFile_fso'文件追加寫入：方法一

EndIffra_Browse.Visible=Tr