2 shopping2088 shopping2088 于 2014.06.13 19:14 提问

程序完了后为什么我定义的全局变量imageresolution 等都没值了 调试过程还有的啊 谢谢

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

1个回答

lym753024200
lym753024200   2014.06.13 20:16

会被销毁的哟,要不内存岂不是越来越小了

shopping2088
shopping2088 非常感谢哈哈哈哈哈 调试了下 全局变量位置没错 文本存在重复 结果覆盖了以前的值 只是文本行太多不方便调试 我的正则匹配公式不够严谨
3 年多之前 回复
lym753024200
lym753024200 不能让主程序结束,要么你的全局变量位置不正确,要么什么代码没给它正确赋值。可以先把值保存到文件测试下
3 年多之前 回复
shopping2088
shopping2088 请问 如何才能传出来?-- 关键文本每一行都不确定 我要搜索好多行 才能读取到这几个值
3 年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!