順序文件記錄添加數字編號

1、沈 陽 航 空 航 天 大 學 課程設計 學 號 2010040301138班 級 04030104姓 名 李巖指導教師 董如楠2012年 7 月 6日1 / 11沈陽航空航天大學課程設計任務書學院：航空航天工程學部 專業(yè)：飛行器制造（俄語） 班級：04030104學號：2010040301138 題目：順序文件記錄添加數字編號一、課程設計時間201112第2學期 第17周，共計1周，20學時。二、課程設計內容在excel中，每行記錄都又編號標示行數，用VB編寫一個小程序，實現給沒有記錄編號的文本自動添加編號的功能。運行程序，單擊“選擇文件”按鈕，選擇要添加編號的文件，然后單擊“格式處理”按鈕

2、，可為文件記錄添加四位格式的編號。程序運行效果參見右圖，學生也可在保證基本功能要求的前提下，自行設計操作界面。三、課程設計要求程序質量：² 貫徹事件驅動的程序設計思想。² 用戶界面友好，功能明確，操作方便；可以增加其它功能或修飾。² 代碼應適當縮進，并給出必要的注釋，以增強程序的可讀性。課程設計說明書：² 課設結束后，上交課程設計說明書和源程序。課程設計說明書的內容參見提供的模板。四、指導教師和學生簽字指導教師：_ 學生簽名：_五、成績六、教師評語目錄一.需求分析3二.設計分析4三.技術要點5四.主要界面截圖6五.總結8六.完整的源程序8七.參考文獻11

3、一.需求分析這個小程序是為了滿足文件添加順序編號的要求，保存轉換后的數據。運行程序， （1） 在VB小程序中導入需要的數據。單擊“選擇文件”按鈕（2） 選擇要添加編號的文件，然后單擊“格式處理”按鈕。將提取的數據轉換成需要的格式，為文件添加順序編號。二.設計分析（1）概述：創(chuàng)建程序和各按鈕作用，建立程序設計與數據文件的連接，打開數據文件，為數據文件添加順序編號，保存數據文件。（2）：總體設計： 保存數據添加順序編號導入數據（3）詳細設計：開始導入數據添加順序編號保存數據三.技術要點一.實用listview控件和CommonDialog控件將數據導入程序，中， listview和CommonDi

4、alog在visual basic和microsoft windows動態(tài)鏈接庫ommdilg.dll的例程之間提供了一個接口。為了用這個控件導入數據，完成加載任務。CommonDialog1.Filter = "順序文件(*.txt;*.ini)|*.txt;*.ini|所有文件(*.*)|*.*" '對話框可以顯示的文件類型 CommonDialog1.Action = 1 '調用打開對話框 If CommonDialog1.FileName <> "" Then '如果選擇了文件 Text2 = "&q

5、uot; Open CommonDialog1.FileName For Input As #1 '打開文件 Text1 = CommonDialog1.FileName二、在程序的開始定義全局變量，通過format函數轉換，利用CommonDialog控件，將導入的數據轉換成需要的順序編號的格式。0 占位格式化，不足補0    format$("100123","0000000") 返回值 0100123利用format函數這條用法實驗格式轉換。Dim i As Integer Dim MyStr As Strin

6、gPrivate Sub Command3_Click()Dim myarray Dim mystrline(3) As String Dim mystrint(3) As String Dim intcount As Integer Text3 = "" myarray = Split(Text2, vbCrLf) For i = 0 To UBound(myarray) - 1 MyStr = Format(i, "0000") & " " & myarray(i) If Text3 = ""

7、Then Text3 = MyStr Else Text3 = Text3 & vbCrLf & MyStr Next Open CommonDialog1.FileName For Output As #1 Print #1, Text3 Close #1End Sub三將程序結束利用End語句結束。 四.主要界面截圖圖1.主界面圖2.導入txt文件界面圖3.添加順序編號界面五.總結我的課程設計題目是“順序文件記錄添加數字編號”。通過這一周的努力，對程序的不斷改進與調試，終于完成了程序的編寫，最后的結果基本符合了課設題目的要求。這次課程設計，從最初拿到題目的無從下手，在我們上

8、課的時候，老師交給了我們一個簡單又實用的方法，那就是從簡單到復雜。完成簡單的程序，再給其補充使其符合題目要求，另一個當遇到困難的時候，通過查閱資料和咨詢老師去解決，所以當程序完全編號后，雖然程序編的很累，自己收獲了快樂，而且也明白了VB的重要性，我們這個信息時代離不開它。通過這次課設，我知道了要想成功，就要腳踏實地的去努力，我能完成這次課設的題目不僅依靠自己，還有同學的幫助，明白了一個人的力量是有限的，大家的力量是無窮的，也許在通往成功的路上會有許多苦難，但是要相信自己，去探索，去積累，去奮斗，最后一定可以實現自己的目標。為了實現這個目標，不僅僅是VB還有其他的知識積累。六.完整的源程序Dim

9、 i As IntegerDim MyStr As String '定義變量，用于存儲每行讀出的數據Private Sub Command1_Click() CommonDialog1.Filter = "順序文件(*.txt;*.ini)|*.txt;*.ini|所有文件(*.*)|*.*" '對話框可以顯示的文件類型 CommonDialog1.Action = 1 '調用打開對話框 If CommonDialog1.FileName <> "" Then '如果選擇了文件 Text2 = "&q

10、uot; Open CommonDialog1.FileName For Input As #1 '打開文件 Text1 = CommonDialog1.FileName Do While Not EOF(1) '循環(huán)至文件尾。 Line Input #1, MyStr '將每行數據讀入變量MyStr。 If Text2 = "" Then Text2 = MyStr Else Text2 = Text2 & vbCrLf & MyStr '顯示文件內容到text2 Loop Close #1 '關閉文件 End If

11、End SubPrivate Sub Command3_Click()Dim myarray '定義變量，用于存儲每行數據按空格返回的數據Dim mystrline(3) As String '定義一維數組，存儲每行數據中的非空數據Dim mystrint(3) As String '定義一維數組，存儲每行數據中的非空數據Dim intcount As Integer '定義整形變量 Text3 = "" myarray = Split(Text2, vbCrLf) '將MyStr中的數據按空格形成數組。 For i = 0 To UBound(myarray) - 1 '循環(huán)判斷數組是否有非空數據 MyStr = Format(i, "0000") & " " & myarray(i) If Text3 = "" Then Text3 = MyStr Else Text3 = Text3 & vbCrLf & MyStr '非空數組的位置加一 Next Open CommonDialo