[文本处理] 请教两个文本合拼 实现结果文本交替内容效果批处理

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (a.txt) do (
    set /p b=
    echo %%a
    echo !b!
))<b.txt>c.txt
复制代码

@Powershell "& {[ScriptBlock]::Create("'#' + (gc '%~f0' -raw)").Invoke()}" & pause & goto :eof 
$file1 =  ([System.IO.FileInfo]".\a.txt").OpenText()
$file2 =  ([System.IO.FileInfo]".\b.txt").OpenText()
while(($file1.Peek() -ne -1) -or ($file2.Peek() -ne -1)){
if($file1.Peek() -ne -1){Add-Content -Value $file1.ReadLine() -Path .\c.txt}
if($file2.Peek() -ne -1){Add-Content -Value $file2.ReadLine() -Path .\c.txt }
}
$file1.Close();$file2.Close()
复制代码

@Powershell "& {[ScriptBlock]::Create("'#' + (gc '%~f0' -raw)").Invoke()}" & pause & goto :eof
$text_A = type a.txt -ReadCount 0;
$text_B = type b.txt -ReadCount 0;

$count_a, $count_b = $text_A.Count, $text_B.Count;
$count = $count_a + $count_b;

[System.Collections.ArrayList] $result = @();

$counter_a, $counter_b = 0, 0;
for($i=0;$i -lt $count;$i++)
{
    #如果A文本读完,只处理B
    if($counter_a -eq $count_a) { [void] $result.Add($text_B[$counter_B++]); }

    #如果B文本读完,只处理A
    elseif($counter_b -eq $count_b) { [void] $result.Add($text_A[$counter_a++]); }

    #如果A,B都未完,下标为偶数时,加入A元素;下标为奇数时,加入B元素
    else {
        if($i%2 -eq 0) {[void] $result.Add($text_A[$counter_a++]); }
        else {[void] $result.Add($text_B[$counter_b++]); }  
    }
}

#输出结果 
[io.file]::WriteAllLines('结果.txt',$result,[text.encoding]::Default);
复制代码

use File::Slurp;
use List::MoreUtils qw/pairwise/;
my @a = grep { chomp } read_file("a.txt");
my @b = grep { chomp } read_file("b.txt");
my @c = pairwise { $a, $b } @a, @b;
grep { printf "%2d %s\n", $_+1, $c[$_]  } 0..$#c;
复制代码

 1 A
 2 B
 3 A1
 4 B1
 5 A2
 6 B2
 7 
 8 B3
 9 
10 B4
复制代码

$a = gc a.txt -Readcount 0; $b = gc b.txt -Readcount 0;
$arr = @(); $count = $a.count;
if ( $b.count -gt $a.count ) { $count = $b.count };
for ( $i=0; $i -lt $count; $i++ ) { $arr += $a[$i]; $arr += $b[$i] };
$arr>c.log;
复制代码

busybox paste -d\n a.txt b.txt
复制代码

gawk "{if(FNR==NR)a[2*FNR-1]=$0;else a[2*FNR]=$0}END{for(i=1;i<=length(a);i++)print a[i]}" a.txt b.txt > c.txt
复制代码

gawk "{a[FNR]=$0\"\n\"a[FNR]}END{for(i=1;i<=length(a);i++)printf a[i]}" b.txt a.txt
复制代码