Class HashStringSample
Shared Function HasString(ByVal target As String, ByVal word As String) As Boolean
If word = "" Then
Return False
End If
If target.IndexOf(word) >= 0 Then
Return True
Else
Return False
End If
End Function
Shared Sub Main()
Dim str As String = "ろうにゃくなんにょ"
Console.WriteLine(HasString(str, "にゃく")) ' 出力:True
Console.WriteLine(HasString(str, "にゃん")) ' 出力:False
Console.WriteLine(HasString(str, "")) ' 出力:False
End Sub
End Class