文件记录添加数字编号.docVIP

沈 阳 航 空 航 天 大 学 课程设计 学 号 2010040301138 班 级 姓 名 李岩 指导教师 董如楠 2012年 7 月 6日 沈阳航空航天大学 课程设计任务书 学院：航空航天工程学部 专业：飞行器制造（俄语） 班级学号：2010040301138 题目：顺序文件记录添加数字编号 一、课程设计时间 2011~12第2学期 第17周，共计1周，20学时。 二、课程设计内容 在excel中，每行记录都又编号标示行数，用VB编写一个小程序，实现给没有记录编号的文本自动添加编号的功能。运行程序，单击“选择文件”按钮，选择要添加编号的文件，然后单击“格式处理”按钮，可为文件记录添加四位格式的编号。程序运行效果参见右图，学生也可在保证基本功能要求的前提下，自行设计操作界面。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语 目录 一.需求分析 3 二.设计分析 4 三.技术要点 5 四.主要界面截图 6 五.总结 8 六.完整的源程序 8 七.参考文献 11 一.需求分析 这个小程序是为了满足文件添加顺序编号的要求，保存转换后的数据。 运行程序，， 在VB小程序中导入需要的数据。单击“选择文件”按钮 选择要添加编号的文件，然后单击“格式处理”按钮。将提取的数据转换成需要的格式，为文件添加顺序编号。 二.设计分析 （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) 返回值 0100123Dim i As Integer Dim MyStr As String Private 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)