[文本处理] 批处理生成一个数组。求帮助批改

' & cls & cscript /nologo /e:vbs "%~f0" >1.csv & pause & exit

H = 500    '输入行数
L = 60     '输入列数
begin = Timer()
ReDim arr1(L - 1), arr2(H - 1)
For j = 1 To H
    For i = j To j + L - 1
        arr1(i - j) = i
    Next
    arr2(j - 1) = Join(arr1, ",")
Next
s = Join(arr2, vbCrLf)
finish = Timer()
WScript.Echo finish - begin & "秒"
WScript.Echo s
复制代码

#@&cls&powershell -sta "gc '%~f0'|out-string|iex"&pause&exit
$csvFileName = "1.csv"
$numberOfRows = 1000000
$numberOfColumns = 5000

$csharpCode = @"
using System.IO;
using System.Text;
public static class GenerateCSV {
    public static void GenerateCSVFile(string fileName, int numberOfRows, int numberOfColumns) {
        using (var streamWriter = new StreamWriter(fileName, false, Encoding.UTF8)) {
            for (int row = 1; row <= numberOfRows; row++) {
                StringBuilder lineBuilder = new StringBuilder();
                for (int col = row; col < row + numberOfColumns; col++) {
                    if (col > row) {
                        lineBuilder.Append(",");
                    }
                    lineBuilder.Append(col.ToString());
                }
                streamWriter.WriteLine(lineBuilder.ToString());
            }
        }
    }
}
"@

Add-Type -TypeDefinition $csharpCode -Language CSharp
[GenerateCSV]::GenerateCSVFile($csvFileName, $numberOfRows, $numberOfColumns)
Write-Host "$csvFileName OK"
复制代码

@echo off&setlocal enabledelayedexpansion
del /q 3*.*>nul 2>nul
set /p hs=---行数---》
set /p ls=---列数---》
for /l %%i in (1,1,%hs%) do (
  set /a js=%%i+%ls%-1
  for /l %%j in (%%i,1,!js!) do (
     echo %%j,
     )>>33.html
    echo ^<br^>>>33.html
 echo %%i|findstr /e "00"&&htox32c /IP /S1 /O0 33.html&&type 33.txt>>结果.txt&&del /q 3*.*>nul
  )
 if exist 33.html htox32c /IP /S1 /O0 33.html&&type 33.txt>>结果.txt&&del /q 3*.*>nul
pause
复制代码

@echo off&setlocal enabledelayedexpansion
set /a rows=100,cols=5000
(for /l %%i in (1,1,%rows%) do (
     for /l %%j in (%%i,1,!cols!) do set/p=%%j,<nul
     echo;
     set /a cols+=1
))>2.csv
pause
复制代码