中国DOS联盟论坛 - Powered by Discuz! Board

标题: [已解决]如何读取文本内<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 ]