Function  new_IsSafeFileUpdateStack( IsEnabled as boolean ) as IsSafeFileUpdateStack

を実行します。

SafeFileUpdate

返り値のオブジェクトが削除されたら、指定は無効になります。

(src)

g_FileOptions = new FileOptionsClass

Class  FileOptionsClass
  Public Property Get  CharSet    '// as lower case string.  ADODB.Stream.Charset
  Public Property Get  CharSetEx  '// as Empty, c.UTF_8_No_BOM
  Public Property Get  LineSeparator     '// as ADODBConsts.Keep
  Public Property Get  IsSafeFileUpdate  '// as boolean
End Class

→ new_TextFileCharSetStack

→ new_IsSafeFileUpdateStack

(src)

Sub  WriteVBS_Comment( Path as string, StartTag as string, EndTag as string,
    Text as string, Opt as Empty )

VBScript のファイルの中のコメントに、複数行の文字列を書き込みます。

【引数】

Path

StartTag

VBScript ファイルのパス、Empty =

VBScript ファイルの中の、書き込みを開始する1つ上の行にあるキーワード

EndTag

Opt

書き込む最後の行の1つ下の行にあるキーワード

Empty を指定してください

StartTag と EndTag に指定したキーワードがヒットしないよう、下記のサンプルにあるように + でつなぐ
などの対策をしてください。

テスト

→ T_FileInScript.vbs

T_WriteVBS_Comment

ソース

→ vbslib.vbs

WScript.ScriptFullName

Text

書き込む文字列。 先頭に ' は不要です

サンプル

Sub  WriteVBSLibFooter( OutFileStream as TextStream, Opt as WriteVBSLibFooter_Option )

【引数】

OutFileStream

開いている書き込むファイル

WriteVBSLibFooter_Option

Sub  WriteVBSLibHeader( OutFileStream as TextStream, Opt as WriteVBSLibHeader_Option )

【引数】

OutFileStream

開いている書き込むファイル

WriteVBSLibHeader_Option

    Set  file = OpenForReplace( "file1.html", Empty )
    file.Replace  "<TopOfContexts/>", "<TopOfContexts/>"+vbCRLF+ "new Topic"
    file = Empty

OpenForReplace

Dim  ReplaceTextFile1::Text as string

編集中のファイルの内容。

この内容を直接変更することで、ファイルの内容を変更することができます。

テスト

→ T_Replace.vbs

T_OpenForReplaceText

Sub  ReplaceTextFile1::Replace( FromText as string, ToText as string )

テキストを置き換えます。

【引数】

FromText

ToText

置き換える前のテキスト

置き換えた後のテキスト

(src)

置き換えた後のテキストが存在するときは、置き換えを行いません。
これは、VBS の Replace 関数と結果が異なりますが、追加的な置き換えをしたときに、多重的に
追加されることがなくなります。

例：

Sub  ReplaceTextFile1::ReplaceRange( StartOfFromText as string, EndOfFromText as string,
                                     ToText as string )

指定のタグで囲まれたテキストを置き換えます。

【引数】

StartOfFromText

EndOfFromText

置き換える前のテキストが始まる場所にあるタグ（テキスト）

置き換える前のテキストが終わる場所にあるタグ（テキスト）

置き換えた後のテキスト。 通常、タグも含む。

ToText

置き換えサンプル

StartOfFromText = "<Tag>", EndOfFromText = "</Tag>" とします。

ToText

置き換える前

置き換えた後

Sub  ReplaceTextFile1::Close()

テキストファイルの内容の変更を完了します。

→ ReplaceTextFile1 クラス

Sub  SafeFileUpdateEx( FromTmpFilePath as string, ToFilePath as string, Option_ as string )

ファイルを安全に更新します。 上書き移動します。

【引数】

FromTmpFilePath

ToFilePath

新しい内容が書かれたファイルのパス

更新するファイルのパス

Option_

Empty、または、g_VBS_Lib.ToTrashBox

SafeFileUpdate を呼び出している途中で、ファイルの更新やバックアップなどに失敗
したら、エラーが発生しますが、ファイルの内容は、消えることなく、元に戻ります。
ただし、新しい内容は保存できていないので、エラー復帰して、別のディスクに保存
できるようにしてください。

サンプル

Sub  SafeFileUpdate( FromTmpFilePath as string, ToFilePath as string )

ファイルを安全に更新します。 上書き移動して、元の内容はゴミ箱に入ります。

【引数】

FromTmpFilePath

ToFilePath

新しい内容が書かれたファイルのパス

更新するファイルのパス

テスト

→ T_SafeCopy.vbs # [T_SafeFileUpdate]

関連

→ new_IsSafeFileUpdateStack

→ vbslib.vbs

ソース

Sub  ConvertToFullPath( SrcFilePath as string, DstFilePath as string )

%FullPath(..\SampleLib)%

テキストファイルの中の相対パスや特殊フォルダのパスをフル・パスに変換してコピーします。

変換前

変換後の例

C:\folder\SampleLib

%DesktopPath%

C:\Documents and Settings\user1\デスクトップ

【引数】

SrcFilePath

DstFilePath

変換前のファイルのパス

変換後のファイルのパス（新規作成または上書き）, Empty不可

(src)

Sub  ReplaceStringTemplate( FolderPath as string, RegularExpressionPart as string,
    BeforeTemplate as string, AfterTemplate as string, Opt as Empty )

テキストファイルの中をキーワードで検索し、テンプレートを置き換えます。

【引数】

FolderPath

RegularExpressionPart

検索対象フォルダーやワイルドカード

BeforeTemplate

置き換える前のテンプレート（複数行可）

Opt

Empty を指定してください

置き換える前のキーワード。複数行不可

→ 正規表現

置き換えた後のテンプレート（複数行可）

AfterTemplate

関連

→ PartRep

→ SearchStringTemplate

テンプレートの中に次の予約変数を記述することができます。

${FileName}

ファイル名に置き換わります

置き換えた後のテンプレートにある変数が、置き換える前のテンプレートにないときは、
変数のまま残ります。 ただし、Opt 引数に dictionary 型を指定して、変数に一致する
キーに対応した値に置き換えることもできます。

Function  new_ReplaceTemplateClass( path_of_XML as string ) as ReplaceTemplateClass

テキストファイルのテンプレートを操作するアプリケーションのオブジェクトを生成します。

【引数】

xml_path

テンプレートに関するの設定ファイルのパス

テンプレートを操作するアプリケーション

返り値

path_of_XML に指定したファイルの内容については、サンプルを参照してください。

→ RunGetDifference

テキストファイルのテンプレートを操作するアプリケーションのオブジェクトは、次のメソッドを持ちます。

→ EchoOld

→ RunReplace

合っていない（古い）テンプレートの場所を表示します

合っていない（古い）テンプレートの中の場所を表示します

テンプレートを置き換えます

XML ファイルの説明は、サンプルの XML ファイルの中にあります。

Sub  ReplaceTemplateClass::EchoOld()

現在使われているテンプレートと合っていない（古い）テンプレートの場所を表示します。

Sub  ReplaceTemplateClass::RunGetDifference()

現在使われているテンプレートと合っていない（古い）テンプレートの中の場所を表示します。

Sub  ReplaceTemplateClass::RunReplace()

テンプレートを置き換えます。

    Set rep = StartReplace( "a.txt", GetTempPath("*.txt"), False )
    Do Until rep.r.AtEndOfStream
        SplitLineAndCRLF  rep.r.ReadLine(), line, cr_lf
        line = Replace( line, "Value=0", "Value=1" )
        rep.w.WriteLine  line + cr_lf
    Loop
    rep.Finish

(src)