■ マルチラインテキストの改行とIF
ささ
2008/02/19(火) 11:38:26
マルチラインテキストtext1で、改行のみを入力します。
下記のコードで、改行だけの文字入力なしは、
文字列変数strには、""が格納されてるのですが
if文はFALSEになってしましいます。
OKと表示するIF文の条件はどうすればよいのでしょうか？
str = Text1.Text
If str = "" Then
MsgBox "OK"
End If
ガッ
2008/02/19(火) 11:41:53 <初心者> 
> 文字列変数strには、""が格納されてる
この確認方法がたまたま制御コードを無視するものだったのでしょう．
多分VB6だと思いますが，次のようにすればどうなりますか？
str=text1.text
if str=vbNewLine Then MsgBox "NewLine"
if str=vbCr Then MsgBox "Cr"
if str=vbLf Then MsgBox "Lf"
if str=vbCrLf Then MsgBox "CrLf"
ささ
2008/02/19(火) 14:23:04
改行が２個あると、上記のコードではダメです。
left関数も使えまん。
KG
2008/02/19(火) 19:03:43
Replace関数で改行を空白に置換してから比較してみればいいのでは？
毎週金曜日はポイント最大3倍！さらに4倍のチャンスも！
