VBScript: 文字列に改行コードを含むか判定する方法
VBScriptで文字列に改行コードを含むか判定したい場合、
特に専用の関数はありません。
そこで関数(chkNewline)を自作しました。
改行コードを3種類(vbCrLF、vbCr、vbLf)とし、
それぞれが文字列に含まれているかどうかをInstr 関数で判定します。
改行コードが含まれている場合は「True(-1)」が返り、
含まれていない場合は「False(0)」が返ります。
chkNewline関数のコードと使い方は次の通りです。
' 改行コードが含まれるかを判定 Function chkNewline(s) If InStr(s, vbCrLf) > 0 Then chkNewline = True ElseIf InStr(s, vbCr) > 0 Then chkNewline = True ElseIf InStr(s, vbLf) > 0 Then chkNewline = True Else chkNewline = False End If End Function ' 使用方法 str = "abcdefg" WScript.Echo chkNewline(str) ' 0 str = "abcd" & vbCrLf & "efg" ' -1 WScript.Echo chkNewline(str) str = "abcd" & vbLf & "efg" WScript.Echo chkNewline(str) ' -1