Timの回答のおかげで、私はこの解決策を考え出しました。
これは完璧ではなく、また最良の答えではありませんが、私の目的には十分です。
'checks if this string is empty or has only whitespace characters
function isEmptyOrWhiteSpace(stringToCheck)
dim returnValue
returnValue = false
if len(stringToCheck) = 0 then
returnValue = true
elseif len(trim(stringToCheck)) = 0 then
returnValue = true
else
'remove all whitespace characters other then spaces
dim replacedString
replacedString = replace(stringToCheck, vbTab, "")
replacedString = replace(replacedString, vbNewline, "")
replacedString = replace(replacedString, vbCRLF, "")
'Other characters to replace?
if len(trim(replacedString)) = 0 then
returnValue = true
end if
end if
'return
isEmptyOrWhiteSpace = returnValue
end function
あなたは方法が空白文字をミスことhttps://stackoverflow.com/a/26108809/603855 –