中国DOS联盟

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

@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 ")
)
)
)

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

这样可以吗？

@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 ]

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! ") 不过这样做不成功，。希望大哥再帮忙修改一下，

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

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

@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! ")