顺序文件记录添加数字编号.doc

沈 阳 航 空 航 天 大 学 课程设计 学 号 2010040301138班 级 04030104姓 名 李岩指导教师 董如楠2012年 7 月 6日沈阳航空航天大学课程设计任务书学院：航空航天工程学部 专业：飞行器制造（俄语） 班级：04030104学号：2010040301138 题目：顺序文件记录添加数字编号一、课程设计时间201112第2学期 第17周，共计1周，20学时。二、课程设计内容在excel中，每行记录都又编号标示行数，用VB编写一个小程序，实现给没有记录编号的文本自动添加编号的功能。运行程序，单击“选择文件”按钮，选择要添加编号的文件，然后单击“格式处理”按钮，可为文件记录添加四位格式的编号。程序运行效果参见右图，学生也可在保证基本功能要求的前提下，自行设计操作界面。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目录一.需求分析3二.设计分析4三.技术要点5四.主要界面截图6五.总结8六.完整的源程序8七.参考文献11一.需求分析这个小程序是为了满足文件添加顺序编号的要求，保存转换后的数据。运行程序， （1） 在VB小程序中导入需要的数据。单击“选择文件”按钮（2） 选择要添加编号的文件，然后单击“格式处理”按钮。将提取的数据转换成需要的格式，为文件添加顺序编号。二.设计分析（1）概述：创建程序和各按钮作用，建立程序设计与数据文件的连接，打开数据文件，为数据文件添加顺序编号，保存数据文件。（2）：总体设计： 保存数据添加顺序编号导入数据（3）详细设计：开始导入数据添加顺序编号保存数据三.技术要点一.实用listview控件和CommonDialog控件将数据导入程序，中， listview和CommonDialog在visual basic和microsoft windows动态链接库ommdilg.dll的例程之间提供了一个接口。为了用这个控件导入数据，完成加载任务。CommonDialog1.Filter = 顺序文件(*.txt;*.ini)|*.txt;*.ini|所有文件(*.*)|*.* 对话框可以显示的文件类型 CommonDialog1.Action = 1 调用打开对话框 If CommonDialog1.FileName Then 如果选择了文件 Text2 = 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 StringPrivate 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 = 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.添加顺序编号界面五.总结我的课程设计题目是“顺序文件记录添加数字编号”。通过这一周的努力，对程序的不断改进与调试，终于完成了程序的编写，最后的结果基本符合了课设题目的要求。这次课程设计，从最初拿到题目的无从下手，在我们上课的时候，老师交给了我们一个简单又实用的方法，那就是从简单到复杂。完成简单的程序，再给其补充使其符合题目要求，另一个当遇到困难的时候，通过查阅资料和咨询老师去解决，所以当程序完全编号后，虽然程序编的很累，自己收获了快乐，而且也明白了VB的重要性，我们这个信息时代离不开它。通过这次课设，我知道了要想成功，就要脚踏实地的去努力，我能完成这次课设的题目不仅依靠自己，还有同学的帮助，明白了一个人的力量是有限的，大家的力量是无穷的，也许在通往成功的路上会有许多苦难，但是要相信自己，去探索，去积累，去奋斗，最后一定可以实现自己的目标。为了实现这个目标，不仅仅是VB还有其他的知识积累。六.完整的源程序Dim i As IntegerDim MyStr As String 定义变量，用于存储每行读出的数据Private Sub Command1_Click() CommonDialog1.Filter = 顺序文件(*.txt;*.ini)|*.txt;*.ini|所有文件(*.*)|*.* 对话框可以显示的文件类型 CommonDialog1.Action = 1 调用打开对话框 If CommonDialog1.FileName Then 如果选择了文件 Text2 = Open CommonDialog1.FileName For Input As #1 打开文件 Text1 = CommonDialog1.FileName Do While Not EOF(1) 循环至文件尾。 Line Input #1, MyStr 将每行数据读入变量MyStr。 If Text2 = Then Text2 = MyStr Else Text2 = Text2 & vbCrLf & MyStr 显示文件内容到text2 Loop Close #1 关闭文件 End IfEnd 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 循环判断数组是否有非空数据 MyStr = Format(i, 0000) & & myarray(i) If Text3 = Then Text3 = MyStr Else Text3 = Text3 & vbCrLf & MyStr 非空数组的位置加一 Next Open CommonDialog1.FileNam