Re: RichText Fieldで行頭を判断したい

Article View: fj.lang.visualbasic

Article #362

Back to fj.lang.visualbasic Previous Next

#362

From: 市崎大介
Date: Sat, 21 Mar 1998 00:00

28 lines
1366 bytes


Kensuke Yamaguchi wrote in message <35123545.9D8A955@liv.yamaha.co.jp>...
>RichText Fieldで行頭もしくは改行を拾いたいのですが、うまい方法を教えて下さ
い。
>lnStrで0E0Aを拾う方法は駄目でした。(TextBoxではＯ．Ｋ．）


拾うコードは0D0Aですよね？
改行コードをあらわす定数としてvbCrLfが定義されているので、
それを使うと間違いがなくてよいですよ。

以下のコードでテストしました。参考までに。

Dim intCount As Integer
Dim intHit As Long

intHit = 1

Do
    intHit = InStr(intHit, RichTextBox1.Text, vbCrLf)
    If intHit Then
        intHit = intHit + 2
        intCount = intCount + 1
    End If
Loop While intHit

MsgBox intCount

Technical Details

Message-ID: <6eug1o$480$1@nn-tk003.ocn.ad.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <35123545.9D8A955@liv.yamaha.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,52afd073543c7b94
X-Google-Attributes: gid105c2e,public
From: "市崎 大介" <ichizaki@triad.ne.jp>
Subject: Re: RichText Fieldで行頭を判断したい
Date: 1998/03/21
Message-ID: <6eug1o$480$1@nn-tk003.ocn.ad.jp>
X-Deja-AN: 336040194
Content-Transfer-Encoding: 7bit
References: <35123545.9D8A955@liv.yamaha.co.jp>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-2022-jp"
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
Organization: NTT Open Computer Network
Newsgroups: fj.lang.visualbasic

Reply to Parent Message