联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do set str=%%i&set var=&call :lp
pause>nul&goto :eof
:lp
if "!str:~,1!!str:~5,1!"=="<>" (
for /f "tokens=2 delims= " %%i in ('findstr "!str:~,6!" b.txt') do set a=%%i
set str=!str:~6!
) else (
set a=!str:~,1!&set str=!str:~1!
)
set var=!var!!a!
if defined str goto lp
echo !var!
@echo off
for /f "tokens=1,2" %%a in ('findstr .* "C:\test\b.txt"') do (
change.exe "C:\test\a.txt" /from "%%a" /to "%%b"
)
Originally posted by zw19750516 at 2008-5-27 05:27 PM:
注：a.txt为要转换的文本，b.txt为对照表文本。
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do set str=%%i&set var=&call ...
Originally posted by xipx at 2008-5-27 18:05:
谢谢！
拜托大侠能写个注释吗？我昨天才刚认识批处理，还不是太熟悉，想通过这些个对我有用的实例来学习:D
Originally posted by zw19750516 at 2008-5-27 08:49 PM:
@echo off&setlocal enabledelayedexpansion
此句为关闭所有回显然后开启变量延迟。
for /f "delims=" %%i in (a.txt) do set str=%%i&set var=&call : ...
#! perl -w
use strict;
use warnings;
open IN,'bianma.txt';
my $hash;
while(my $line=<IN>){
next if $line =~ m/^\s*$/;
chomp $line;
my @tarr=split(/\s+/,$line);
$hash->{$tarr}=$tarr;
}
open IN2,'myfile.txt';
while(my $line=<IN2>){
$line =~ s/<{4}>/$hash->{$&}/g;
print $line;
}
close IN; close IN2;| 评分人 | 分数 | 时间 |
|---|---|---|
| bat-zw | +5 | 2008-05-28 10:02 |
Originally posted by slore at 2008-5-27 11:25 PM:
6千……多……还是VBS快些=。=
Originally posted by lxmxn at 2008-5-28 03:08 AM:
试着用 Perl 写了一个，有 Perl 环境的话可以试试：
#! perl -w
use strict;
use warnings;
open IN,'bianma.txt';
my $hash;
while(my $line=<IN>{
next if $l ...
Originally posted by pusofalse at 2008-5-28 03:52 AM:
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
set str=%%a
call :lp
)
pause>nul&goto :eof
:lp
for /f "tokens=1,2" %%a in ...
Originally posted by pusofalse at 2008-5-28 03:52:
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
set str=%%a
call :lp
)
pause>nul&goto :eof
:lp
for /f "tokens=1,2" %%a in ...
