Question

vbs或者批处理文件生成对应的txt文件

等待用户输入变量，如6001,之后自动生成c:/111.txt，如已经存在自动覆盖，里面的内容是6001换行6002换行。。。6050,即输入的那个数开始，总共50个数字，每个一行。
fastslz 谢谢你，不过照你这样做成的批处理文件，如果原来有111.txt，没有把原来里面的内容清除掉。

能否最后一行不是回车，而是数字呢？

Answer 1

@echo off
set /p N=输入变量
if not defined N exit
set /a NN=N+49
if exist c:\111.txt del c:\111.txt
for /l %%i in (%N%,1,%NN%) do echo %%i>>c:\111.txt

rem 最后一行没有换行符
@echo off
set /p N=输入变量
if not defined N exit
set /a NN=N+49
if exist c:\111.txt del c:\111.txt
for /l %%i in (%N%,1,%NN%) do if "%%i"=="%NN%" (set /p =%%i<nul>>c:\111.txt) else (echo %%i>>c:\111.txt)

rem 倒数50，最后一行没有换行符
@echo off
set /p N=输入变量
if not defined N exit
set /a NN=N-49
if exist c:\111.txt del c:\111.txt
for /l %%i in (%N%,-1,%NN%) do if "%%i"=="%NN%" (set /p =%%i<nul>>c:\111.txt) else (echo %%i>>c:\111.txt)
pause

Answer 2

Dim n
n=0
n=InputBox ("输入数字","等待输入","6001")
If IsNumeric(n)Then
Call writetxt(n)
End If

Sub writetxt(n)
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Set txt=fso.CreateTextFile("c:\111.txt",true)
For i = 0 To 49
txt.WriteLine n+i
Next
End Sub