神马品牌网欧式建筑构件3d模型:大家帮我看看这代码问题出在哪了！
来源：百度文库 编辑：神马品牌网 时间：2024/05/15 03:08:19
ad_id_1=rs("ad_id")
Set mf = fso.OpenTextFile(wf,1)
looked=0
Do while not mf.atendofstream
if mf.readline<>ad_id_1 then
looked=1
exit do
end if
mf.skip
loop
为什么中间
if mf.readline<>ad_id_1 then
looked=1
exit do
end if
改成
if mf.readline=ad_id_1 then
looked=1
exit do
end if
也可以？（同样条件下）
我在if end 之间加输出语句可以输出
文本文件里没任何记录
Set mf = fso.OpenTextFile(wf,1)
looked=0
Do while not mf.atendofstream
if mf.readline<>ad_id_1 then
looked=1
exit do
end if
mf.skip
loop
为什么中间
if mf.readline<>ad_id_1 then
looked=1
exit do
end if
改成
if mf.readline=ad_id_1 then
looked=1
exit do
end if
也可以？（同样条件下）
我在if end 之间加输出语句可以输出
文本文件里没任何记录
wf 路径对吗? 我曾经就因为多了个../就郁闷了很久! 路径错误,文件没打开,相应条件也错误,再被on error resume next 给跳过去了.
哎 你从文件头读到尾 总有一个不一样或者一样的 那就执行了被
比如
1
2
3
4
5
当ad_id_1值为1判断相等的时候 那第一次循环就一样了 然后输出
当判断不相等的时候第一次是不会执行的 而第二次不相等 然后也输出了
是不是这个道理
Set mf = fso.OpenTextFile(wf,1)没打开,而on error resume next了.
或者可能是类似这样
wf=的文件里,有1\2\3,循环的时候ad_id_1=2
2个循环下来都会是looked=1
没走到那个地方Do while not mf.atendofstream ，你把全码贴出来看看
循环结构错误，不能执行到Do while not mf.atendofstream ，
用F7分开试试吗〉？
在DO.....LOOP内写一个输出语句,看看执行不执行得到?
我只是怀疑,出现相同结果的原因,是不是根本
DO...LOOP根本不执行得到?
即mf.atendofstream 这个的布尔值为0.