(for Internet Explorer)
← ▼ ▲
↑
GetFilePathSeparator
Function GetFilePathSeparator( Path as string ) as string
Path に入っているフォルダーの区切り記号を返します。
【引数】
Path
ファイルなどのパス
返り値
フォルダーの区切り記号
Assert GetFilePathSeparator( "http://www.example.com/" ) = "/"
サンプル
フォルダーの区切り記号が無いときは、"\" を返します。
最も左にある / または \ が、どちらの文字かを返します。
ソース
→ vbslib.vbs
← ▼ ▲
GetPathWithSeparator
→ AddIfNotExist
関連
Function GetPathWithSeparator( in_Path as string ) as string
文字列の末尾に、フォルダーの区切り記号がなければ、追加します。
【引数】
in_Path
ファイルなどのパス
返り値
フォルダーの区切り記号が最後に付いたパス
フォルダーの区切り記号は、in_Path 引数の値に応じて、"\" または "/" が追加されます。
フォルダーのパスの末尾に区切り記号があれば、ファイル名やサブ フォルダー名を追加するときに、
フォルダーのパス + 追加する名前、に統一することができます。
フォルダーのパス +"\"+ 追加する名前、にしないでください。
ソース
→ vbslib.vbs
→ T_Path.vbs
テスト
T_GetPathWithSeparator
サンプル
Assert GetPathWithSeparator( "C:\BaseFolder" ) = "C:\BaseFolder\"
Assert GetPathWithSeparator( "C:\" ) = "C:\"
Assert GetPathWithSeparator( "" ) = ""
Assert GetPathWithSeparator( "." ) = ""
Assert GetPathWithSeparator( ".." ) = "..\"
Assert GetPathWithSeparator( "folder" ) = "folder\"
Assert GetPathWithSeparator( "folder/sub" ) = "folder/sub/"
Assert GetPathWithSeparator( "http://www.example.com/fo" ) = "http://www.example.com/fo/"
Assert GetPathWithSeparator( "http://www.example.com/" ) = "http://www.example.com/"
→ CutLastOf
→ GetFullPath
列挙している文字列の中になければ追加します
末尾にあればカットします
フルパスに変換します
→ GetLastSeparatorOfPath
末尾にあるフォルダーの区切り記号を返します
← ▼ ▲
GetLastSeparatorOfPath
last_separator = GetLastSeparatorOfPath( path )
step_path = GetStepPath( path, base_path ) + last_separator
Assert path = "C:\Folder\Sub\"
Assert last_separator = "\"
Assert base_path = "C:\Folder"
Assert step_path = "Sub\"
GetStepPath が削除した最後の \ を復活します。
Function GetLastSeparatorOfPath( in_Path as string ) as string
文字列の末尾に、フォルダーの区切り記号があれば、それを返します。
【引数】
in_Path
ファイルなどのパス
返り値
"\" または "/" または ""
フォルダーの区切り記号は、"\" または "/" です。
文字列の末尾が、フォルダーの区切り記号でなければ、"" を返します。
サンプル
→ GetPathWithSeparator
関連
→ CutLastOf
ソース
→ vbslib.vbs
← ▼ ▲
get_PathNameRegularExpression
Function get_PathNameRegularExpression() as VBScript.RegExp
フォルダーの区切り記号で区切る正規表現オブジェクトを返します。
【引数】
返り値
正規表現オブジェクト
フォルダーの区切り記号は、"\" または "/" です。
サンプル
Set path_names = get_PathNameRegularExpression().Execute( _
"sub\a.txt" )
For Each name In path_names
WScript.echo "FirstIndex = " & name.FirstIndex & _
", Length = " & name.Length & ", Value = " & name.Value
Next
FirstIndex = 0, Length = 4, Value = sub\
FirstIndex = 4, Length = 5, Value = a.txt
T_PathNameRegularExpression
テスト
ソース
→ T_Wildcard.vbs
→ ToolsLib.vbs
サンプル
→ VBScript.RegExp
"sub\a.txt"
パス（検索対象）
区切った後（検索結果）
"sub\", "a.txt"
"sub2/a.txt\"
"sub2/", "a.txt\"
"a.txt"
"a.txt"
""
（検索結果０件）
"\a.txt"
"\", "a.txt"
"\\a.txt"
"\", "\", "a.txt"
"http://www.example.com/~user/"
"http:/", "/", "www.example.com/", "~user/"
→ Split
関連
← ▼ ▲
SplitPathToSubFolderSign
Sub SplitPathToSubFolderSign( in_out_Path as string, out_SubFolderSign as string,
out_IsFolder as boolean, out_Separator as string )
パスから、サブ フォルダー記号を分離します。
【引数】
in_out_Path
ファイルなどのパス （入力）記号あり、（出力）記号なし
out_SubFolderSign
（出力） サブ フォルダー記号、"." か "*" か ""
(src)
サブ フォルダー記号
パスの最後の \ の左に * または . を指定することで、サブ フォルダーを
検索するかどうかを指定することができます。
"*\file.txt"
… サブ フォルダーも含めて file.txt を検索する
".\file.txt"
… サブ フォルダーも含めないで file.txt を検索する
"fo\*\file.txt"
"fo\.\file.txt"
… fo フォルダーにある file.txt を検索する
… サブ フォルダーも含めて fo フォルダーの中の file.txt を検索する
（参考） zsh では、** がサブ フォルダーも含めて検索します。
補足
次の関数に、サブ フォルダー記号が使えます。
→ ArrayFromWildcard
→ ExpandWildcard
サンプル
path = "C:\Folder\.\log.txt"
SplitPathToSubFolderSign path, sign, is_folder, separator
Assert path = "C:\Folder\log.txt"
Assert sign = "."
Assert is_folder = False
Assert separator = "\"
path （入力）
path （出力）
サブ フォル
ダー記号
"C:\Folder\.\log.txt"
"C:\Folder\log.txt"
"."
"C:\Folder\*\log.txt"
"*"
"C:\Folder\log.txt"
"C:\Folder\log.txt"
""
"C:\Folder\log.txt"
"C:\Folder"
"C:\*\Folder\"
"*"
""
"C:\Folder\*"
"C:\Folder\*\"
"C:\Folder"
""
"C:\Folder\.\"
"."
"C:\Folder"
"C:\.\Folder\"
サンプル
（出力） フォルダー区切り文字
out_Separator
（出力） フォルダー指定かどうか
out_IsFolder
フォルダー
指定かどうか
True
True
True
True
False
False
False
パスの最後が \ のときは、フォルダー（ファイル以外）を指定したことになります。 つまり、
False
False
"C:\Folder\.\*"
"."
"C:\Folder\*"
"C:\Folder\*"
"*"
"C:\Folder\*\*"
False
"C:\Folder\*.txt"
"*"
"C:\Folder\*\*.txt"
""
"C:\Folder\*.txt"
False
"C:\Folder\*.txt"
False
"C:\Folder\*"
""
"C:\Folder\*"
True
True
"C:\Folder\.\*\"
"."
"C:\Folder\*"
"C:\Folder\*"
"*"
"C:\Folder\*\*\"
→ new_PathDictionaryClass_fromXML
→ PathDictionaryClass
→ T_Path.vbs
テスト
T_SplitPathToSubFolderSign
… サブ フォルダーも含めて、フォルダー名 folder を検索する
"*\folder\"
\
*\
.\
.\
*\
フォルダーにマッチさせたいときは、最後に \ を付けてください。
（メモ） \ を付ける理由は、Group* のように最後にワイルドカード * があるとき、ファイルと
フォルダーの両方にヒットしてしまうと扱いが難しくなるためです。
→ vbslib のワイルドカード
関連
← ▼ ▲
ReplaceRootPath
Function ReplaceRootPath( BeforePath as string,
BeforeRootFullPath as string, AfterRootFullPath as string, IsReplaceParent as boolean )
ルート・フォルダーを入れ替えたときのフルパスに変換します。
【引数】
BeforePath
変換する前のパス、フルパス または 相対パス
BeforeRootFullPath
変換する前のルート・フォルダーのフルパス
通常 True、親フォルダー記号を "_parent" に置き換えるかどうか
IsReplaceParent
変換した後のルート・フォルダーのフルパス
AfterRootFullPath
BeforePath を変換した後のフルパス
返り値
サンプル
BeforePath
BeforeRootFullPath = "C:\FolderA"、AfterRootFullPath = "C:\FolderB" のときのサンプルを示します。
IsReplaceParent
返り値
"a.txt"
True
"C:\FolderB\a.txt"
"C:\FolderA\a.txt"
"C:\FolderB\a.txt"
True
"C:\FolderB\sub\a.txt"
True
"sub\a.txt"
True
"C:\FolderB\sub\a.txt"
"C:\FolderA\sub\a.txt"
"C:\FolderC\a.txt"
"C:\FolderB\_parent\FolderC\a.txt"
True
True
"C:\FolderB\_parent\FolderC\a.txt"
"..\FolderC\a.txt"
"C:\FolderC\a.txt"
False
False
"C:\FolderC\a.txt"
"C:\FolderC\a.txt"
"..\FolderC\a.txt"
テスト
ソース
→ vbslib.vbs
→ T_Path.vbs
T_ReplaceRootPath
サンプル
path = ReplaceRootPath( "a.txt", "C:\FolderA", "C:\FolderB", True )
Assert path = "C:\FolderB\a.txt"
サンプル
path = GetParentFullPath( ReplaceRootPath( "sub\a.txt", "C:\FolderA", "C:\FolderB", True ) )
Assert path = "C:\FolderB\sub"
BeforePath 引数が相対パスのときは、変換前の BasePath の基準フォルダーが BeforeRootFullPath と
して処理します。
関連
→ GetParentFoldersName
→ ReplaceParentPath
IsReplaceParent 引数について詳細は、
→ GetInputOutputFilePaths
"."
True
"C:\FolderB"
← ▼ ▲
GetParentFullPath
Function GetParentFullPath( Path as string ) as string
Path に指定したファイルやフォルダの親フォルダのフル・パスを返します。
【引数】
Path
基準パス（相対パスは、カレントからの相対）
返り値
親フォルダのフル・パス
(src)
cd "C:\Folder"
Assert GetParentFullPath( "sub\file.txt" ) = "C:\Folder\sub"
関連
→ SearchParent
→ FileSystemObject::GetParentFolderName
参考
サンプル
← ▼ ▲
ReplaceParentPath
Assert ReplaceParentPath( "..\..\folder", "..", "_parent" ) = "_parent\_parent\folder"
Function ReplaceParentPath( Path as string, FromSign as string, ToSign as string ) as string
親フォルダーの記号を置き換えます。
【引数】
Path
FromSign
置き換える前のパス
置き換える前の親フォルダーの記号
ToSign
置き換えた後の親フォルダーの記号
テスト
サンプル
ソース
置き換えた後のパス
返り値
→ vbslib.vbs
→ T_Path.vbs
T_ReplaceParentPath
親フォルダーにアクセスさせないときに使用します。
返り値に、FromSign の文字列は、全く含まれなくなります。
内部で、
NormalizePath
が呼ばれます。
キーワード：
_parent
関連
→ ReplaceRootPath
親フォルダーの記号を戻すときにも ReplaceParentPath 関数が使えます。
← ▼ ▲
GetCommonParentFolderPath
テスト
→ T_Path.vbs
→ vbslib.vbs
ソース
Assert GetCommonParentFolderPath( "C:\A\B\File.txt", "C:\A\B\File.txt" ) = "C:\A\B\"
Assert GetCommonParentFolderPath( "C:\A\File.txt", "D:\A\File.txt" ) = ""
Assert GetCommonParentFolderPath( "http://example.com/i", "http://example.com/i" ) = _
"http://example.com/"
Function GetCommonParentFolderPath( in_PathA as string, in_PathB as string )
共通する親フォルダーのパスを返します。
【引数】
in_PathA
in_PathB
パスA
パスB
返り値
パスA と パスB に共通する親フォルダーのパス
サンプル
T_GetCommonParentFolderPath
共通する親フォルダーがあるときは、最後がフォルダーの区切り記号になります。
返す値の最後をフォルダーの区切り記号ではないようにしたいとき
共通する親フォルダーがないときは、"" が返ります。
フォルダーのの区切り記号は、\ または / のどちらでも構いません。
← ▼ ▲
GetCommonSubPath
Function GetCommonSubPath( in_PathA as string, in_PathB as string, in_FilePath as string )
共通するサブ フォルダーのパスを返します。
【引数】
in_PathA
in_PathB
パスA
パスB
in_FilePath
パスがファイル名かどうか。 False=フォルダー名
パスA と パスB に共通するサブ フォルダーのパス
返り値
Assert GetCommonSubPath( "C:\A\B\File.txt", "C:\A\B\File.txt", True ) = "C:\A\B"
Assert GetCommonSubPath( "C:\A\C\File.txt", "C:\B\C\File.txt", True ) = "C"
Assert GetCommonSubPath( "C:\A\C\File.txt", "C:\B\D\File.txt", True ) = ""
Assert GetCommonSubPath( "C:\A\B", "C:\A\B", False ) = "C:\A\B"
Assert GetCommonSubPath( "C:\A\C", "C:\B\C", False ) = "C"
Assert GetCommonSubPath( "C:\A\C", "C:\B\D", False ) = ""
Assert GetCommonSubPath( "", "C:\B\D", False ) = ""
サンプル
テスト
→ T_Path.vbs
→ vbslib.vbs
ソース
T_GetCommonSubPath
→ GetCommonParentFolderPath
返す値の最後をフォルダーの区切り記号にしたいとき
← ▼ ▲
GetIdentifiableFileNames
Function GetIdentifiableFileNames( in_FullPathArray as array of string )
as dictionary of string
フル パスから、識別可能ファイル名に変換します。
【引数】
in_FullPathArray
フル パスの配列
識別可能ファイル名をキーとした、フル バスの辞書
返り値
テスト
→ T_Path.vbs
→ vbslib.vbs
ソース
T_GetIdentifiableFileNames
同じファイル名がないときは、返り値のキーはファイル名になります。
同じファイル名があるときは、そのファイルの親フォルダー名もキーに含まれます。
full_paths = Array( _
"C:\Folder\Sub1\FileA.txt", _
"C:\Folder\Sub2\FileA.txt", _
"C:\Folder\Sub2\FileB.txt" )
Set output = GetIdentifiableFileNames( full_paths )
id_file_names = Array( _
"FileB.txt", _
"Sub1\FileA.txt", _
"Sub2\FileA.txt" )
full_paths = Array( _
"C:\Folder\Sub2\FileB.txt", _
"C:\Folder\Sub1\FileA.txt", _
"C:\Folder\Sub2\FileA.txt" )
Assert IsSameArray( output.Keys, id_file_names )
Assert IsSameArray( output.Items, full_paths )
サンプル
同じフル パスが含まれているときは、エラーにはなりませんが、フル パスから変換しません。
また、辞書のキーは重複できないので、１つにまとめられます。 よって、要素数が減ります。
サンプル
full_paths = Array( _
"C:\Folder\Sub\File.txt", _
"C:\Folder\Sub\File.txt" )
Set output = GetIdentifiableFileNames( full_paths )
id_file_names = Array( _
"C:\Folder\Sub\File.txt" )
full_paths_answer = Array( _
"C:\Folder\Sub\File.txt" )
Assert IsSameArray( output.Keys, id_file_names )
Assert IsSameArray( output.Items, full_paths_answer )
← ▼ ▲
GetParentFoldersName
(src)
Function GetParentFoldersName( FilePath as string, Level as integer,
SeparatorReplacedStr as Empty or string )
FilePath に指定したファイルが入ったフォルダーの名前を Level 個つなげたものを返します。
【引数】
FilePath
基準となるファイルまたはフォルダーのパス
Level
親フォルダの個数。 親の方向へたどる数。 １以上
cd "C:\Folder"
Assert GetParentFoldersName( "sub\file.txt", 1, "/" ) = "sub"
Assert GetParentFoldersName( "sub\file.txt", 2, "/" ) = "Folder/sub"
Assert GetParentFoldersName( "sub\file.txt", 99, "/" ) = "C:/Folder/sub"
サンプル
複数の親フォルダーの名前をつなげたもの
返り値
フォルダー区切り文字を置き換えた後の文字
SeparatorReplacedStr
テスト
→ T_Path.vbs # [T_GetParentFoldersName]
Level が大きすぎても、エラーにはなりません。
Level = 1 なら、ファイルが入っているフォルダーの名前が返ります。
Level = 2 なら、ファイルが入っているフォルダーの親フォルダーの名前と、SeparatorReplacedStr
引数と、ファイルが入っているフォルダーの名前を結合した文字列が返ります
関連
→ ReplaceRootPath
← ▼ ▲
SearchParent
Function SearchParent( StepPath as string ) as string
StepPath に指定したファイルまたはフォルダを、親フォルダに向かって探します。
【引数】
StepPath
ファイル名、または相対パス
返り値
見つかったファイルまたはフォルダのフル・パス
Set root = LoadXML( SearchParent( "common.xml" ), Empty )
(src)
→ T_Path.vbs
テスト
..\common.xml などを開きます
関連
→ GetParentFullPath
→ GetFullPath
を使ってピリオドを３つ並べる記法を展開する
T_SearchParent
→ Dic_searchParent
サンプル
B2
%~1
%return_value%
C:\A\B\B2
カレント フォルダーが、C:\A\B\C で、下記のフォルダーまたはファイルがあるとき、
C:\A\A2
A2
C2
C:\A\B\C\C2
C:\A\B\B2
B\B2
引数と返り値の関係は、以下のようになります。
C:\A\A2
C:\A\B\B2
C:\A\B\C\C2
C:\A\B\C
NotFound
Empty
サンプル
← ▼ ▲
AddLastOfFileName
Function AddLastOfFileName( BasePath as string, AddName as string ) as string
(src)
ファイルパスの最後（拡張子より前）に、文字列を追加します。 または拡張子を変更します。
【引数】
BasePath
AddName
追加前のファイルパス
追加する文字列
返り値
追加後のファイルパス
AddLastOfFileName( "file.txt", "123" ) = "file123.txt"
サンプル：
AddName に拡張子があったら、返り値の拡張子は、AddName の拡張子に変わります。
AddLastOfFileName( "file.txt", "123.html" ) = "file123.html"
AddLastOfFileName( "file.txt", ".html" ) = "file.html"
→ T_Path.vbs # [T_AddLastOfFileName]
テスト
関連
→ CutLastOfFileName
キーワード：
拡張子の変更
→ StrT_addLastOfFileName (clib)
AddLastOfFileName( "file.txt", "." ) = "file"
拡張子を無くす
AddLastOfFileName( path1, "."+g_fs.GetExtensionName( path2 ) )
拡張子を合わせる
→ GetPathWithSeparator
Path の最後を区切り記号にします
← ▼ ▲
CutLastOfFileName
(src)
Sub CutLastOfFileName( in_out_Path as string, LastStr as string, Opt as integer )
ファイル名（拡張子を除く）の最後に、指定した文字列があれば削除します。
Dim s
s = "File_Add.txt"
CutLastOfFileName s, "_Add", Emtpy
'// s = "File.txt"
File_Add.txt
_Add
File.txt
呼び出し前の in_out_Path
LastStr
呼び出し後の in_out_Path
"File_Add.txt"
"_Add"
【引数】
in_out_Path
out_Obj
（入出力）パスやファイル名を含む文字列
（出力） 削除する内容の文字列
Opt
"File.txt"
"File_Add.txt"
"_Insert"
"File_Add.txt"
補足
拡張子も含めて削除するときは、
を使ってください。
CutLastOf
→ CutLastOf
関連
テスト
→ T_Str.vbs # [T_StrComp]
c.CaseSensitive
Empty または
→ StrCompLastOfFileName
→ CutFragmentInURL
サンプル
← ▼ ▲
StrCompLastOfFileName
Function StrCompLastOfFileName( Path as string, LastStr as string, Opt as integer ) as integer
(src)
ファイル名（拡張子を除く）の末尾を比較します。
【引数】
Path
LastStr
比較されるファイル名またはパス
Path の末尾と比較する文字列
c.CaseSensitive
Opt
Empty または
Str 引数の値
LastStr 引数の値
返り値
返り値
Path の末尾 = LastStr なら、0
→ StrComp
"ABCDE.txt"
"CDE"
0 (=一致)
0以外(=異なる)
"ABC"
"ABCDE.txt"
0以外(=異なる)
"CDE.txt"
"ABCDE.txt"
関連
テスト
→ T_Str.vbs # [T_StrComp]
→ CutLastOfFileName
→ StrCompLastOf
←
↓