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 R语言Rstudio突然无法启动
- ¥15 关于#matlab#的问题:提取2个图像的变量作为另外一个图像像元的移动量,计算新的位置创建新的图像并提取第二个图像的变量到新的图像
- ¥15 改算法,照着压缩包里边,参考其他代码封装的格式 写到main函数里
- ¥15 用windows做服务的同志有吗
- ¥60 求一个简单的网页(标签-安全|关键词-上传)
- ¥35 lstm时间序列共享单车预测,loss值优化,参数优化算法
- ¥15 Python中的request,如何使用ssr节点,通过代理requests网页。本人在泰国,需要用大陆ip才能玩网页游戏,合法合规。
- ¥100 为什么这个恒流源电路不能恒流?
- ¥15 有偿求跨组件数据流路径图
- ¥15 写一个方法checkPerson,入参实体类Person,出参布尔值