双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VB 中怎样检查一个文件已经被打开

2008-04-09 11:11:50 240 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

hzhiyang84 墨衍会员 · AI 创作全网分发关注 + 加入社区

基于YOLOv8和PaddlepaddleOCR的微信截图聊天记录提取本文提出了一种基于YOLOv8和PaddleOCR的微信聊天记录提取方法。首先使用YOLOv8n模型分割出聊天气泡（针对深浅色模式分别训练），通过合成数据集增强模型鲁棒性，召回率达0.995。随后采用PP-OCRv5进行文本识别，利用坐标匹配将气泡内文本送入识别队列，短长文本平均置信度分别>0.98和>0.95。文中特别强调了PaddleOCR不同版本的输出格式差异及适配方案，建议使用3.0+版本。该方法有效解决了直接OCR识别易受干扰的问题，通过气泡分割+文本定位的两阶段策略显著提升了识别准确阅读详情

我在VB中要根据时间打开一个文件：

FileName = "output" & Hour(Now) & Minute(Now) & Second(Now) & "_" & Total & ".bin"
Open FileName For Output As #235
....
Close #235
程序中有时候Close语句会不被执行，
我该怎样判断这个文件已经被打开呢？

...全文

Discuz IIS上传附件大于28M失败报错Upload Failed.修改maxAllowedContentLength(图文教程) 下图：Discuz X3.5的系统信息，上传许可为1024MB(1GB)论坛为局域网论坛，仅供内部同事交流使用！使用官方最新的Discuz! X3.5 Release 20231221 UTF-8 下图：选择上传附件（提示可以最大上传100M）下图：模拟上传84M的文件（阅读详情

hzhiyang84

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lqq7072000 2008-04-09

打赏
举报

搞错了，不好意思！

lqq7072000 2008-04-09

打赏
举报



    Dim rst As Integer

    rst = FileExists(path & FileName) '完整文件路径

    If rst = True Then 

        '文件打开了

    end if

diablofriend 2008-04-09

打赏
举报

不好意思刚测试了一下 ERR.number=55

你可以写个错误捕获么，判断错误号码，我没记错的话err.number=55的
On Error GoTo Err_Function
FileName = "output" & Hour(Now) & Minute(Now) & Second(Now) & "_" & Total & ".bin"
Open FileName For Output As #235
....
Close #235
....

Err_Function
if err.number=55 then
MsgBox "文件已被打开"
exit function
end if

迈克揉索芙特 2008-04-09

打赏
举报

Open FileName For Output As #235
....
IF IsOpen(235) THEN
Close #235
END IF

Private Function IsOpen(f As Integer) As Boolean
On Error GoTo err
LOF f
IsOpen = True
err:
End Function

diablofriend 2008-04-09

打赏
举报

不好意思，刚测试了一下，err.number=55

diablofriend 2008-04-09

打赏
举报

你可以写个错误捕获么，判断错误号码，我没记错的话err.number=70的
On Error GoTo Err_Function
FileName = "output" & Hour(Now) & Minute(Now) & Second(Now) & "_" & Total & ".bin"
Open FileName For Output As #235
....
Close #235
....

Err_Function
if err.number=70 then
MsgBox "文件已被打开"
exit function
end if

caofusheng 2008-04-09

打赏
举报

通过文件的属性或者关闭出错时的错误ＩＤ来判断

hzhiyang84 2008-04-09

打赏
举报

谢谢，不好意思，没学过VB，所以不是很懂

diablofriend 2008-04-09

打赏
举报

modest不是已经给你写了如果判断是打开的则关闭么，
你可以先判断是否已经打开，如果打开则不执行打开的代码，
而直接执行...里面的代码吧！多想想么！

IF IsOpen(235) THEN
....
else
Open FileName For Output As #235
...
END IF

Private Function IsOpen(f As Integer) As Boolean
On Error GoTo err
LOF f
IsOpen = True
exit function

hzhiyang84 2008-04-09

打赏
举报

谢谢大家,刚才没说清楚
FileName = "output" & Hour(Now) & Minute(Now) & Second(Now) & "_" & Total & ".bin"
Open FileName For Output As #235
....
Close #235

....里的语句一定要执行.如果文件已经被打开,就关闭它
看了你们说的后,
我这样写不知道行不行

FileName = "output" & Hour(Now) & Minute(Now) & Second(Now) & "_" & Total & ".bin"
On Error Go Err_OpenFile
Open FileName For Output As #235
Goto Start
Err_OpenFile:
if err.number = 55
close #235
Open FileName For Output As #235
end if
Start:....
Close #235

有没有更好的方法呢

不过貌似我这边的问题不是这个，好像我的错误号是52,不知道是什么引起的

✦双11狂欢大促✦

VB 中怎样检查一个文件已经被打开

相关推荐

双11狂欢大促