[文本处理] [已解决]批处理怎样实现变量扩充文字？

<!-- :
@echo off
mshta "%~f0" <a.txt >b.txt
pause & exit /b
-->

<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script src=http://www.bathome.net/lib/diy/VBScript.js></script>

<script>
WSH.StdIn.ReadAll().replace(
	/(\S+)\s+(\d+)/gm,
	function($0,$1,$2){
		WSH.Echo(VBScript.String($2,$1))
		return ''
	}
)
</script>
复制代码

@echo off
setlocal enabledelayedexpansion
>b.txt (for /f "tokens=1,2" %%a in (a.txt) do (
   for /l %%i in (0,1,%%b) do set #=!#!%%a
   echo,!#!&set #=
   ))
pause
复制代码

Dim fso,File1,File2,MyArr,s
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1= fso.OpenTextFile(".\测试.txt", 1 , True)
Set File2 = fso.CreateTextFile(".\结果.txt", 2 ,False)
Do While File1.AtEndOfStream <> True
str=Replace(File1.ReadLine,Chr(9)," ")
MyArr = Split(str)
s=""
for i=1 to MyArr(1)
s=s&MyArr(0)
Next
File2.WriteLine s
loop
File1.Close
File2.Close
MsgBox "完成！"
复制代码

$text = Get-Content ".\A.txt"
foreach ($line in $text) {
   $arr = $line -split "`t"
   $arr[0]*$arr[1]
}
复制代码

<!-- :
@echo off
mshta "%~f0"
gawk "{s=\"\";for(i=1;i<=$2;i++)s=(s\"\"$1);print s}" "测试.txt">"结果.txt"
::自行下载地址http://batch-cn.qiniudn.com/tool/gawk.exe
pause
-->

<script src=http://bbs.bathome.net/lib/diy/hide.js></script>
<script src=http://bbs.bathome.net/lib/diy/Tools.js></script>
<script>Tools.get('gawk')</script>
复制代码

@echo off
(for /f "tokens=1,2" %%a in (测试.txt) do (
for /l %%i in (1,1,%%b) do set /p=%%a
echo,))<nul>"结果.txt"
pause
复制代码