[已解决]批处理如何实现将指定txt文本里的前几行内容复制到剪贴板并从文本中删除

weichenxiehou · 发表于 2014-1-25 16:32:49

回复 15# pengyou86
说实话，用批处理操控剪切板还蛮麻烦的，遂用au3，本想编译成exe贴上来的，但是不能上传50K以上的文件。。。要用就qq联系我吧

Local $line,$s
For $i=1 To 48
$line=FileReadLine("1.txt",$i)
$s&=@CRLF & $line
Next
ClipPut($s)

复制代码

pengyou86 · 发表于 2014-1-25 16:54:22

回复 16# weichenxiehou

好的我申请加你的QQ了

Batcher · 发表于 2014-1-25 17:01:02

回复 16# weichenxiehou

Win7系统有clip命令

weichenxiehou · 发表于 2014-1-25 17:07:12

回复 18# Batcher
soga,我对批处理的探索和认识还停留在xp阶段。

CrLf · 发表于 2014-1-25 18:06:46

用 more 就好：

@more +48 1.txt

复制代码

pengyou86 · 发表于 2014-1-25 18:08:47

回复 20# CrLf

麻烦写个完整的吧我是个菜鸟谢谢

CrLf · 发表于 2014-1-25 18:29:06

回复 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 · 发表于 2014-1-25 18:40:11

来个ahk：

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

复制代码

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

simon4055 · 发表于 2014-1-25 20:43:37

这个好 mark一下留着用.
学习了..

terse · 发表于 2014-1-25 20:49:07

本帖最后由 terse 于 2014-1-25 20:53 编辑

纯P 环境 WIN7

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%i in (1.txt) do set /an+=1&if !n! leq 48 echo %%i)>$
clip<$
>$ more +48 1.txt
move $ 1.txt
pause

复制代码

@echo off&setlocal enabledelayedexpansion
del $* 2>nul
for /f "delims=" %%i in (1.txt) do set /an+=1&if !n! gtr 48 (>>$$ echo %%i)else >>$ echo %%i
clip<$&move $$ 1.txt >nul&del $*
pause

复制代码

pengyou86 · 发表于 2014-1-25 21:50:47

谢谢上面各位高手测试没有一个能用的

pengyou86 · 发表于 2014-1-25 21:53:00

麻烦高手再帮忙一下

PowerShell · 发表于 2014-1-25 22:01:46

1 14楼 ,我手误搞成38行了,抱歉.
2 [1.txt文本中去掉48行内容然后把剪切去掉48行的内容保存到剪切板就可以了] ----这句话如何理解?首先声明,我个人理解能力太差,但我认为你说的太渣!

这句话我理解为,把1.txt中从49行到文本文件末尾(1万多行)复制到剪贴板.但是原来楼主说的是把1---48行放入剪贴板,这是完全相反的,而且大家回的代码都是[取]1---48行,而不是[弃]!

pengyou86 · 发表于 2014-1-25 22:10:44

1 14楼 ,我手误搞成38行了,抱歉.
2 [1.txt文本中去掉48行内容然后把剪切去掉48行的内容保存到剪切 ...
PowerShell 发表于 2014-1-25 22:01

对我的描述可能有问题你说的对

CrLf · 发表于 2014-1-26 01:48:56

本帖最后由 CrLf 于 2014-1-26 02:39 编辑

是这意思吧：

@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
:*/

复制代码

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]批处理如何实现将指定txt文本里的前几行内容复制到剪贴板并从文本中删除

评分