如何使用VB读取txt文件中特定关键字中的数据并赋值
来源:
时间:2024-08-17 13:19:28
热度:
如何使用VB读取txt文件中特定关键字中的数据并赋值【专家解说】:Private Sub Command1_Click()
Dim TempFile As Long
Dim Loa
【专家解说】:Private Sub Command1_Click()
Dim TempFile As Long
Dim LoadBytes() As Byte
Dim all As String
Dim arr() As String
Dim rel1 As String
Dim rel2 As String
Dim rel3 As String
TempFile = FreeFile
Open "c:\\temp.txt" For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
all = StrConv(LoadBytes, vbUnicode)
arr = Split(all, "testkeyword1")
rel1 = arr(0)
arr = Split(arr(1), "testkeyword2")
rel2 = arr(0)
rel3 = arr(1)
MsgBox rel1
MsgBox rel2
MsgBox rel3
End Sub
上一篇:痛风和中风是一样吗
-
MTS视频文件转换制作及会声会影使用问题2024-08-17
-
山西电煤5000--6000卡 价格多少?带基金增值税 出省票 要阳泉 介休 孝义 宁武 晋城 长治 最好附带大概数据2024-08-17
-
红色警戒2正版的光盘安装文件有多大?2024-08-17
-
太阳能发电过程中会产生碳足迹(CO2)吗,怎样可测得这些数据呢?2024-08-17
-
电站招人有文件规定吗2024-08-17
-
模拟联合国立场文件关于环境保护方面的 国家是墨西哥 怎么写啊2024-08-17
-
天然气锅炉对比煤炭锅炉的优势包括具体的数据资料(急)2024-08-17
-
(1)写出沼气(CH_4)燃烧的反应方程式________. (2)根据图表数据,可否回答下列问题?若能,写出答案;若不能,写明原因: A.用液化气烧水煮饭为什么比2024-08-17
-
请问新电力公司首次资质申请需要什么文件?分别是几本???2024-08-17
-
新能源汽车的特点数据及节能情况.2024-08-17
-
固定资产投资项目节能登记表中的“年需要实物量”的数据来源2024-08-17
-
国产LNG气源看数据,热值,气化率,甲烷含量,乙烷含量怎么看优劣2024-08-17
-
天然气,煤气,液化气的比重,也就是一方有多重 有详细的数据吗?包括在什么样的条件下2024-08-17
-
泰安市太阳能数据哪能查到,例如今年每月的平均太阳能辐射强度2024-08-17
-
在“节能减排,做环保小卫士”活动中,小明对两种照明灯的使用情况进行了调查,得出如表所示的数据2024-08-17