vbscript - VBScript は、スペースの後にファイル名の末尾を切り捨てますが、拡張子は保持します

Question

私はオンラインで検索してきました。スペースと残りのファイル名を切り取り、拡張子を VBScript のままにする方法はありますか。

次のようなファイル名があるとします。

filename this is a file.txt

VBScript はスペースとその後のすべてを切り取り、拡張子を次のように残すことができます:

filename.txt

Answer 1

RegExp を使用して、入力から最初の「単語」と拡張子を切り取ります。

>> Set r = New RegExp
>> r.Pattern = "^(\w+)(.*)(\..*)$"
>> For Each s In Array("filename this is a file.txt", "a.txt", "1a nix ...txt")
>>     WScript.Echo s, """" & r.Replace(s, "$1$3") & """"
>> Next
>>
filename this is a file.txt "filename.txt"
a.txt "a.txt"
1a nix ...txt "1a.txt"

String ops に固執する場合は、Right() の代わりに Mid() を使用します。

>> s = "filename this is a file.txt"
>> a = Left(s, InStr(s, " ") - 1)
>> b = Mid(s, InStrRev(s, "."))
>> WScript.Echo a, b, a & b
>>
filename .txt filename.txt