my_string = "A110B121C119D1861" a_num = instr(my_string,"A") alert(a_num) </script>
同样字母“B”的位置也就能确定。现在就来最关键的:提前字母“A”和“B”中间的值“110”。还记得mid函数吗?mid函数的主要作用是:从字符串中返回指定数目的字符。比如现在的“110”则应该是从字符串的第2位取得3个单位的值。
<script language=vbs> my_string = "A110B121C119D1861" a_value = mid(my_string,2,3) alert(a_value) </script>
但设想一下:如果不是“110”,而是“1100”,那是不是要提取4位……这样就显出程序的不够完美。
所以继续思考:所提取的值,永远是在字母“A”后面的,且值也永远是在字母“A”和“B”之间的,那么只要分别提取出“A”、“B”的位置,则中间数值的起始位应是字母“A”位+1 ,中间数值的长度应是字母“B”位-字母“A”位-1 那么现在就可以让程序完美起来:
<script language=vbs> my_string = "A110B121C119D1861" a_num = instr(my_string,"A") b_num = instr(my_string,"B") a_value = mid(my_string,a_num+1,b_num-a_num-1) alert(a_value) </script>
OK,那么现在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
当然需要注意的就是“D”后面有几位怎么取呢?采用字符串总长度-字母D所在位置数 就可以了。
<script language=vbs> my_string = "A110B121C119D1861" a_num = instr(my_string,"A") b_num = instr(my_string,"B") c_num = instr(my_string,"C") d_num = instr(my_string,"D") total_num = len(my_string) a_value = mid(my_string,a_num+1,b_num-a_num-1) b_value = mid(my_string,b_num+1,c_num-b_num-1) c_value = mid(my_string,c_num+1,d_num-c_num-1) d_value = mid(my_string,d_num+1,total_num-d_num) alert(a_value) alert(b_value) alert(c_value) alert(d_value) </script>
用到现在,你也许确实学到了不少,但也许会提出疑问:这个放在FSO文件操作里有什么作用呢?
那下面才是我们的正题:用FSO进行简单的文本投票。 投票页面首要的就是显示各类项目的投票数,并相应赋于某个变量。然后判断本次投票的选相,相对应地将投票数值加1,完毕后再将所有值继续写入文本。1,一个HTML表单页website.html 以做投票点击的平台。
<form action="result.asp" method="post"> <input type="radio" name="website" value="A" checked> cnbruce.com<br> <input type="radio" name="website" value="B"> blueidea.com<br> <input type="radio" name="website" value="C"> it365cn.com<br> <input type="radio" name="website" value="D"> 5d.cn<br> <input type="submit"> <input type="reset">
2,接受表单页值的result.asp
<%
whichfile=server.mappath("site.txt")
set fso=createobject("Scripting.FileSystemObject")
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.readline
a_num = instr(my_string,"A")
b_num = instr(my_string,"B")
c_num = instr(my_string,"C")
复制本页网址和标题,发送给你QQ/Msn的好友一起分享
上一篇:
深入学习ASP动态网页技术之FSO组件之文件夹操作
下一篇:
深入学习ASP动态网页技术之对文件系统的管理