While Not ts.AtEndOfStream
rline = ts.ReadLine
If (rline Like "*aa*") Then
rline = Replace(rline, Chr(9), "") '替换制表符tab
rline = Replace(rline, " ", "")
content = Split(rline, "aa")
Dim s1 As String
s1 = content(1)
ElseIf (rline Like "*bb*") Then
rline = Replace(rline, Chr(9), "")
rline = Replace(rline, " ", "")
content = Split(rline, "bb")
imagedate = content(1)
ElseIf (rline Like "*cc*") Then
rline = Replace(rline, Chr(9), "")
rline = Replace(rline, " ", "")
content = Split(rline, "cc")
imageresolution = content(1)
ElseIf (rline Like "*dd*") Then
rline = Replace(rline, Chr(9), "")
rline = Replace(rline, " ", "")
content = Split(rline, "dd")
imagetype = content(1)
End If
wend
程序完了后为什么我定义的全局变量imageresolution 等都没值了 调试过程还有的啊 谢谢
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
悬赏问题
- ¥15 电脑桌面设定一个区域禁止鼠标操作
- ¥15 求NPF226060磁芯的详细资料
- ¥15 使用R语言marginaleffects包进行边际效应图绘制
- ¥20 usb设备兼容性问题
- ¥15 错误(10048): “调用exui内部功能”库命令的参数“参数4”不能接受空数据。怎么解决啊
- ¥15 安装svn网络有问题怎么办
- ¥15 Python爬取指定微博话题下的内容,保存为txt
- ¥15 vue2登录调用后端接口如何实现
- ¥65 永磁型步进电机PID算法
- ¥15 sqlite 附加(attach database)加密数据库时,返回26是什么原因呢?