杭州交通信息网吴家山怎么去张公山寨:怎么找不到高手啦~
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 02:17:12
用VB把ASP源文件中的HTML和ASP代码分离!!!!
到底有没有高手啊!
别有一些人老装高手,以为简单.写出来试一试!
我写了半个小时总是达不到彻底分离!
分开我有我的目地!
写出一串代码的人。我没有去测试你的程序。
我要写一个ASPTODLL。马上写完了。已解决了<!--include file-->就差把HTML代码取出来。前面加上response.write("")
<%%>这中间的ASP代码不动。这就是为什么要分离开的目地！
到底有没有高手啊!
别有一些人老装高手,以为简单.写出来试一试!
我写了半个小时总是达不到彻底分离!
分开我有我的目地!
写出一串代码的人。我没有去测试你的程序。
我要写一个ASPTODLL。马上写完了。已解决了<!--include file-->就差把HTML代码取出来。前面加上response.write("")
<%%>这中间的ASP代码不动。这就是为什么要分离开的目地！
晕,
强烈谴责楼上的人说VB用的少
自己不会用别说别人不会
还有就是楼主,别说没高手,到处都是
你的问题的确很简单的啊
以下是部分代码:
ASP一般都以<% %>包裹着,用instr函数,一直迅找,
dim temp as string'临时变量
dim html as string'存储修改后的HTML
dim sou as string'存储原始ASP
dim i as long'存储当前读取位置
'将打开的文件赋到 sou变量去
open filename for input as #1'filename是文件绝对地址
do until eof(1)
line input #1,temp
sou=sou & temp
loop
temp=""
start:
i=instr(i+1,sou,"<%")
if i=0 then
msgbox "ASP代码已寻完"
else
if instr(i+1,sou,"%>")<>0 then
html=html & mid(sou,i,instr(i+1,sou,"%>")-i)
goto Start
else
msgbox "ASP代码错误,没有 %>, 结尾不完整"
end if
end if
msgbox html
text1.text=html
以上内容是找出ASP代码,至于HTML也一样,自己想去
基本上完发,没测试过,手头上没有VB,我这可以自己一点一点的写出来的,
别忘了说几句谢的话!
累啊
没事去我的论坛逛逛
http://vb.gzcg.com
我很爱帮助人的
你说一个理由，为什么要把它们分离。
分离的关键,判断<%和%>不就完了,写循环啊
VB现在用的人太少了，不好找啊