中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]怎样在文件中插入文本
作者:
标题: [求助]怎样在文件中插入文本 上一主题 | 下一主题
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『楼 主』:  [求助]怎样在文件中插入文本

有这样１个ＡＳＰ（INC.ASP）文件内容:

if IsObject(con) = false then
        Response.Write "未找到数据库连接对象！"
        Response.End
end if

if con.State = 0 then
        Response.Write "数据库无法打开！"
        Response.End
end if

我想在第一个 end if　后加入　１些代码　如：x = GetSysConfigOption()

生成如下代码：
if IsObject(con) = false then
        Response.Write "未找到数据库连接对象！"
        Response.End
end if

x = GetSysConfigOption()


if con.State = 0 then
        Response.Write "数据库无法打开！"
        Response.End
end if

请问如何实现？
谢谢指点
再问：如何同时把所有ＡＳＰ文件改成上面示例？（不用，纯想法）

[ Last edited by xing3019 on 2007-10-26 at 01:13 PM ]

2007-10-26 13:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『第 2 楼』:  

谁能帮忙啊??
要搜索第一次 end if 后添加
x = GetSysConfigOption()
指定行数没用

[ Last edited by xing3019 on 2007-10-26 at 07:51 PM ]

2007-10-26 19:50
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 3 楼』:  


@echo off
for /f "delims=" %%i in (t.txt) do (
  set "str=%%i"
  echo %%i
  setlocal enabledelayedexpansion
  if "!str: =!"=="endif" set /a num+=1
  if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption()
  endlocal
)
pause


2007-10-26 20:05
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『第 4 楼』:  

谢谢

但是　

if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption()

最后１个　)   有问题
出现错误：已经达到最大的 setlocal 递归层。
去掉  )  后不报错　，
if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption(
但是程序不完整

[ Last edited by xing3019 on 2007-10-26 at 10:39 PM ]

2007-10-26 22:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 5 楼』:  

不能处理asp中都<%  %>字符

2007-10-26 22:20
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『第 6 楼』:  

测试　<%  %>　没问题，可以复制下来
但是　

if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption()

最后１个　)   有问题
出现错误：已经达到最大的 setlocal 递归层。
去掉  )  后不报错　，
if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption(
可是程序不完整

2007-10-26 22:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
terse
银牌会员





积分 2404
发帖 946
注册 2005-9-8
状态 离线
『第 7 楼』:  

略去 endlocal
@echo off
for /f "delims=" %%i in (t.txt) do (
  set "str=%%i"
echo %%i
  setlocal enabledelayedexpansion
  if "!str!"=="end if" set /a num+=1
  if !num!==1 if /i "!str!"=="end if" echo x = GetSysConfigOption(^)
)
pause

[ Last edited by terse on 2007-10-26 at 10:48 PM ]

2007-10-26 22:43
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『第 8 楼』:  

ＯＫ
endlocal　需要，谢谢你了
我参照提示多加了１条

@echo off
for /f "delims=" %%i in (t.txt) do (
  set "str=%%i"
echo %%i
  setlocal enabledelayedexpansion
  if "!str: =!"=="endif" set /a num+=1
  if !num!==1 if /i "!str: =!"=="endif" 　(
echo x = GetSysConfigOption(^)
echo Set obj = Nothing
)
endlocal
)

pause

[ Last edited by xing3019 on 2007-10-26 at 10:53 PM ]

2007-10-26 22:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
terse
银牌会员





积分 2404
发帖 946
注册 2005-9-8
状态 离线
『第 9 楼』:  



  Quote:
Originally posted by xing3019 at 2007-10-26 22:51:
ＯＫ
endlocal　需要，谢谢你了
我参照提示多加了１条

@echo off
for /f "delims=" %%i in (t.txt) do (
  set "str=%%i"
echo %%i
  setlocal enabledelayede ...

那样的话  第二个end if后面也ECHO？

2007-10-26 23:32
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『第 10 楼』:  

确实都+了，
但　略去 endlocal
显示时出现：已经达到最大的 setlocal 递归层。
>>到文件没出现：　已经达到最大的 setlocal 递归层。
什么原因？？？

2007-10-27 15:15
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 11 楼』:  

不用setlocal

改用call会不会好点？？

2007-10-27 16:17
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
terse
银牌会员





积分 2404
发帖 946
注册 2005-9-8
状态 离线
『第 12 楼』:  

@echo off
for /f "delims=" %%i in (t.txt) do (
echo %%i
  if "%%i"=="end if" call :stra
)
pause
goto :eof
:stra
set /a num+=1
if %num% equ 1 (echo x = GetSysConfigOption(^)
echo Set obj = Nothing
)

2007-10-27 20:57
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 13 楼』:  



  Quote:
Originally posted by terse at 2007-10-27 08:57 PM:
@echo off
for /f "delims=" %%i in (t.txt) do (
echo %%i
  if "%%i"=="end if" call :stra
)
pause
goto :eof
:stra
set /a num+=1
if %num% equ 1 (echo x = GetSysC ...

如果end if的前后都有空格呢？？

2007-10-27 21:13
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复
terse
银牌会员





积分 2404
发帖 946
注册 2005-9-8
状态 离线
『第 14 楼』:  



  Quote:
Originally posted by abcd at 2007-10-27 21:13:


如果end if的前后都有空格呢？？

那还是这样吧  if "!str: =!"=="endif"

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (t.txt) do (
echo %%i
  set "str=%%i"
  if "!str: =!"=="endif"  call :stra
)
pause
goto :eof
:stra
set /a num+=1
if !num! equ 1 (echo x = GetSysConfigOption(^)
echo Set obj = Nothing
)

[ Last edited by terse on 2007-10-28 at 12:20 AM ]

2007-10-27 21:15
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xing3019
初级用户





积分 33
发帖 13
注册 2007-10-26
状态 离线
『第 15 楼』:  

感谢大家的帮助.

2007-10-28 13:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023