Board logo

标题: [求助]怎样在文件中插入文本 [打印本页]
作者: xing3019     时间: 2007-10-26 13:09    标题: [求助]怎样在文件中插入文本

有这样１个ＡＳＰ（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 ]
作者: xing3019     时间: 2007-10-26 19:50
谁能帮忙啊??
要搜索第一次 end if 后添加
x = GetSysConfigOption()
指定行数没用

[ Last edited by xing3019 on 2007-10-26 at 07:51 PM ]
作者: abcd     时间: 2007-10-26 20:05

@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
作者: xing3019     时间: 2007-10-26 22:13
谢谢

但是　

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 ]
作者: abcd     时间: 2007-10-26 22:20
不能处理asp中都<%  %>字符
作者: xing3019     时间: 2007-10-26 22:43
测试　<%  %>　没问题，可以复制下来
但是　

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

最后１个　)   有问题
出现错误：已经达到最大的 setlocal 递归层。
去掉  )  后不报错　，
if !num!==1 if /i "!str: =!"=="endif" echo x = GetSysConfigOption(
可是程序不完整
作者: terse     时间: 2007-10-26 22:43
略去 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 ]
作者: xing3019     时间: 2007-10-26 22:51
ＯＫ
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 ]
作者: terse     时间: 2007-10-26 23:32


  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？
作者: xing3019     时间: 2007-10-27 15:15
确实都+了，
但　略去 endlocal
显示时出现：已经达到最大的 setlocal 递归层。
>>到文件没出现：　已经达到最大的 setlocal 递归层。
什么原因？？？
作者: abcd     时间: 2007-10-27 16:17
不用setlocal

改用call会不会好点？？
作者: terse     时间: 2007-10-27 20:57
@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
)
作者: abcd     时间: 2007-10-27 21: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的前后都有空格呢？？
作者: terse     时间: 2007-10-27 21:15


  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 ]
作者: xing3019     时间: 2007-10-28 13:45
感谢大家的帮助.