2021-06-10

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