VB.NET如何做到打开文件，打开错误格式的文件，未选择文件都有提示

2018-09-03 09:19:10 913 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

3D点云目标检测Complex-YOLO（训练篇）（一）———KITTI数据集预处理与制作 KITTI dataset Download dataset KITTI 3D Object Detection Evaluation 2017 link 下载四个部分，共41.4GB 解压后为四部分内容（相机校准矩阵calib、RGB图像image_2、标签label_2、点云数据velodyne）对应的testing和training数据。其中，training数据为7481张（图片和点云对应的场景）,testing数据 7518张（无label_2数据）。 Data Preprocess 阅读详情

openfiledialague里可以做到打开正确的文件，以及if file exist这种来判断是否有文件，那碰到打开错误的文件一般程序直接就报错了。有什么办法把这三个区分开吗？
我现在做到1.正确文件----读取文件（readline）
2.未选择（在打开窗口时就按取消了）------msgbox("请选择文件")
3.选择错误格式的文件（后缀名或者内容错）-----程序报错关闭
求解决3。让它成为msgbox("请选择正确文件")

...全文

第二十七届华东杯数学建模A 题跳台滑雪问题完整思路模型及代码考虑到滑行过程中的空气阻力和摩擦力对速度的影响，我们引入了不同姿态下运动员迎风面积和空气阻力系数的变化，利用牛顿第二定律建立加速度表达式，并通过数值模拟比较常见姿态下的终端速度。针对问题二，我们构建了二维空中飞行动力学模型，结合起跳速度、身体迎角、滑雪板倾角等因素，模拟运动员在空中飞行的轨迹与姿态变化，采用欧拉法对运动过程进行仿真，优化飞行路径和稳定性。仿真结果表明，运动员应在起跳后保持滑雪板与身体成“V”字形打开、重心略后倾的姿态，以增强升力、延长飞行距离并提高姿态得分。，并模拟出跳跃的轨迹和最终得分。阅读详情

qq_15238669

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

奇奇怪怪的键盘侠 2018-10-30

打赏
举报



     '在判断完文件格式后，判断其内容，举个纯文本例子

        Dim yourstr As String = 你读出的文本

        '你需要的关键字顺序

        Dim key() As String = {"姓名", "学号", "班级", "成绩"}

        '两个arraylist，分别存放原顺序和新顺序

        Dim arrkey As New ArrayList

        Dim compkey As New ArrayList

        For i As Integer = 0 To key.Count - 1

            '在文本中寻找,只要匹配第一个搜到的字符串

            If yourstr.Contains(key(i)) Then

                arrkey.Add(yourstr.IndexOf(key(i), 0, 1).ToString)

                compkey.Add(yourstr.IndexOf(key(i), 0, 1).ToString)

            Else

                '如果key中的关键字没出现在文本中，错误退出

                MessageBox.Show("文件中未包含关键字退出")

                Exit Sub

            End If

        Next

        '得到两个序号的arraylist，将其中一个排序

        '如果不是你要的顺序，sort后应该是不一样的顺序，那么遍历对比必然会出错，即退出

        arrkey.Sort()

        For i As Integer = 0 To arrkey.Count - 1

            If arrkey(i) <> compkey(i) Then

                MessageBox.Show("顺序不正确退出")

                Exit Sub

            End If

        Next

        '不出错，说明字段顺序无误，成功

        MessageBox.Show("成功读取")

        '继续你的操作

非专业开发Five 2018-09-16

打赏
举报

引用 4 楼 qq_15238669 的回复:

我补充下，我说的格式错误并不是文件后缀名错误，而是内容错误。
比如我要读取的文件格式是(序号，名字，学号，班级)但是文件内容是(序号，名字，学号，班级，成绩) 这样子格式就不对了，文件自身后缀我无所谓。

你自己应该知道，判断文件是否存在，判断文件扩展名是否正确和判断文件内容是否正确应该是三个判断，前两个都是io操作级别的，最后一个明显是你自己再读取文件后判断的。

秋煞人 2018-09-15

打赏
举报

引用 4 楼 qq_15238669 的回复:

我补充下，我说的格式错误并不是文件后缀名错误，而是内容错误。
比如我要读取的文件格式是(序号，名字，学号，班级)但是文件内容是(序号，名字，学号，班级，成绩) 这样子格式就不对了，文件自身后缀我无所谓。

这种情况是不能用openfiledialague来判断的，你需要读出文件内容来同你需要的格式对比，可以用文件流来做，网上很多，搜一下就可以了

以专业开发人员为伍 2018-09-05

打赏
举报

使用 OpenFileDialog 的 ShowDialog() 方法本身的返回值会告诉你用户选择了还是没有选择文件。当选择了，你自然就知道所选择的文件名，从而也就知道后缀是什么。

这还是要多用点心去理解。不是抄代码。

qq_15238669 2018-09-05

打赏
举报

我补充下，我说的格式错误并不是文件后缀名错误，而是内容错误。
比如我要读取的文件格式是(序号，名字，学号，班级)但是文件内容是(序号，名字，学号，班级，成绩) 这样子格式就不对了，文件自身后缀我无所谓。

threenewbee 2018-09-04

打赏
举报

try
...
catch
... 凡是错误都在这里

qq_26338581 2018-09-04

打赏
举报

Dim FOpenFile As OpenFileDialog FOpenFile = New OpenFileDialog '控制选择文件格式 FOpenFile.Filter = "Excel文件(.xls)|*.xls" '如果选择取消，结束过程； If FOpenFile.ShowDialog = Windows.Forms.DialogResult.Cancel Then ... ... Exit Sub End If '读取文件 ... ...

VB.NET如何做到打开文件，打开错误格式的文件，未选择文件都有提示

相关推荐