Question

我想用VBS把指定文本文件中某个字符替换为粘贴板中的内容保存到另一个文件夹中，

如把 F:\模板\NEW\脚本.txt 中的指定字符 “默认动作” 替换为“粘贴板中的内容” ,替换完成后保存到另一个地方如 F:\模板\NEW\VBS\(粘贴板中的内容).txt
问题已自行解决，展示代码共享给大家

i=0
Rem 开始
J0=WaitKey
//等待复制的快捷键（Ctrl＋C），C 的按键码是67
If J0<>67
Delay 200
Goto 开始
EndIf
Delay 1000
J1=Plugin.Sys.GetCLB()
//为了上一次复制内容跟下一次内容不重复，就在下面做一个判断
If J1=J2
Goto 开始
EndIf
VBS J2=J1
i = i + 1

set fso = createobject("scripting.filesystemobject")

' 读取文件
set stream = fso.opentextfile("F:\模板\NEW\脚本.txt",1)
content = stream.readall()
call stream.close()

' 替换字符串
content = replace(content, "动作", J2)

' 定义文件名
NameFile = "F:\模板\NEW\vbs\" + J2 + ".vbs"

' 写入文本
Call Plugin.File.WriteFileEx("F:\模板\NEW\vbs\脚本.txt", content)
Beep
Delay 1000
' 重命名文件
Call Plugin.File.ReNameFile("F:\模板\NEW\vbs\脚本.txt",NameFile)

Beep

Goto 开始
EndScript

Answer 1

处理字符串 百度 vbs Pattern
获取剪贴板 百度 vbs 剪贴板
补充
动作名改成变量

Answer 2

新春到，祝君：百事可乐！万事芬达！天天哇哈哈！月月乐百事！年年高乐高！心情似雪碧！永远都醒目！ 加分吧，嘻嘻