- 积分
- 884
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-5-19
- 最后登录
- 1970-1-1
|
GrADS
| 系统平台: |
vb |
| 问题截图: |
 |
| 问题概况: |
想用VB6读取以时间为名的数据文件，文件在类似这样的路径下Z:\YYYYMM\YYYYMMDD20\YYMMDD20.txt，每天20时系统都会自动生成1个.txt文件。
我要读取.txt文件中的某行某列，要求当一个命令下达时，调用的是最新的数据文件。
比如，我是2016年3月30日白天运行程序，则调用的应该是前一天晚上20时生成的数据，路径是Z:\201603\2016032920\16032920.txt中的数据。测试的数据见图片。
从网上东拼西凑来的代码，编译有错：实时错误‘9’ 下标越界。
求指点，谢谢~~
Private Sub cmd1_Click()
Dim lngFn As Long, strT As String
Dim filename As String
filename = Replace(Format(Date - 1, "yyyymm-yyyymmdd20-yymmdd20"), "-", "\") & ".txt"
lngFn = FreeFile
Open f & "\ " & "filename" For Binary As lngFn
strT = Space(LOF(lngFn))
Get 1#, , strT
Close #lngFn
Dim sArr() As String
sArr = Split(strT, vbCrLf)
txt1.Text = Split(sArr(0), " ")(0)
End Sub |
| 我看过提问的智慧: |
看过 |
| 自己思考时长(天): |
15 |
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
|
|
窥视卡
雷达卡
发表于 2016-3-30 21:48:51
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡