Board logo

标题: [已解决]如何读取文本内<a>至<a/> 之间的字符串? [打印本页]

作者: huzixuan     时间: 2007-3-30 02:41    标题: [已解决]如何读取文本内<a>至<a/> 之间的字符串?
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 ]

作者: vkill     时间: 2007-3-30 04:51
搜索

作者: huzixuan     时间: 2007-3-30 08:12
搜索了一下,有很多.但却没发现我这样的情况
文本内容如下:

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

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

作者: flyinspace     时间: 2007-3-30 15:02
两天之内如果我看到了你的回复。

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

作者: slore     时间: 2007-3-31 04:33
<a/>换成<a>然后split就完了

作者: jmz573515     时间: 2007-3-31 05:35
slore
好办法!

作者: huzixuan     时间: 2007-3-31 06:36
饿,你好 flyinspace 兄,我回复了.
你在吗?
谢谢帖上代码,感谢

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

作者: flyinspace     时间: 2007-3-31 08:42
@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

作者: flyinspace     时间: 2007-4-1 07:39
代码不是不可以给出里面的读数。。

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

要不。代码会更复杂的。

作者: tclgb     时间: 2007-7-8 02:39
综合各位兄弟的思想,我对代码进行了一些改变,不受!&"等字符的限制


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