中国DOS联盟

VBS以及批处理
如何读取文本内<a>至<a/> 之间的字符串?
两种皆可.谢谢
附件在下面
a.txt
感谢 flyinspace 兄提供的代码,遗憾就是不能准确读取 <a>至<a/> 之间的字符串.
namejm 斑竹也给出了代码,感谢 斑竹 感谢 flyinspace .



@echo off
:: 要求test.txt中的字符串不能出现空格，没有感叹号、引号

setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (
set "str=%%i"
set "str=!str:<a>=☆!"
if not "!str!"=="%%i" call :pickup
)

pause
exit
:pickup
for /f "tokens=1* delims=☆" %%i in ("%str%") do (

set "var=%%i"
set "str=%%j"
set "var=!var:</a>=★!"
if "!var!"=="%%i" (
goto pickup
) else (
set "var=!var:★=!"
for /f %%x in ("!var!") do set/p= "%%x"<nul
)
if defined str goto pickup
echo.
)
goto :eof

Last edited by huzixuan on 2007-3-31 at 10:02 PM ]

搜索

搜索了一下,有很多.但却没发现我这样的情况
文本内容如下:

sa<a>1<a/>sadsa<a>1<a/>sadsa<a>1<a/>sadsa<a>1<a/>sad
da<a>2<a/>sad

位置不固定,我想用 tokens 提取部分都不知道 如何下手

两天之内如果我看到了你的回复。

就给你代码。
呵呵。花了我30分钟才搞定郁闷死了。

<a/>换成<a>然后split就完了

slore
好办法！

饿,你好 flyinspace 兄,我回复了.
你在吗?
谢谢帖上代码,感谢

Last edited by huzixuan on 2007-3-31 at 07:50 AM ]

@echo off & SETLOCAL EnableDelayedExpansion

set _TxtFile=1.txt
set _OutFile=2.txt
set _GetLine=init
set _GetChar=init

:main
for /f "Tokens=* " %%i in (%_TxtFile%) do (
set _GetLine=%%i
call :READINFILE
echo ^<!_OutLine!^>
)
goto :END
:READINFILE
set ReadFlag=true
for /l %%i in (0,1,255) do (
set _GetChar=!_GetLine:~%%i,1!
if "!_GetChar!"=="" goto :EOF
if "!_GetChar!"=="<" set ReadFlag=false
if "!ReadFlag!"=="true" set _OutLine=!_OutLine!!_GetChar!
if "!_GetChar!"==">" set ReadFlag=true

)
goto :EOF
:END

pause

代码不是不可以给出里面的读数。。

只是因为你的要求简单。。

要不。代码会更复杂的。

综合各位兄弟的思想,我对代码进行了一些改变,不受!&"等字符的限制

@echo off & SETLOCAL EnableDelayedExpansion



set _TxtFile=a.txt

set _OutFile=2.txt

set _GetLine=

set _GetChar=



:main

        if exist %_OutFile% copy %_OutFile% %_OutFile%.bak & del /q /f %_OutFile%

        fsutil file Createnew %_OutFile% 0

        for /f "Tokens=* " %%i in (%_TxtFile%) do (

                set "_GetLine=%%i"

                set "_OutLine="

                set "_GetLine=!_GetLine:<a>=☆!"

                set "_GetLine=!_GetLine:<a/>=★!"

                call :READINFILE

                echo !_OutLine! >>%_OutFile%

                )

goto :END

:READINFILE

set ReadFlag=false

        for /l %%i in (0,1,255) do (

                set _GetChar=!_GetLine:~%%i,1!

                if "!_GetChar!"=="" goto :EOF

                if "!_GetChar!"=="★" set ReadFlag=false

                if "!ReadFlag!"=="true" set _OutLine=!_OutLine!!_GetChar!

                if "!_GetChar!"=="☆" set ReadFlag=true

                )

        goto :EOF

:END

Last edited by tclgb on 2007-7-13 at 01:11 AM ]