UC知道请各位帮助写个简单文本替换的脚本 用JAVA 或VB
来源：百度知道 编辑：UC知道 时间：2024/06/14 02:49:15
请各位帮助写个简单文本替换的脚本，最好带点中文注释，让我以后可以自己更改想要替换的文本。
一 原文本：It's worth HK$ 3,000. 替换成：It's worth HK$3,000.
二 原文本：明达公司（注释1)是…… 替换成：明达公司（注释1） 这里是把半角的括号替换成全角的括号。
我学过C语言和VB基础。会看不会写了。我的QQ是446741691。讲不清楚给大家的。请加我！我之前用记事本写了保存了JS格式文件。是用于Adobe Indesign的自动脚本的。
可以写个是用通配符完整的脚本吗?
我给段文本吧：
It's worth HK$ 3,000.明达公司（注释1)准备投资创业板的股票[]万。22万已经由银行转出。还有145，000准备投资其它项目。不过，公司现注资[1@#@]万到……
现在要替换的内容有\HK$后面不可以有空格\英文内文把多余空格去掉\全角数字变成半角
\所以[XXXXXX]替换成[$$$]。
写一个可以针对某个程序选中的文本进行操作的脚本，如导入word里，就可以对选中文本进行操作导入Adobe Indesign里也可以对选中文本进行操作。乌力你回答的这个接近我想要的了。不过就局限于txt文件格式，而且文件每次都要改为test。那是我的疏忽，没有讲清楚问题。所以我就想无论是什么格式，什么文件名。导入Adobe Indesign里就可以直接对选中文本进行操作的脚本。如何可以写得出可以对一个导入Adobe Illustrator的文本框里的文本进行除去多余文本的脚本也可以。
我这个脚本是放到Adobe indesign下script文件夹里，打开Adobe Indesign双击脚本即可运行！
一 原文本：It's worth HK$ 3,000. 替换成：It's worth HK$3,000.
二 原文本：明达公司（注释1)是…… 替换成：明达公司（注释1） 这里是把半角的括号替换成全角的括号。
我学过C语言和VB基础。会看不会写了。我的QQ是446741691。讲不清楚给大家的。请加我！我之前用记事本写了保存了JS格式文件。是用于Adobe Indesign的自动脚本的。
可以写个是用通配符完整的脚本吗?
我给段文本吧：
It's worth HK$ 3,000.明达公司（注释1)准备投资创业板的股票[]万。22万已经由银行转出。还有145，000准备投资其它项目。不过，公司现注资[1@#@]万到……
现在要替换的内容有\HK$后面不可以有空格\英文内文把多余空格去掉\全角数字变成半角
\所以[XXXXXX]替换成[$$$]。
写一个可以针对某个程序选中的文本进行操作的脚本，如导入word里，就可以对选中文本进行操作导入Adobe Indesign里也可以对选中文本进行操作。乌力你回答的这个接近我想要的了。不过就局限于txt文件格式，而且文件每次都要改为test。那是我的疏忽，没有讲清楚问题。所以我就想无论是什么格式，什么文件名。导入Adobe Indesign里就可以直接对选中文本进行操作的脚本。如何可以写得出可以对一个导入Adobe Illustrator的文本框里的文本进行除去多余文本的脚本也可以。
我这个脚本是放到Adobe indesign下script文件夹里，打开Adobe Indesign双击脚本即可运行！
'以下存成 th.vbs ,针对test.txt进行操作
'弱弱问一句,为什么不直接用word的查找替换功能?
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Test.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "HK$ 3,000. ", "HK$3,000. ")
strNewText = Replace(strText, "明达公司（注释1)", "明达公司（注释1）")
'strNewText = Replace(strText, 原来文本,替换的文本)
'........
Set objFile = objFSO.OpenTextFile("Test.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close
嘿嘿，用这个：
java:
where(true){
String a="明达公司（注释1)";
a+=a;
}
我以前写了个替换工具，，
你Q我 我帮你改成你想要的，，Q81105828