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

ohoh

目的，根据输入的行数和列数，生成一个csv表格。如3行4列，结果：
1,2,3,4
2,3,4,5
3,4,5,6
希望生成的行100万，列5000。我尝试的代码：
@echo off
echo 输入行数
set /p hall=
echo 输入列数
set /p lall=
set /a hnum=1
set /a tem=0
set hchart=0

:st

if %hnum% leq %hall% ( goto addhang
                      :write
                      echo %lnum% >> 1.csv
                      echo 完成写入第%hnum% 行
                      set /a hnum=%hnum%+1
                      goto st
)

pause
exit

:addhang

echo 开始写入%hnum%整行
set  lnum=%hnum%
set ltemp=1

:addh2

set hchart=%lnum%,
if %ltemp% lss %lall% ( set hchart=%lnum%,
                        set /a lnum=%lnum%+1
                        set /a ltemp=%ltemp%+1
                        set /p =%hchart%<nul >> 1.csv
                        goto addh2
)
goto write

尝试可以正常运行，但是速度相当的慢。也就是效率很低。
第一个问题，如何修改以便提升效率，
第二个问题，set hchart=%lnum%,，为什么一定要放在外面，放在if后就会出现得出这样的结果
1,2,4
3,2,3,5
4,3,4,6

新手拜大神们解惑。

hlzj88

for /l %%j in (%%i,1,!cols!) do set/p=%%j,<nul
复制代码

这个语句，我一直理解的是 会产生 3  2  1 的效果，而不是 1  2  3的效果，实例证明我理解有问题。

77七

回复 15# terse


   谢谢大佬指教！学习了！

terse

回复 13# 77七

ste /p

@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
复制代码

qixiaobin0715

回复 13# 77七
用变量的话，字符数有限制，大概是8千多，只能考虑多个变量拼接，太复杂，效率成问题。

77七

回复 11# terse

大佬，请教一下，两个for是如何实现的呢，我试过5000个数合成一行，超长了，好像只显示到1800左右，越往下越短

hlzj88

回复 11# terse


    主要是估计要把5000个数合成一行，用set要循环次数太多，感觉这样会效率高些。倒是没有试过一直set的效率。

terse

回复 10# hlzj88
这个纯P方法 还不如两个FOR来得直接；用FINDSTR就已经很吃力了 还要第三方再处理

hlzj88

@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
复制代码

贴这个，不代表速度，只说明一个方法。
多次使用hto32c，是怕文件太大，不可以处理。

ohoh

回复 7# buyiyang


    感谢，使用你的方法，已解决问题。

ohoh

回复 3# Batcher


    自细学习了，虽然还是不太明白，不过知道了使用  setloacl ENABLEDELAYEDEXPANSION 这个命令来启用"延迟环境变量扩展"，变量格式用!name!替换%name%，就可以在嵌套里正常给变量赋值了。

buyiyang

bat

#@&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"
复制代码

czjt1234

' & 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
复制代码

自己修改行数

qixiaobin0715

5000列？恐怕已超出批处理变量的长度限制。可考虑用其它脚本。

czjt1234

echo %lnum% >> 1.csv

每次该命令都会执行一次写硬盘操作，当然慢了
全部或部分写入内存，然后写入硬盘