中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 Bash 上传 统计
中国DOS联盟论坛
现在时间是 2026-06-19 06:42
欢迎新会员 homebai　 RSS
共 47,998 篇主题 / 350,071 篇帖子 / 今日 0 篇 / 48,212 位会员
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]怎样在文件中插入文本 查看 927　回复 14
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 [求助]怎样在文件中插入文本 发表于 2007-10-26 13:09　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
有这样１个ＡＳＰ（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 ]
第 2 楼 发表于 2007-10-26 19:50　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
谁能帮忙啊??
要搜索第一次 end if 后添加
x = GetSysConfigOption()
指定行数没用

[ Last edited by xing3019 on 2007-10-26 at 07:51 PM ]
第 3 楼 发表于 2007-10-26 20:05　·　 中国 天津 电信
abcd
银牌会员
★★★
积分 1,436
发帖 739
注册 2007-10-11 17:44
UID 99469
性别 男
状态 离线
@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
第 4 楼 发表于 2007-10-26 22:13　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
谢谢

但是　

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 ]
第 5 楼 发表于 2007-10-26 22:20　·　 中国 天津 电信
abcd
银牌会员
★★★
积分 1,436
发帖 739
注册 2007-10-11 17:44
UID 99469
性别 男
状态 离线
不能处理asp中都<% %>字符
第 6 楼 发表于 2007-10-26 22:43　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
测试　<% %>　没问题，可以复制下来
但是　

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

最后１个　) 有问题
出现错误：已经达到最大的 setlocal 递归层。
去掉 ) 后不报错　，
if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption(
可是程序不完整
第 7 楼 发表于 2007-10-26 22:43　·　 中国 江苏 常州 溧阳市 电信
terse
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
UID 42345
状态 离线
略去 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 ]
第 8 楼 发表于 2007-10-26 22:51　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
ＯＫ
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 ]
第 9 楼 发表于 2007-10-26 23:32　·　 中国 江苏 常州 溧阳市 电信
terse
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
UID 42345
状态 离线
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？
第 10 楼 发表于 2007-10-27 15:15　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
确实都+了，
但　略去 endlocal
显示时出现：已经达到最大的 setlocal 递归层。
>>到文件没出现：　已经达到最大的 setlocal 递归层。
什么原因？？？
第 11 楼 发表于 2007-10-27 16:17　·　 中国 天津 电信
abcd
银牌会员
★★★
积分 1,436
发帖 739
注册 2007-10-11 17:44
UID 99469
性别 男
状态 离线
不用setlocal

改用call会不会好点？？
第 12 楼 发表于 2007-10-27 20:57　·　 中国 江苏 常州 电信
terse
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
UID 42345
状态 离线
@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
)
第 13 楼 发表于 2007-10-27 21:13　·　 中国 香港 腾讯云
abcd
银牌会员
★★★
积分 1,436
发帖 739
注册 2007-10-11 17:44
UID 99469
性别 男
状态 离线
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的前后都有空格呢？？
第 14 楼 发表于 2007-10-27 21:15　·　 中国 江苏 常州 电信
terse
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
UID 42345
状态 离线
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 ]
第 15 楼 发表于 2007-10-28 13:45　·　 中国 湖南 常德 石门县 电信
xing3019
初级用户
★
积分 33
发帖 13
注册 2007-10-26 11:58
UID 100828
性别 男
状态 离线
感谢大家的帮助.
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023