批处理之家 - Powered by Discuz! Board

gawk -vFPAT="[0-9]" "{for(i=0;i++<NF;){a[NR,i]=$i}}END{for(i=4;++i<=NF;){for(j=i;j<=NF;j++){fn=sprintf(\"%06d.txt\",++n);print a[1,i-4]a[1,i-3]a[1,i-2]a[1,i-1]a[1,j]\"\n\"a[2,i-4] a[2,i-3] a[2,i-2] a[2,i-1] a[2,j]\"\n\">fn;close(fn)}}}" a.txt

复制代码

gawk -vFPAT="[0-9]" "{for(i=0;i++<NF;){a[NR,i]=$i}}END{for(i=4;++i<=NF;){for(j=i;j<=NF;j++){fn=sprintf(\"%06d.txt\",++n);print a[1,i-4]a[1,i-3]a[1,i-2]a[1,i-1]a[1,j]\"\n\"a[2,i-4] a[2,i-3] a[2,i-2] a[2,i-1] a[2,j]\"\n\">fn;close(fn)}}}" a.txt

复制代码

gawk -vFPAT="[0-9]" "{for(i=0;i++<NF;){a[NR,i]=$i}}END{for(i=4;++i<=NF;){for(j=i;j<=NF;j++){fn=sprintf(\"%%06d.txt\",++n);print a[1,i-4]a[1,i-3]a[1,i-2]a[1,i-1]a[1,j]\"\n\"a[2,i-4] a[2,i-3] a[2,i-2] a[2,i-1] a[2,j]\"\n\">fn;close(fn)}}}" a.txt

复制代码

$MyPath = $MyInvocation.MyCommand.Path -replace '\\[^\\]*$', '\'; #脚本自身路径
$srcFile = $MyPath + '1.txt'; #源文件
$dstFolder = $MyPath + 'result'; #目标目录
If (![IO.Directory]::Exists($dstFolder)){
$null = md $dstFolder;
}
Function Get-Combination($n, $m){
$key = 1;
$str = '1' * $m + '0' * ($n-$m); #11111000000000000000000000000000 共32位
$m = [regex]::Matches($str, '1');
$Hash.Add($key, $m.Index); #HashTable赋初始值
while ($str.IndexOf('10') -ge 0) {
$str = $str -replace '10(?>(0*))(?>(1*))$', '01$2$1'; #交换 10 <--> 01
$m = [regex]::Matches($str, '1');
$Hash.Add(++$key, $m.Index); #HashTable赋值
}
}
Function Set-ContentToFile($oDict){
forEach($key In $oDict.Keys){
$dstFile = $dstFolder + '\' + (''+$key).PadLeft(6, '0') + '.txt'; #目标文件名
[IO.File]::AppendAllText($dstFile, $oDict[$key], [Text.Encoding]::Default); #写入文件
}
}
$Hash = New-Object System.Collections.HashTable;
$n = 32; $m = 5; #32选5组合
Get-Combination $n $m #创建索引表，存放到$Hash中
$arr = [IO.File]::ReadAllLines($srcFile, [Text.Encoding]::Default); #读源文本
$dic = New-Object 'System.Collections.Generic.Dictionary[int, string]'; #字典，存放结果
$num = 0;
for($i=0; $i -lt $arr.Count; $i++){
$chr = [char[]]$arr[$i]; #转成字符数组
forEach( $key In $Hash.Keys ){ #遍历索引表
$s = '';
for ($j = 0; $j -lt $m; $j++){
$index = $Hash[$key][$j];
$s += $chr[$index];
}
If (!$dic.ContainsKey($key)) { $dic.Add($key, ''); }
$dic[$key] += $s + "`r`n"; #字典赋值
}
If (++$num % 2 -eq 0){ #每读取2行数据开始写入文件
Set-ContentToFile $dic;
$dic.Clear(); #清空字典
}
}
If ($dic.Count -gt 0){ #字典不为空，写入文件
Set-ContentToFile $dic;
}
echo 'DONE';
[Console]::ReadLine();

复制代码

@echo Off
md Result 2>nul
gawk "BEGIN{FS=\"\"}{n=0;for(i=1;i<=NF-4;i++)for(j=i+1;j<=NF-3;j++)for(k=j+1;k<=NF-2;k++)for(L=k+1;L<=NF-1;L++)for(m=L+1;m<=NF;m++){++n;a[n]=a[n]$i$j$k$L$m\"\n\"}}END{for(i=1;i<=length(a);i++){f=\"Result/\"substr(1000000+i,2)\".Log\";printf a[i]>f;close(f)}}" 1.txt
pause

复制代码

Dim myPath, srcFile, dstFolder
myPath = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName, "\")) '脚本所在路径
srcFile = myPath & "1.txt" '源文本文件
dstFolder = myPath & "result" '目标目录
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dstFolder) Then fso.CreateFolder(dstFolder) '创建目标目录
Dim c, objDic, objFile
c = 5 'N选5组合
Set objDic = CreateObject("Scripting.Dictionary") '字典，存放结果
Set objFile = fso.OpenTextFile(srcFile, 1) '打开源文本文件
While Not objFile.AtEndOfStream
Dim strLine
strLine = objFile.ReadLine '逐行读取源文件
GetCombination strLine '调用函数
Wend
objFile.Close
Dim dstFile, f
For Each key In objDic.Keys
dstFile = dstFolder & "\" & Right("000000" & key, 6) & ".txt" '目标文件名
Set f = fso.OpenTextFile(dstFile, 2, True)
f.Write(objDic.Item(key)) '写入目标文件
f.Close
Next
Function GetCombination(strLine)
Dim key, str, i
key = 1
str = ""
For i = 1 To Len(strLine) 'str赋值：11111000000000000000000000000000 共32位
If i <= c Then
str = str & "1"
Else
str = str & "0"
End If
Next
If Not objDic.Exists(key) Then objDic.Add key, ""
objDic.Item(key) = objDic.Item(key) & Left(strLine, c) & vbCrLf '字典，赋初始值
Dim reg
Set reg = New RegExp '创建正则表达式
reg.Pattern = "(1)(0)(?=(0*))\3(?=(1*))\4$"
While InStr(str, "10") > 0
Dim s
s = ""
str = reg.Replace(str, "$2$1$4$3") 'str值交换 10 <--> 01
For i = 1 To Len(str)
If Mid(str, i, 1) = "1" Then s = s & Mid(strLine, i, 1) '查找"1"与strLine对应的字符
If Len(s) = c Then Exit For '找到5个，退出For
Next
key = key + 1
If Not objDic.Exists(key) Then objDic.Add key, ""
objDic.Item(key) = objDic.Item(key) & s & vbCrLf '字典，赋值
Wend
End Function
MsgBox "Done"

复制代码

Dim myPath, srcFile, dstFolder
myPath = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName, "\")) '脚本所在路径
srcFile = myPath & "1.txt" '源文本文件
dstFolder = myPath & "result" '目标目录
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dstFolder) Then fso.CreateFolder(dstFolder) '创建目标目录
Dim c, objDic, objFile
c = 5 'N选5组合
Set objDic = CreateObject("Scripting.Dictionary") '字典，存放结果
Set objFile = fso.OpenTextFile(srcFile, 1) '打开源文件
Dim num, strLine
num = 0
While Not objFile.AtEndOfStream
num = num + 1
strLine = objFile.ReadLine '逐行读取源文件
GetCombination strLine, c, objDic '求组合
If num Mod 2 = 0 Then '每读取2行开始写入文件
SaveToFile objDic
objDic.RemoveAll '清空字典
End If
Wend
If objDic.Count > 0 Then SaveToFile objDic '字典不为空，写入文件
objFile.Close
Function SaveToFile(ByRef oDict)
Dim key, dstFile, f
For Each key In oDict.Keys
dstFile = dstFolder & "\" & Right("000000" & key, 6) & ".txt" '目标文件名
Set f = fso.OpenTextFile(dstFile, 8, True)
f.Write(oDict.Item(key)) '写入目标文件
f.Close
Next
End Function
Function GetCombination(ByRef strLine, c, ByRef oDict)
Dim key, str, i
key = 1
str = ""
For i = 1 To Len(strLine) 'str赋值：11111000000000000000000000000000 共32位
If i <= c Then
str = str & "1"
Else
str = str & "0"
End If
Next
If Not oDict.Exists(key) Then oDict.Add key, ""
oDict.Item(key) = oDict.Item(key) & Left(strLine, c) & vbCrLf '字典，赋初始值
Dim reg
Set reg = New RegExp '创建正则表达式
reg.Pattern = "10(?=(0*))\1(?=(1*))\2$"
While InStr(str, "10") > 0
Dim s
s = ""
str = reg.Replace(str, "01$2$1") 'str值交换 10 <--> 01
For i = 1 To Len(str)
If Mid(str, i, 1) = "1" Then s = s & Mid(strLine, i, 1) '查找"1"与strLine对应的字符
If Len(s) = c Then Exit For '找到5个，退出For
Next
key = key + 1
If Not oDict.Exists(key) Then oDict.Add key, ""
oDict.Item(key) = oDict.Item(key) & s & vbCrLf '字典，赋值
Wend
End Function
MsgBox "Done"

复制代码