中国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 ]