my $raw = '{1., 352400.11}, {9., 348500.91}, {15., 349000.76}, {21., 348800.83}, {29., 330900.75}, {37., 327100.03}, {45., 328300.43}, {49., 321300.33}, {51., 322500.64}, {62., 306700.}, {74., 314600.}';
my @d = eval "($raw)"=~tr/{}/[]/r;
printf "data 1: %s\n", join( ", ", map { sprintf "%d -> %d", $_+1, $d[$_][0] } ( 0 .. $#d) );
printf "data 2: %s\n", join( ", ", map { sprintf "%d -> %d", $_+1, $d[$_][1] } ( 0 .. $#d) );
复制代码

//分割数据.js//操作：拖入数据文本文件
//有多项，每项用{}括起，项间逗号分隔。每项中有两个数据，数据间也是逗号分隔。
DataFile=WScript.Arguments(0);

Stream = new ActiveXObject("ADODB.Stream");	//打开文件，逐个读取字符并判断
Stream.Type=2;	//类型1是二进制，2是文本
Stream.Charset = "GBK";
Stream.Open;
Stream.LoadFromFile(DataFile);

var tstr='',iflag=n=0;
var first=[],second=[];	//定义数组，用于存放两组数值
while(!Stream.EOS){
	Rchar=Stream.ReadText(1);
	tstr+=Rchar;
	if(iflag){
		if(Rchar=='}'){	//结束一条，同时是第二个数据
			iflag=0;second[n]=parseInt(tstr);	//parseInt(tstr)会去除末尾非数字部分
		}else if(Rchar==','){	//{第一个数据/逗号}
			first[n]=parseInt(tstr);tstr='';
		}
	}else if(Rchar=='{'){	//开始一条
		iflag=1;tstr='';n++;
	}
}
Stream.Close;

group1=group2='';
for(i=1;i<n;i++){
	group1+=i+' -> '+first[i]+', ';		//一组：1 -> 1, 2 -> 9,
	group2+=i+' -> '+second[i]+', ';	//二组：1 -> 352400, 2 -> 348500,
}
group1+=n+' -> '+first[n];
group2+=n+' -> '+second[n];
WSH.Echo('数据一\n'+group1+'\n\n数据二\n'+group2);
复制代码

#&cls&powershell "iex(gc '%~0'|out-string)"&exit\b
$a="{1., 352400.11}, {9., 348500.91}, {15., 349000.76}, {21., 348800.83}, {29., 330900.75}, {37., 327100.03}, {45., 328300.43}, {49., 321300.33}, {51., 322500.64}, {62., 306700.}, {74., 314600.}"
$one=[regex]::matches($a,'(?<=\{)\d+(?=\.)').value
$two=[regex]::matches($a,'(?<=\s)\d+(?=\.)').value
(1..$one.count|%{"$_->"+$one[$_-1]}) -join ","
(1..$two.count|%{"$_->"+$two[$_-1]}) -join ","
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set "str={1., 352400.11}, {9., 348500.91}, {15., 349000.76}, {21., 348800.83}, {29., 330900.75}, {37., 327100.03}, {45., 328300.43}, {49., 321300.33}, {51., 322500.64}, {62., 306700.}, {74., 314600.}"
set str=%str:{=%
set str=%str:}=%
set /a l=m=n=1
for %%a in (%str%) do ( 
  set /a odd=l%%2
  set /a l+=1
  for /f "delims=." %%i in ("%%a") do (
    if !odd!==1 (
      set "line1=!line1! !m! -> %%i,"
      set /a m+=1
    ) else (
      set "line2=!line2! !n! -> %%i,"
      set /a n+=1
    )
  )
)
echo;!line1!
echo;!line2!
pause>nul
复制代码