" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

VB – 循环过程中出现的ini写入问题

程序设计2005-05-24 itlogger阅读(946) 评论(0)
初始代码
For i = 1 To SwitchNum
WriteIniStr "Dsis", "sid" & i, i, cmdOpen.FileName
For j = 1 To 26
WriteIniStr "Dsis", "intid" & i, j, cmdOpen.FileName
WriteIniStr "Dsis", "state" & i, IntSwitchState(j, i), cmdOpen.FileName
'该部分循环失效,原意要产生一个1-26循环写入的效果
'如:[Dsis]
sid1=1
intid1=1

intid26=26
'结果ini文件中只有intid1=26
Next j
Next
. 更正代码
For i = 1 To SwitchNum
WriteIniStr "Dsis", "sid" & i, i, cmdOpen.FileName
For j = 1 To 26
WriteIniStr "Dsis", "intid" & j, j, cmdOpen.FileName
WriteIniStr "Dsis", "state" & j, IntSwitchState(j, i), cmdOpen.FileName
Next j
Next
'由于错误的将子键initid后的参数设为i,导致循环过程中的子键intid一直保持不变,而不能循环写入1-26个子键

转载请注明 :IT樵客
文章地址:http://www.itlogger.com/program/80.html

发表评论

电子邮件地址不会被公开。 必填项已用*标注