Sub  SplitLineAndCRLF( LineAndCRLF as string, out_Line as string, out_CRLF as string )

行の本文と、行末の改行文字を分けます。

【引数】

LineAndCRLF

out_Line

改行文字が末尾に含まれている可能性がある文字列

（出力） 改行文字より前の文字列

ファイル：

Function  CutCRLF( Line as string )

改行文字を削除します。

【引数】

Line

返り値

改行文字が削除される文字列

改行文字が削除された文字列

ファイル：

Sub  Translate( TranslatorPath as string, FromLanguage as string, ToLanguage as string )

翻訳ファイルの情報に従って、テキストファイルの一部を翻訳します。

【引数】

TranslatorPath

FromLanguage

翻訳ファイル(*.trans)のパス

翻訳前の言語。 通常 "JP"

ToLanguage

翻訳後の言語。 通常 "EN"

(src)

Sub  TranslateTest( TranslatorPath as string, FromLanguage as string, ToLanguage as string,
                    OutFolderPath as string )

翻訳ファイルの情報に従って、テキストファイルの一部を翻訳できるかどうかチェックします。

【引数】

TranslatorPath

FromLanguage

翻訳ファイルのパス

翻訳前の言語。 通常 "JP"

ToLanguage

翻訳後の言語。 通常 "EN"

OutFolderPath

翻訳後の出力先ファイル・パス。 または "" = 出力しない

(src)

参考

→ Translate

→ TranslateTest コマンド

関連

→ T_Translate.vbs # [T_TranslateTest]

テスト

→ T_Translate.vbs # [T_TranslateTest_sth]

翻訳ファイル

Function  new_TranslateToEnglish( DictionaryCsvPath as string ) as TranslateToEnglish

辞書ファイルを使って、ソース・ファイルのコメントを英訳します。

【引数】

DictionaryCsvPath

CSV 形式の辞書ファイルのパス

  cd  g_fs.GetParentFolderName( WScript.ScriptFullName )
  Dim  trs, tr, folder, fnames(), fname, w_, step_path, b

  set_ "folder_jp", "C:\FolderA"
  set_ "folder_en", GetAbsPath( "..\folder_en", WScript.ScriptFullName )

  echo_line
  echo  "コメントを英訳します"
  echo  "From: "+ GetVar( "folder_jp" )
  echo  "To:   "+ GetVar( "folder_en" )
  pause


  '//=== 翻訳 CSV ファイルを集める
  Set trs = new ArrayClass
  ExpandWildcard  GetVar( "folder_en" ) +"\*.trans.csv", F_File or F_SubFolder, folder, fnames
  For Each fname in fnames
    step_path = fname : CutLastOf  step_path, ".trans.csv", Empty
    set_ "step", step_path

    trs.Add  new_TranslateToEnglish( folder +"\"+ fname )
  Next


  '//=== 翻訳する。 ただし、翻訳済みファイルがあるとき（英文字以外が無く、新しいとき）は処理しない
  For Each tr  In trs.Items
    b = MakeRule_compare( tr.EnglishTextPath, tr.NotEnglishTextPath )
    If not b Then  b = ( GetLineNumsExistNotEnglighChar( tr.EnglishTextPath, Empty ) > 0 )
    If b Then
      Set w_=AppKey.NewWritable( tr.Writable ).Enable()
      tr.Translate
    End If
  Next

Function  GetLineNumsExistNotEnglighChar( Path as string, out_LineNums as Array of integer ) as integer

テキスト・ファイルの中に、英文字以外の文字が含まれる行番号の配列を取得します。

【引数】

Path

out_LineNums

テキスト・ファイルのパス

（出力） 英文字以外の文字が含まれる行番号の配列、Empty 指定可

Function  CheckEnglishOnly( CheckFolderPath as string, SettingPath as string )
    as ArrayClass<CheckEnglishOnlyFound>

テキスト・ファイルの中に、英文字以外の文字が含まれるファイルを一覧します。

【引数】

CheckFolderPath

SettingPath

調べるフォルダのパス

設定ファイルのパス。または Empty

MakeSettingForCheckEnglish  "SettingForCheckEnglish.ini", Array( "Sample.trans" )

  Dim  zip1, sub_fo1, step_paths, step_path, target_root, work_root

  '//=== convert binary file emulated
  zip1 = work_root +"\converted_files"
  unzip  "converted_files.zip", zip1, Empty

  sub_fo1 = "target"
  step_paths = Array( sub_fo1+"\file1.bin", sub_fo1+"\file2.bin" )
  For Each step_path  In step_paths
    ConvertBinaryEmulated  target_root +"\"+ step_path, Empty, False, _
                           zip1+"\src\"+step_path, zip1+"\dst\"+step_path
  Next
  del  zip1

C:\Users\user1\AppData\Local\Temp\Report

vbslib を使うと、PC の内臓 HDD （OSが指定するテンポラリ・フォルダの中の Report フォルダ）
に、一時ファイルを作成することがあります。
PCを借りているときは情報漏えいに注意してください。

参考

Setting_getTemp

テンポラリ・フォルダの設定は、

関数を作成することで変更できます。

テンポラリ・フォルダを削除するときは、

ゴミ箱にも一時ファイルが格納されることがあります。

→ SafeFileUpdate

→ DelTemp

ごみ箱を空にしてください。

Function  GetTempPath( BasePath as string ) as string

の中のファイルやフォルダのパスを返します。

Function  DesktopPath() as string

デスクトップの絶対パスを返します。

(src)

Function  GetAbsPath( StepPath as string, BasePath as string ) as string

絶対パスを返します。

【引数】

StepPath

BasePath

返り値と同じファイルの相対パス

基準フォルダの絶対パス、Empty でカレントフォルダ

返り値

StepPath と同じファイルの絶対パス

(src)

→ ファイル名、パス (VBS)

g_fs.GetAbsolutePathName は、StepPath に * が入っていると、ピリオドに
置き換わってしまいますが、GetAbsPath では発生しません。

サンプル：

Function  GetStepPath( AbsPath as string, BasePath as string ) as string

相対パスを返します。

【引数】

AbsPath

BasePath

返り値と同じファイルの絶対パス

基準フォルダの絶対パス

返り値

AbsPath と同じファイルの相対パス

(src)

テスト

→ T_Path.vbs # [T_GetStepPath]

Function  GetParentAbsPath( Path as string ) as string

Path  に指定したファイルやフォルダの親フォルダの絶対パスを返します。

【引数】

Path

基準パス（相対パスは、カレントからの相対）

返り値

親フォルダの絶対パス

(src)

Function  GetParentFoldersName( FilePath as string, Level as integer,
    SeparatorReplacedStr as Empty or string )

FilePath  に指定したファイルが入ったフォルダーの名前を Level 個つなげたものを返します。

【引数】

FilePath

基準となるファイルまたはフォルダーのパス

Level

親フォルダの個数。 親の方向へたどる数。 １以上

Function  GetFilePathSeparetor( Path as string ) as string

Path  に入っているフォルダーの区切り記号をします。

【引数】

Path

ファイルなどのパス

返り値

フォルダーの区切り記号

(src)

Function  SearchParent( StepPath as string ) as string

StepPath  に指定したファイルまたはフォルダを、親フォルダに向かって探します。

【引数】

StepPath

ファイル名、または相対パス

返り値

見つかったファイルまたはフォルダの絶対パス

サンプル：