VB.NET でヒアドキュメント風

SQL文をVB.NETコード内で直接記述したいとき、

(1)

Dim query = _
	"select  *" & vbLf & _
	"from    hoge" & vbLf & _
	"where   a=1" & vbLf & _
	"and     b in('1','2','3')" & vbLf & _
	"order by" & vbLf & _
	"        a,b,c"

こんな書き方をしてませんか？
面倒ですよね。
ヒアドキュメント風にしてみましょう。

(2)

Dim query = <Query>
	select  *
	from    hoge
	where   a=1
	and     b in('1','2','3')
	order by
	        a,b,c
	</Query>.Value.Trim()

スッキリしました。
これはXMLリテラルを利用しています。
そのため、"<" や ">" が含まれる場合はエラーになってしまいます。
もうちょっと工夫してみましょう。

(3)

Dim query = <Query><![CDATA[
	select  *
	from    hoge
	where   a=1
	and     b<>1
	order by
	        a,b,c
]]></Query>.Value.Trim()

CDATAセクションを使うことで、"<" や ">" が含まれる場合も対応できます。
"]]>" という文字列が含まれる場合はこのやり方でもエラーになってしまいますが、
SQL文などを扱う分にはほぼ問題にならないでしょう。