[问题求助] [已解决]求VBS代码实现自动将不同剪切板内容，按每次[空行]复制到1个txt文档？

1139054012

能加个判断条件吗？
判断有日文的上面1行是空号，有日文的下面中文的不空行呢？
比如复制剪切板到TXT的内容是：

「その凶悪なる力を行使して、あたしたちを無理矢理授業や、部活や、テストに追い立てるのよ…」
「行使那個凶惡的力量、硬授課我們、社團活動、趕走在(到)試驗喲…」
「行使那凶惡的能力，強迫課、部活、測試攆走我們…」
「那個凶惡的力量行使，把我們強行上課，社團活動和、測試趕走。…」
复制代码

我想要的格式是：

「そう見えるけど…あいつは人間じゃない…」
「那樣能看見…那傢伙不是人類…」
「雖然看上去是那樣…那家夥不是人類…」

「その凶悪なる力を行使して、あたしたちを無理矢理授業や、部活や、テストに追い立てるのよ…」
「行使那個凶惡的力量、硬授課我們、社團活動、趕走在(到)試驗喲…」
「行使那凶惡的能力，強迫課、部活、測試攆走我們…」
「那個凶惡的力量行使，把我們強行上課，社團活動和、測試趕走。…」
复制代码

也就是判断有日文上面空行，下面的不空行呢？
有没大神能够帮忙

如果vbs代码无法实现，求ahk代码？

ygqiang

回复  1139054012
pcl_test 发表于 2015-5-21 12:53

    多谢。你这个代码。。

能否智能判断，

如果是复制的文字内容。。。就继续操作。
如果是复制rar或者别的扩展名的文件，就放弃操作。。。

ygqiang

回复  ygqiang

版本太老，使用这个版本封包。下载新版本封包
1139054012 发表于 2015-5-22 14:10

多谢。。。代码可用。。。
但是如果只想：复制某个rar文件，就不好用了。。
只能限制复制文字。。。

1139054012

回复 14# ygqiang

版本太老，使用这个版本封包。下载新版本封包
http://www.bego.cc/file/95689399
http://www.bego.cc/file/95689402

ygqiang

回复  1139054012
pcl_test 发表于 2015-5-21 12:53

    这个代码，编译有问题？谢谢

http://www.appinn.com/autohotkey-all-in-one/
从这里下载的编译器。。
http://pan.baidu.com/share/link?shareid=75383&uk=4010168515

pcl_test

回复 12# 1139054012

已修改，按下Ctrl+C触发脚本开启自动保存，按 Win+Esc 退出脚本

1139054012

回复 11# pcl_test


   谢谢，虽然满足可了我的要求,= =||但怎么必须手动Ctrl+C的才能导出TXT文档，OTL.不能自动将剪切板的内容导出TXT和右键复制能直接导出TXT，请问能不能修改下代码，让它不是固定必须手动Ctrl+C才能，自动将剪切板导出TXT文档呢？

当前代码条件不变：
去除每次变更剪切板内容时去除重复行和空行,每次变更默认空2行、

pcl_test

回复 10# 1139054012

#SingleInstance force
;按下Ctrl+C触发脚本开启自动保存，按 Win+Esc 退出脚本
~^c::
loop{
	clipwait

loop
{
    StringReplace, clipboard, clipboard, `r`n`r`n, `r`n, UseErrorLevel
    if ErrorLevel = 0
        break
}

text := f(clipboard)
f(a,d:="`r`n"){
	a:=strsplit(a,d)
	b:={}
	c:=""
	for _,v in a
		if b[v]
			continue
		else
			b[v]:=true
			,c.=v d
	return c
}
text := trim(text," `t`r`n")
FileAppend,%text%`r`n`r`n`r`n, 另存路径.txt, UTF-8
clipBoard =
}
~#ESC::ExitApp
复制代码

1139054012

回复 7# 1139054012


      感谢，是我的疏忽，一直使用旧版本都没更新。使用新版本打包能成功使用。

请问这代码只能手动复制，才能导出TXT。能像之前的代码，不用手动复制，默认自动将【剪切板】导出到TXT，并默认每次更换剪切板内容都空2行，若每次复制到剪切板里几行内容，就不换行导出呢？
若第一次剪切板自动复制的内容是

「その凶悪なる力を行使して、あたしたちを無理矢理授業や、部活や、テストに追い立てるのよ…」

「行使那個凶惡的力量、硬授課我們、社團活動、趕走在(到)試驗喲…」

「行使那凶惡的能力，強迫課、部活、測試攆走我們…」

「那個凶惡的力量行使，把我們強行上課，社團活動和、測試趕走。…」
复制代码

我希望运行exe导出到TXT是，去除每次复制到剪切板的空行和重复句子,只保留1句就好。

空行
空行
「その凶悪なる力を行使して、あたしたちを無理矢理授業や、部活や、テストに追い立てるのよ…」
「行使那個凶惡的力量、硬授課我們、社團活動、趕走在(到)試驗喲…」
「行使那凶惡的能力，強迫課、部活、測試攆走我們…」
「那個凶惡的力量行使，把我們強行上課，社團活動和、測試趕走。…」
复制代码

第二次自动复制剪切板内容，格式和上面一样
，空2行，剪切板的空行默认去掉

空行
空行
「その凶悪なる力を行使して、あたしたちを無理矢理授業や、部活や、テストに追い立てるのよ…」
「行使那個凶惡的力量、硬授課我們、社團活動、趕走在(到)試驗喲…」
「行使那凶惡的能力，強迫課、部活、測試攆走我們…」
「那個凶惡的力量行使，把我們強行上課，社團活動和、測試趕走。…」
空行
空行
「そう見えるけど…あいつは人間じゃない…」
「那樣能看見…那傢伙不是人類…」
「雖然看上去是那樣…那家夥不是人類…」
空行
空行
「その凶悪なる力を行使して、あたしたちを無理矢理授業や、部活や、テストに追い立てるのよ…」
「行使那個凶惡的力量、硬授課我們、社團活動、趕走在(到)試驗喲…」
「行使那凶惡的能力，強迫課、部活、測試攆走我們…」
「那個凶惡的力量行使，把我們強行上課，社團活動和、測試趕走。…」
.......
复制代码

请问这样的格式，请问能否修改下代码呢？

1139054012

回复 8# tmplinshi
谢谢，的确我之前一直用的是Ahk2Exe v1.0.47.06版本。换了高版本打包exe后成功运行.^O^

大神,能看下10楼吗？能否修改下代码，满足我的需要条件吗？

tmplinshi

你的 ahk 版本太低了。Trim() 函数需要 1.0.90 以上版本。
最新版下载地址: http://ahkscript.org

1139054012

回复 6# CrLf


    ---------------------------
2222.exe
---------------------------
Error: Call to nonexistent function.

Specifically: trim(clipboard, "        

")

        Line#
--->        002: text := trim(clipboard, "        

")

The program will exit.
---------------------------
确定   
---------------------------




打包exe运行还是这错误，是什么地方不对吗？

CrLf

已修改

1139054012

回复 4# CrLf


  直接复制代码到txt改后缀ahk，打包exe双击运行，出现错误无法使用

---------------------------
1.exe
---------------------------
Error: Call to nonexistent function.

Specifically: trim(clipboard)

        Line#
--->        002: text := trim(clipboard)

The program will exit.
---------------------------
确定   
---------------------------

CrLf

ahk 代码：

~^c up::
text := trim(clipboard, " `t`r`n")
FileAppend, %text%`r`n`r`n, 另存路径.txt, UTF-8
return
复制代码