欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → VBA 问题

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2208人关注过本帖树形打印复制链接

主题:VBA 问题

帅哥哟,离线,有人找我吗?
www532412596
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:58 积分:0 威望:0 精华:0 注册:2019/6/24 16:16:19
VBA 问题  发帖心情 Post By:2019/7/23 14:20:15 [只看该作者]

Sub Open
const ForAppending = 8
const TristateFalse = 0
const ForReading =1
Dim fs, fso,a
Set fs = CreateObject("Scripting.FileSystemObject")
Set fso =fs.OpenTextFile("d:\VBS\testfile.txt",ForReading,True)
a=fso.ReadLine 
fso.close
msgbox a
End Sub


我用上面的代码读取txt的第一行内容,那么如果TXT内容是空的则会报错控件无法看到,尚未启用或其类型属于不接受焦点,因此无法将焦点移至该控件。
所以我该怎么判断TXT里是空内容   来排除上述情况?

 回到顶部