CrLf

用 more 就好：

@more +48 1.txt
复制代码

CrLf

回复 21# pengyou86


有clip命令的话可以如此：

@more +48 1.txt|clip
复制代码

xp可以如此（借鉴demon的vbs方案）：

@set @n=0;//&goto bat
var Form = new ActiveXObject('Forms.Form.1')
with(Form.Controls.Add("Forms.TextBox.1").Object)
{
	MultiLine = true
	Text = WScript.StdIn.ReadAll()
	SelStart = 0
	SelLength = TextLength
	Copy()
}

/*
:bat
@more +48 1.txt|cscript -e:jscript %0
pause
:*/
复制代码

CrLf

来个ahk：

text := ""
Loop, Read, 1.txt
   if (A_Index>48)
      text := text A_LoopReadLine "`r`n"

clipboard := text
return
复制代码

au3 和 ahk 处理人机交互真给力

CrLf

是这意思吧：

@set @n=0;//&goto bat
var Form,i,str=''
for(i=0;i<3;i++)str+=WSH.StdIn.ReadLine()+'\r\n'
with(new ActiveXObject('Forms.Form.1').Controls.Add("Forms.TextBox.1").Object)
{
        MultiLine = true
        Text = str
        SelStart = 0
        SelLength = TextLength
        Copy()
}
WSH.Echo(WSH.StdIn.ReadAll())

/*
:bat
@<1.txt cscript -nologo -e:jscript %0|sort /+9999|sort /+9999 /o 1.txt
pause
:*/
复制代码

要求有变动最好也能更新到顶楼

CrLf

回复 32# pengyou86


    已修改