中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 记事本的查找问题
‹ « [1] [2] »
作者:
标题: 记事本的查找问题 上一主题 | 下一主题
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 16 楼』:  

你是怎么改的？代码贴出来



2008-8-25 00:38
查看资料  发短消息 网志   编辑帖子  回复  引用回复
dragonamd
中级用户





积分 209
发帖 100
注册 2008-8-1
状态 离线
『第 17 楼』:  

@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('dir /b /tc /o-d /a *.txt') do (
  set NewFile=%%a
  goto :next
)
:next
for /f "usebackq delims=" %%i in ("%NewFile%") do (
  for %%j in (%%i) do (
    set str=%%j
    if "!str:~,1!"=="5" (
      set/a n+=1
      if !n! equ 1 echo %%j                    这2行能不能显示在同一行上
      if !n! equ 3 echo %%j&pause&exit   这2行能不能显示在同一行上
do mshta vbscript:createobject("wscript.shell").popup(" %ScdLine:~1,-1%  %%j ")
    )
  )
)

2008-8-25 01:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
dragonamd
中级用户





积分 209
发帖 100
注册 2008-8-1
状态 离线
『第 18 楼』:  

有人可否回答一下，。新手都没人指点吗

2008-8-25 18:36
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 19 楼』:  

这样可以吗？
@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('dir /b /tc /o-d /a *.txt') do (
  set NewFile=%%a
  goto :next
)
:next
set str=
for /f "usebackq delims=" %%i in ("%NewFile%") do (
  for %%j in (%%i) do (
    set str=%%j
    if "!str:~,1!"=="5" (
      set/a n+=1
      if !n! equ 1 set str=!str!%%j
      if !n! equ 3 set str=!str!&goto :end
    )
  )
)
goto :eof
:end
mshta vbscript:createobject("wscript.shell").popup(" %ScdLine:~1,-1%  !str! ")
不知道你的%ScdLine:~1,-1%从哪里来的，只好跟着你乱写了。

[ Last edited by HAT on 2008-8-26 at 12:35 AM ]



2008-8-25 19:35
查看资料  发短消息 网志   编辑帖子  回复  引用回复
dragonamd
中级用户





积分 209
发帖 100
注册 2008-8-1
状态 离线
『第 20 楼』:  

HAT大哥的代码多了一个DO，。呵呵，已经改好了，不过
@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('dir /b /tc /o-d /a *.txt') do (
  set NewFile=%%a
  goto :next
)
:next
set str=
for /f "usebackq delims=" %%i in ("%NewFile%") do (
  for %%j in (%%i) do (
    set str=%%j
    if "!str:~,1!"=="5" (
      set/a n+=1
      if !n! equ 1 set str=!str!%%j     
      if !n! equ 3 set str=!str!&goto :end
    )
  )
)
goto :eof
:end
mshta vbscript:createobject("wscript.shell").popup(" !str! !str! ")   
这样只能显示一个，上面的1和3能不能同时显示在popup(" !str! !str! ")   不过这样做不成功，。希望大哥再帮忙修改一下，

2008-8-26 00:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 21 楼』:  

为什么多了一个do呢？因为19楼的代码是从17楼拷贝的。
19楼已经更新，运行一下，结果贴出来看看。



2008-8-26 00:35
查看资料  发短消息 网志   编辑帖子  回复  引用回复
dragonamd
中级用户





积分 209
发帖 100
注册 2008-8-1
状态 离线
『第 22 楼』:  

是更新了，。但20楼的问题能解决吗？

2008-8-26 00:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 23 楼』:  


@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('dir /b /tc /o-d /a *.txt') do (
  set NewFile=%%a
  goto :next
)
:next
set str=
for /f "usebackq delims=" %%i in ("%NewFile%") do (
  for %%j in (%%i) do (
    set str=%%j
    if "!str:~,1!"=="5" (
      set/a n+=1
      if !n! equ 1 set str1=%%j
      if !n! equ 3 set str2=!str1!%%j&goto :end
    )
  )
)
goto :eof
:end
mshta vbscript:createobject("wscript.shell").popup(" !str2! !str2! ")




2008-8-26 00:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
‹ « [1] [2] »
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


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



论坛跳转:  



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

Sponsored by ifanr Inc | © 2001-2023