请各位帮助写个简单文本替换的脚本 用JAVA 或VB
来源:百度知道 编辑:UC知道 时间:2024/09/13 01:49:24
请各位帮助写个简单文本替换的脚本,最好带点中文注释,让我以后可以自己更改想要替换的文本。
一 原文本: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