久々 リプライス やで～

IE か WSH か VHS か分からないんだけど、VHS関係ねぇか(汗;)

http://petamun.blog.so-net.ne.jp/2007-05-06
↑ リプライス のページが動作しなくなってもう数年ですけど、まぁ、リプライスだけじゃなくて殆ど? ・・確か、XP-SP3くらいまでは動いていたと思うのですがー

最近、テキスト中の文字列を大量にリプライス変換しないといけないという用事が発生しまして 2～3日かけて作ってみました。

エラー処理が中途半端ですけど、とりあえず無事に用事は済ませることが出来たようなので、その スクリプト コード の紹介しておきます。

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso,pss,fps,fp1,fot,tx1,tx2,txt,Reptext tx1 = "ABC" '...リプライス対象の文字列 tx2 = "WXY" '...リプライス変換後文字列 Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 pss = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set fps = fso.GetFile( pss ) fp1 = fps.Path Set fot = fso.OpenTextFile (fp1, ForReading) txt = fot.ReadAll If tx1 <> tx2 then Reptext = Rep(tx1,tx2,txt) if Reptext = "" Or Reptext = Null then if tx1="\\" Or tx1="^" Or tx1="$" Or tx1="*" Or tx1="+" Or tx1="?" Or tx1="." Or tx1="|" Or tx2="\\" Or tx2="^" Or tx2="$" Or tx2="*" Or tx2="+" Or tx2="?" Or tx2="." Or tx2="|" then MsgBox ( "注). 特殊文字なので変換できませんでした。!") end if else Set ts = fps.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write Reptext ts.Close MsgBox ("MISSION COMPLETE!!" & vbCrLf & tx1 & " を " & tx2 & " へ リプライス完了!!") end if else MsgBox ( "★ 文字列を確認して再度実行してみてください。!") End if Function Rep(patrn,ST,stx) Dim A,B,C Set A = New RegExp A.Pattern = patrn A.IgnoreCase = True A.Global = True Set C = A.Execute(stx) For Each B in C Rep = A.Replace(stx, ST) Next if Rep = false then MsgBox ( "★ 対象文字はありませんでした。!") end if End Function

このテキストエリアのソースを丸コピし、メモ帳にペースト、ファイル名は適当でいいんですが「TEXT REPLACE.vbs」とかにして、変換対象のテキストファイルをドラッグ＆ドロップすると変換して上書きしてくれます。

5行目ダブルクォーテーションの中に変換対象文字列を書き込んでください。
6行目ダブルクォーテーションの中に変換後の文字列を書き込んでください。

一応、win7x64で作りました。動作保障は無いのでコピーで試してからお願い致します。既にこのカテゴリ大半が動作していないようなので、自己責任でお願い致します。それでは、くれぐれお気をつけて・・ ＼(-o-;)／