如何利用VBA实现Excel 报表从文本文件读取指定的信息？

2007-04-17 09:25:17 711 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

OVF/OVA虚拟机部署全攻略：从格式原理到实操排障在虚拟化与云计算实践中，OVF（开放虚拟化格式）和OVA（开放虚拟化应用）是跨平台封装虚拟机模板的标准方式。OVF以目录形式保存配置与磁盘，OVA则将其打包为单一文件，便于分发与迁移。两者本质上基于XML描述与虚拟磁盘格式（如VMDK）协同工作，并通过MF校验保障文件完整性。理解这一机制，能帮助运维与开发人员快速完成虚拟机导入、模板化交付及环境初始化。无论是使用VMware Workstation、VirtualBox还是ESXi，掌握OVF/OVA的部署与排障方法，都能显著提升虚拟化环境的管理效率。文章结阅读详情

程序修改之后通过，但是读不出数据，程序如下：

Sub sw()
Dim FILE_PATH As String, TEMP As String, I As Long, N As Long, ZHANMA As String, SHIJIAN As String, S() As String, Z As String, a As String

FILE_PATH = "D:\RWIS\tele\NP" & Format(Date, "YYMMDD") & ".tel"
Open FILE_PATH For Input As #1 '打开文件
S() = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1 '一定要在报文处理完成后关闭文件，切记
For I = 0 To UBound(S) '按行输入，每行作为一个字符串赋值给变量a

ZHANMA = Mid(S(I), 18, 8) '站号变量

SHIJIAN = Mid(S(I), 27, 8) '时间变量

Z = Mid(S(I), 18, 8)
If Mid(SHIJIAN, 5, 2) = "08" Then '只读取8时的数据信息，其他时间不读取
'以下是根据判别站号，指定活动单元格，并将函数的值写入
If ZHANMA = "61913200" Then [B6] = cjsw(a) '**站的站码，用户可以根据各自的需要设定不同的站码
If ZHANMA = "61901300" Then [B7] = cjsw(a)
If ZHANMA = "61512000" Then [B8] = cjsw(a)
'在活动单元格中写入函数cjsw(a)的值，cjsw(a)为求取字符串变量a中的水位值的自定义函数,这里的a 是一行从报文文件中读取的一份完整的报文字符串。
End If
Exit For
Next
[B6].Activate
MsgBox ("水位自动翻译完成！！！！")
End Sub

Function cjsw(Z As String) '求河道站水位的函数

For I = 36 To Len(Z)

If Mid(Z, I, 2) = "Z " Then

cjsw = Mid(Z, I + 2, 5)

End If

Next I

End Function

我要的文本文件内容如下:

SY5773 H 61913200 04120800 Z 40.54 ZS 5 Q 20.5 QS 1 QX 25.0 QM 48.6 NN GOITM2007/04/12_08:12:26 04 GOOTM2007/04/12_08:14:16

就是只要Z后面的40.54到B6,该怎么改呢?急

...全文