求教：如何替换每行中偶数位置的字符串

rzhang168

有个档案，要加上一些标签，为了便于处理，将所有的标签都输入成了 "<tag>"格式，现在想将偶数位置的标签替换成"</tag>"请问可以做到吗？
例如:
The <u>heading<u>, <u>inside address<u>, <u>greeting<u>, <u>body<u>, <u>complimentary closing<u> and <u>signature<u>.

替换成
The <u>heading</u>, <u>inside address</u>, <u>greeting</u>, <u>body</u>, <u>complimentary closing</u> and <u>signature</u>.

rzhang168

我搜到了这个资料，但我修改不好，哪位达人帮帮我，谢谢
http://www.cn-dos.net/forum/view ... =%E5%81%B6%E6%95%B0

a.txt
aaaaaaaaaaaaa
输出为
ababababababab
即 把所有在偶数位置的a换成b~
code 01:
echo off&setlocal enabledelayedexpansion
set n=-2&set b=b
:begin
set /a n+=2
for /f "delims=" %%i in (a.txt) do (
    set a=%%i&set a=!a:~%n%!
    if "!a:~1!"=="" set "b="
    if not "!a!"=="" (
       set str=!a:~,1!
       set var=!var!!str!!b!
       goto begin
    )
    echo !var!
)
pause>nul&goto :eof

code 02:
@echo off
for /f "delims=" %%a in (a.txt) do (
  set str=%%a&set "num="
  call :loop
)
pause
:loop
set num=%num%%str:~0,1%b
set str=%str:~2%
if not defined str echo %num%&goto :eof
goto loop

可怎么修改才能使用我的要求呢？

rzhang168

这个问题我用Foxpro 解决了，导入Foxpro 的memo字段，然后根据 mline 取每行，再用 strtran(), occurs(), mod() 即可。
没办法，shell 脚本对我来说太难了，只会基本的，最简单的。这个问题放这里大家研究吧！
谢谢这个论坛，让我学习了很多知识

yinyuemi

回复 1# rzhang168

1. awk -vRS='<u>' 'ORS=(++i%2?RT:gensub("<","</",1,RT))'' file

复制代码

rzhang168

回复 4# yinyuemi


    謝謝yinyuemi的解答，多了一個“ ‘ ”,結果正確，但是最後的句號 " . " 丟失了。

jiejie455

sed 's@<u>\([^<]*\)<u>@<u>\1</u>@g' data

rzhang168

回复 6# jiejie455


    呵呵，謝謝幫忙，結果完全正確！sed 裏面 "@" 看著好高深啊，路漫漫其修遠兮，吾將上下而求索！

yinyuemi

回复 5# rzhang168

1. awk -vRS='<u>' '(ORS=(++i%2?RT:gensub("<","</",1,RT)))||1'

复制代码

rzhang168

回复 8# yinyuemi


    謝謝，經測試，這回完全正確了。

Shell_HAT

回复 7# rzhang168


只是把s///结构中的/改成了@而已