(for Internet Explorer)
← ▼ ▲
↑
CutCRLF
Function CutCRLF( Line as string )
改行文字を削除します。
【引数】
Line
返り値
改行文字が削除される文字列
改行文字が削除された文字列
ファイル：
vbslib
(src)
→ T_Replace.vbs # [T_CutCRLF]
テスト
関連
→ SplitLineAndCRLF
← ▼ ▲
Translate
Sub Translate( TranslatorPath as string, FromLanguage as string, ToLanguage as string )
翻訳ファイルの情報に従って、テキストファイルの一部を翻訳します。
【引数】
TranslatorPath
FromLanguage
翻訳ファイル(*.trans)のパス、または、フォルダーのパス
翻訳前の言語。 通常 "JP"
ToLanguage
翻訳後の言語。 通常 "EN"
→ T_Translate.vbs
テスト
英語に翻訳するときに、英文字以外が残っていたときは、get_ToolsLibConsts().E_NotEnglishChar
エラーが発生します。
参考
→ Translate コマンド
ソース
→ ToolsLib.vbs
翻訳ファイル(*.trans) の説明など
TranslatorPath 引数にフォルダーのパスを指定した場合、サブ フォルダーも含めた、拡張子が
.trans のすべての翻訳ファイルから翻訳します。 ある１つの翻訳ファイルから翻訳しても英文字
以外が残っていたときは、すべての翻訳ファイルから翻訳した後でエラーが発生します。
T_Translate1
T_Translate_sth
T_TranslateFolder
関連
→ Switches
スイッチに従って、複数のファイルを編集
← ▼ ▲
TranslateTest
Sub TranslateTest( TranslatorPath as string, FromLanguage as string, ToLanguage as string,
OutFolderPath as string )
翻訳ファイルの情報に従って、テキストファイルの一部を翻訳できるかどうかチェックします。
【引数】
TranslatorPath
FromLanguage
翻訳ファイルのパス、または、フォルダーのパス
翻訳前の言語。 通常 "JP"
ToLanguage
翻訳後の言語。 通常 "EN"
OutFolderPath
翻訳後を格納するフォルダーのパス。 または "" = 出力しない
参考
→ Translate
→ T_Translate.vbs
テスト
→ T_Translate.vbs
→ Translate コマンド
翻訳ファイル(*.trans) の説明など
関連
→ TranslateTest コマンド
EN（英語）に翻訳するときは、翻訳後に Ascii 文字だけ使っているかどうかをチェックします。
Ascii 文字以外の文字があるときは、get_ToolsLibConsts().E_NotEnglishChar エラーになります。
TranslatorPath 引数にフォルダーのパスを指定した場合、サブ フォルダーも含めた、拡張子が
.trans のすべての翻訳ファイルから翻訳できるかどうかチェックします。 ある１つの翻訳ファイル
から翻訳しても英文字以外が残っていたときは、すべての翻訳ファイルから翻訳できるかどうか
チェックした後でエラーが発生します。
翻訳ファイルの内容は上書きされるため注意してください（要 NewWritable）。
翻訳するファイル名と行番号が追記され、行番号の順番でソートされます。
T_TranslateTest
T_TranslateTest_sth
ソース
→ ToolsLib.vbs
← ▼ ▲
TranslateEx
Sub TranslateEx( TranslatorPath as string, FromLanguage as string, ToLanguage as string,
in_out_Config as TranslateConfigClass )
翻訳ファイルの情報に従って、テキストファイルの一部を翻訳します。
【引数】
TranslatorPath
FromLanguage
翻訳ファイルのパス
翻訳前の言語。 通常 "JP"
ToLanguage
翻訳後の言語。 通常 "EN"
in_out_Config
（入出力） 各種設定、または Empty
テスト
→ T_Translate.vbs
ソース
→ ToolsLib.vbs
TranslateConfigClass
→ TranslateConfigClass
.IsTestOnly
.OutFolderPath
.BaseFolderPath
True = すべて翻訳されたかどうかチェックだけします。 （デフォルト）
False = 翻訳します。
翻訳後のファイルを格納するフォルダーのパス。
省略時は、翻訳後のファイルを出力しません。
翻訳ファイルの BaseFolder タグを置き換えた後のパス。
省略時は、翻訳ファイルの BaseFolder タグのテキストが使われます。
参考
→ Translate コマンド
翻訳ファイル(*.trans) の説明など
← ▼ ▲
Translate_getOverwritePaths
テスト
→ T_Translate.vbs
ソース
→ ToolsLib.vbs
Function Translate_getOverwritePaths( TranslatorPath as string )
で置き換わるすべてのファイルのフルパスを配列で返します。
【引数】
TranslatorPath
返り値
翻訳ファイルのパス
置き換わるすべてのファイルのフルパスの配列
Translate
T_Translate_getOverwritePaths
← ▼ ▲
Translate_getWritable
テスト
→ T_Translate.vbs
ソース
→ ToolsLib.vbs
Function Translate_getWritable( TranslatorPath as string )
で置き換わるすべてのファイルを含むフォルダーのフルパスを配列で返します。
【引数】
TranslatorPath
返り値
翻訳ファイルのパス
フォルダーのフルパスの配列
Translate
T_Translate_getWritable
← ▼ ▲
new_TranslateToEnglish
Function new_TranslateToEnglish( DictionaryCsvPath as string ) as TranslateToEnglish
辞書ファイルを使って、ソース・ファイルのコメントを英訳します。
【引数】
DictionaryCsvPath
CSV 形式の辞書ファイルのパス
ToolsLib.vbs
モジュール・ファイル：
(src)
サンプル：
Dim tr : Set tr = new_TranslateToEnglish( "Text1.txt.trans.csv" )
'// tr.IsReverseTranslate = True
Dim w_:Set w_=AppKey.NewWritable( tr.Writable ).Enable()
tr.Translate
いわゆる英訳ソフトのような、文法解析を行って大きな辞書を引くような翻訳ではありません。
内部では、単純なテキストの置換と、置換後のファイルに含まれる文字が英文字だけかどうか
のチェックをします。 翻訳後に英文字以外の文字が残ったら、TranslateToEnglish::c.
E_NotEnglishChar エラーになります。
英訳処理のサンプル
Text1_trans.csv
Text1.c, %eng%\Text1.c
メイン関数, Main function
サブ関数, Sub function
テスト
#include <stdio.h>
int main() { } // メイン関数
int sub() { } // サブ関数
Text1.c
%eng%\Text1.c
#include <stdio.h>
int main() { } // Main function
int sub() { } // Sub function
１行目の左は、変換前のファイルパスです。
１行目の右は、変換後のファイルパスです。
１行目は、% % で囲んだ環境変数を指定できます。
１行目の右を省略すると、ファイルの置き換えをします。
２行目以降は、翻訳するキーワードを指定します。
→ TranslateToEnglish フォルダ
キーワード：
英訳、翻訳
TranslateToEnglish
→ サンプル - new_TranslateToEnglish
関連
→ sample / CheckEnglishOnly
関連
英文字以外が無いか、フォルダ全体をチェックする
Text1.txt.trans.csv
廃止
← ▼ ▲
TranslateToEnglish クラス
.IsReverseTranslate
Property TranslateToEnglish::IsReverseTranslate as boolean
.Writable
Property TranslateToEnglish::Writable as string
.Translate
Sub TranslateToEnglish::Translate()
取得
True なら、翻訳する方向を逆に設定します。
EnglishTextPath から NotEnglishTextPath に翻訳します。
デフォルトは False です。
出力ファイルのパス。
AppKey.NewWritable に指定してください。
翻訳を実行します。
.c.E_NotEnglishChar
Property TranslateToEnglish::c.E_NotEnglishChar as integer
翻訳後も英文字以外の文字が残っていたときのエラーコード。
.Reverse が呼び出されたときは、このエラーは発生しません。
.NotEnglishTextPath
.EnglishTextPath
Property TranslateToEnglish::EnglishTextPath as string
英語のテキスト・ファイルのパス。
NotEnglishTextPath と同じパスを指定できます。
new_TranslateToEnglish を呼び出したら、翻訳 CSV ファイルに書かれたパスが格納されます。
このとき、翻訳 CSV ファイルに書かれた環境変数は展開されます。
.Translate を呼び出す前に変更することができます。
英語以外のテキスト・ファイルのパス。
new_TranslateToEnglish を呼び出したら、翻訳 CSV ファイルに書かれたパスが格納されます。
このとき、翻訳 CSV ファイルに書かれた環境変数は展開されます。
.Translate を呼び出す前に変更することができます。
Property TranslateToEnglish::NotEnglishTextPath as string
.DictionaryCsvPath
Property TranslateToEnglish::DictionaryCsvPath as string
CSV 形式の辞書ファイルのパス。
new_TranslateToEnglish に指定した引数の値と同じです。
→ new_TranslateToEnglish
廃止
← ▼ ▲
サンプル - new_TranslateToEnglish
cd g_fs.GetParentFolderName( WScript.ScriptFullName )
Dim trs, tr, folder, fnames(), fname, w_, step_path, b
set_ "folder_jp", "C:\FolderA"
set_ "folder_en", GetFullPath( "..\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
%folder_jp%\%step%, %folder_en%\%step%
日本語, Japanese
翻訳ファイル *.trans.csv を、変換対象のフォルダーと同じ構成で配置して、翻訳します。
翻訳ファイル *.trans.csv
廃止
← ▼ ▲
GetLineNumsExistNotEnglighChar
Function GetLineNumsExistNotEnglighChar( Path as string, out_LineNums as Array of integer ) as integer
テキスト・ファイルの中に、英文字以外の文字が含まれる行番号の配列を取得します。
【引数】
Path
out_LineNums
テキスト・ファイルのパス
（出力） 英文字以外の文字が含まれる行番号の配列、Empty 指定可
ToolsLib.vbs
モジュール・ファイル：
関連
→ LenK
(src)
返り値
英文字以外の文字が含まれる行数
Set tr = new_TranslateToEnglish( "Text1.txt.trans.csv" )
If GetLineNumsExistNotEnglighChar( tr.EnglishTextPath, Empty ) > 0 Then ...
GetLineNumsExistNotEnglighChar "Text1.txt", line_nums '//[out] line_nums
For Each i In line_nums
echo i
Next
日本語（文字コード256以上）を 2文字として文字数を返します。
→ CheckEnglishOnly
サンプル
サンプル
← ▼ ▲
CheckEnglishOnly
Function CheckEnglishOnly( CheckFolderPath as string, SettingPath as string )
as ArrayClass of CheckEnglishOnlyFound
テキスト・ファイルの中に、英文字以外の文字が含まれるファイルを一覧します。
【引数】
CheckFolderPath
SettingPath
調べるフォルダのパス
設定ファイルのパス。または Empty
ToolsLib.vbs
モジュール・ファイル：
返り値
英文字以外の文字が含まれるファイルの情報
Set founds = CheckEnglishOnly( "FolderA", "SettingForCheckEnglish.ini" )
For Each file In founds.Items
For Each found In file.NotEnglishItems.Items
echo file.Path +"("& found.LineNum &"): "+ found.NotEnglishText
Next
Next
If founds.Count >= 1 Then Error
テスト
→ CheckEnglishOnly (exeファイル)
実行ファイル版、設定ファイルの例
関連
→ GetLineNumsExistNotEnglighChar
簡易版
scriptlib フォルダーをチェックする
→ 3.CheckNotEnglish フォルダー
→ T_CheckEnglishOnly.vbs # [T_CheckEnglishOnly]
→ TranslateTest
ソース
→ CheckEnglishOnly コマンド
コマンド・プロンプト版
→ ToolsLib.vbs # [CheckEnglishOnly]
設定ファイルに下記が記述されていないときは、上記の CheckEnglishOnly 関数呼び
出しでエラーになり、続きを実行しません。
[CheckEnglishOnlyVbs]
IsRaiseError = False
サンプル
サンプル
← ▼ ▲
MakeSettingForCheckEnglish
MakeSettingForCheckEnglish "SettingForCheckEnglish.ini", Array( "Sample.trans" )
Sub MakeSettingForCheckEnglish( CheckEnglishOnlyFilePath as string,
TranslateFilePaths as array of string )
の対象外となるファイルの一覧を翻訳ファイル(*.trans)から作成します。
【引数】
CheckEnglishOnlyFilePath
TranslateFilePaths
ファイルの一覧が書かれる出力ファイルのパス
翻訳ファイルのパスの配列
関連
テスト
→ ToolLib.vbs # [MakeSettingForCheckEnglish]
サンプル
ソース
CheckEnglishOnly
→ T_CheckEnglishOnly.vbs # [T_MakeSettingForCheckEnglish]
→ Translate
→ CheckEnglishOnly
[CheckEnglishOnlyExe]
;// From "sample.trans" file
ExceptFile = Sample1.txt
ExceptFile = ..\Sample2.txt
<?xml version="1.0" encoding="UTF-16"?>
<Translate>
<File>Sample1.txt</File>
<File>..\Sample2.txt</File>
<T><JP>日本語</JP><EN>Japanese</EN></T>
<T><JP>英語</JP><EN>English</EN></T>
</Translate>
翻訳ファイル
CheckEnglishOnly の設定ファイル
VBScript
← ▼ ▲
ConvertBinaryEmulated
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
書きかけ
(src)
← ▼ ▲
その他
→ 開発サポートツール
PartRep
-
→ ReplaceSymbolsClass
→ % を使った変換式
→ OpenForReplaceXML
→ ReplaceRange (ReplaceTextFile1)
指定のタグで囲まれたテキストを置き換えます
複数のファイルの中の複数の単語（文字列）を一度に置き換えます。
→ ConvertToFullPath
旧仕様
ConvertToAbsPath
← ▼ ▲
テンポラリ フォルダー
GetTempPath 関数
vbslib のテンポラリ フォルダーの場所の例： (Windows Vista/7 のとき)
C:\Users\user1\AppData\Local\Temp\Report
vbslib を使うと、PC の内臓 HDD （OSが指定するテンポラリ・フォルダの中の Report フォルダ）
に、一時ファイルを作成することがあります。
PCを借りているときは情報漏えいに注意してください。
Setting_getTemp
テンポラリ フォルダーの設定は、
関数を作成することで変更できます。
テンポラリ フォルダーを削除するときは、
ゴミ箱にも一時ファイルが格納されることがあります。
→ SafeFileUpdate
→ DelTemp
ごみ箱を空にしてください。
C:\Documents and Settings\user1\Local Settings\Temp\Report
上記フォルダーに、日付を表すフォルダーを作成し、２日前のフォルダーは
を呼び出したときに削除されます。
%USERPROFILE%\AppData\Local\Temp\Report
C:\Users\user1\AppData\Local\Temp\Report\010101
↑ 年（西暦下2桁）、月、日
(Windows XP のとき)
→ タイムスタンプを取得する (LastWriteTime)
REM // Set "work_path"
for /f %%a in ('powershell -Command "(Get-Date).ToString(\"yyMMdd\")"') do set work_path=%%a
set work_path=%USERPROFILE%\AppData\Local\Temp\Report\%work_path%
echo "%work_path%"
pause
yyMMdd
バッチファイルでテンポラリ フォルダーのパスを取得する：
← ▼ ▲
GetTempPath
Function GetTempPath( BasePath as string ) as string
の中のファイルやフォルダのパスを返します。
Dim f, path
Dim c : Set c = g_VBS_Lib
path = GetTempPath( "DataA_*.xml" )
Set f = OpenForWrite( path, c.Unicode )
f.WriteLine "<sample/>"
f = Empty
start path
サンプル：
サンプル・ファイルパス： (Windows Vista のとき)
C:\Users\user1\AppData\Local\Temp\Report\090401\DataA_090401_1300_1.xml
BasePath 引数は、テンポラリ・フォルダからの相対パスになり、* はタイムスタンプと
識別番号になります。 ? は識別番号になります。 存在するファイルパスにならない
ように調整され、常に新しいファイルを作成します。 同時に保存期間を超えたファイル
やフォルダを削除します。（起動したプロセスで初めてテンポラリ・フォルダにファイル
を作成するとき、および g_TempPath= Empty のときのみ）
DataA_*.xml
c.Unicode
<sample/>
(src)
start CreateFile( "*.xml", obj.xml )
GetTempPath
サンプル： obj の xml プロパティを、テンポラリファイルに出力して開きます。
xml
start
CreateFile
obj
CreateFile
にワイルドカードを指定すれば、テンポラリ・フォルダにファイルを作る
ので、簡単にテキストファイルや XML ファイルを作成できます。
ファイルパスは、環境変数 TEMP の値を使っています。 上段は * 、下段は ? を使ったとき。
C:\Users\user1\AppData\Local\Temp\Report\090401\DataA_1.xml
【引数】
BasePath
返り値
ファイル名のテンプレート。 * または ? を含んでもよい
テンポラリ・フォルダの中のファイルパス
BasePath に、* または ? を含んでいる場合は、ファイルまたはフォルダが存在
しないパスに変換して返します。
テンポラリ・フォルダ
本関数を呼び出すと、テンポラリ・フォルダに作成した２日以上前のファイルを削除
します。 このとき、ファイルがロックされていると再試行を繰り返して、最終的に
エラーになります。
→ FileSystemObject::GetTempName
関連
← ▼ ▲
ファイル名、パス
→ GetFullPath
→ GetStepPath
→ GetParentFullPath
→ IsFullPath
→ AddLastOfFileName
→ DesktopPath
デスクトップのフル・パスを返す。
フル・パスを返す。
相対パスを返す。
親フォルダのフル・パスを返す。
フル・パスかどうかを返します。
ファイルパスの最後文字列を追加します。
→ ファイル名、パス (Windows)
参考
関連
→ 文字列
→ パスにピリオドを３つ並べた場合 (vbslib)
→ サブ・フォルダー記号 (vbslib)
→ PathDictionaryClass
パスの辞書（集合）
→ new_PathDictionaryClass_fromXML
→ FilePathClass
ファイルのパスか、ファイルの内容に相当する文字列の抽象。
← ▼ ▲
DesktopPath
Function DesktopPath() as string
デスクトップのフル・パスを返します。
(src)
← ▼ ▲
GetFullPath
Function GetFullPath( StepPath as string, BasePath as string ) as string
フル・パスを返します。
【引数】
StepPath
BasePath
返り値と同じファイルの相対パス
基準フォルダのフル・パス、Empty でカレントフォルダ
返り値
StepPath と同じファイルのフル・パス
→ ファイル名、パス (VBS)
g_fs.GetAbsolutePathName は、StepPath に * が入っていると、ピリオドに
置き換わってしまいますが、GetFullPath では発生しません。
path2 = GetFullPath( Path, BaseFolderPath )
→ ConvertToFullPath
path2 = GetFullPath( "..\"+ Path, BaseFilePath )
path2 = GetFullPath( Path, GetParentFullPath( BaseFilePath ) )
BasePath をファイルパスにしたときは、StepPath を１つ親にしてください。
GetFullPath( "file.txt", "C:\folder1" ) =
GetFullPath( "..\file.txt", "C:\folder1\file2.txt" )
テスト
関連
→ T_Path.vbs # [T_GetFullPath]
親フォルダー、または、その親フォルダー … と探すときは、"..." とピリオドを
３つ並べてください。 ただし、スクリプトを記述できるときは、
GetFullPath( "...\file.txt", "C:\folder1\sub" )
上記の返り値は、C:\folder1\sub\file.txt 、C:\folder1\file.txt 、C:\file.txt
のいずれかになります。 または、E_PathNotFound エラーになります。
SearchParent
を呼ぶほうが可読性が高まります。
パスにピリオドを３つ並べた場合 (vbslib)
サンプル
→ GetCaseSensitiveFullPath
参考
→ vbslib.vbs
ソース
→ vbslib_mini.vbs
→ GetPathWithSeparator
大文字小文字をファイル名に合わせます
テキストファイルの中をフルパスにします
Path の最後を区切り記号にします
→ GetAbsolutePathName
Scripting.FileSystemObject によるフル パス
IsEmpty( GetFullPath( Empty, BaseFolderPath )
StepPath = Empty なら、Empty が返ります。
→ GetFullPath メソッド
変数があれば展開して、フル パスを返します
←
↓