過去ログ

                                Page     115
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼テキストボックスの行末が改行で終わっているか  haru 02/9/23(月) 13:54
   ┗Re:テキストボックスの行末が改行で終わっ...  つん 02/9/23(月) 15:16
      ┗RE: Re:テキストボックスの行末が改行で終わっ...  haru 02/9/23(月) 17:32

 ───────────────────────────────────────
 ■題名 : テキストボックスの行末が改行で終わっているか
 ■名前 : haru
 ■日付 : 02/9/23(月) 13:54
 -------------------------------------------------------------------------
    複数行入力できるテキストボックスで、最後の行末が改行で終わ
っているか調べたいのですが、

  If RightB(textbox1.Value, 2) = vbCrLf Then

 では、うまくいきません。
 何か良い方法はありませんか?
 よろしくお願いします。
 ───────────────────────────────────────  ■題名 : Re:テキストボックスの行末が改行で終わっ...  ■名前 : つん <honey@sweetparty.ne.jp>  ■日付 : 02/9/23(月) 15:16  -------------------------------------------------------------------------
   どもども

> 複数行入力できるテキストボックスで、最後の行末が改行で終わ
>っているか調べたいのですが、
>
>  If RightB(textbox1.Value, 2) = vbCrLf Then
>
> では、うまくいきません。
> 何か良い方法はありませんか?
> よろしくお願いします。

  If Right(TextBox1.Value, 1) = vbLf Then
    MsgBox "改行"
  End If

これで、うまくいったようです。
 ───────────────────────────────────────  ■題名 : RE: Re:テキストボックスの行末が改行で終わっ...  ■名前 : haru  ■日付 : 02/9/23(月) 17:32  -------------------------------------------------------------------------
   ▼つんさん、こんにちは。
 早速の御返事ありがとうございます。

>  If Right(TextBox1.Value, 1) = vbLf Then
>    MsgBox "改行"
>  End If
>これで、うまくいったようです。
 デバッガで見ると、2バイトあるみたいですが、1バイト見れば
それで良いんですね。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 115