テキストボックス　マルチライン設定から表示されてる行の抜出し への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 初心者  (社会人) 投稿日時 2017/6/27 14:45:08
ねこまっしぐらさん、ｓｈｕさん
ご記入ありがとうございました。

お二人のアドバイスから以下のプログラムを作成し、
無事折り返した部分までを抽出することができました。

Dim COUNT As Integer = TextBox1.GetLineFromCharIndex(TextBox1.TextLength) + 1

Dim A(0 To 50) As String 
Dim B(0 To 50) As Integer

        For i = 0 To COUNT
            B(i) = TextBox1.GetFirstCharIndexFromLine(i)
        Next

        For x = 0 To COUNT - 1
            If B(x + 1) = -1 Then
                A(x) = Mid(TextBox1.Text, B(x) + 1)
            Else
                A(x) = Mid(TextBox1.Text, B(x) + 1, B(x + 1) - B(x))
            End If
        Next


無駄な記述や未入力時にエラー等になるかもしれませんが、
これにて解決とさせて頂きます。


0
投稿者 shu  (社会人) 投稿日時 2017/6/27 07:18:16
TextBox1.GetFirstCharIndexFromLine(<0を起点とする行番号>)
で指定した行の始まる位置が取得出来るので

idx1 = TextBox1.GetFirstCharIndexFromLine(0)
と
idx2 = TextBox1.GetFirstCharIndexFromLine(1)
を求め
idx2が-1ならidx1以降最後まで、そうでなければidx2の手前まで
文字列を取得すればよいです。0行目は0から始まるのであえて
求めなくてもよいです。
0
投稿者 ねこまっしぐら  (社会人) 投稿日時 2017/6/26 21:13:23
GetLineFromCharIndexをテキスト全部に対してすれば行の変化が分かります

http://www.gazo.cc/up/247286.jpg

0
投稿者 初心者  (社会人) 投稿日時 2017/6/26 18:24:23
恐れ入りますがド素人にアドバイスをお願いします。

TextBox1にMultiline、WordWrapをTrueで設定し、複数行入力できる形式にしてあります。
行単位で抜出しする場合は、TextBox1.lines()を使用しております。

今回お聞きしたい事は、TextBox1に入力をし続けて右端で自動で折り返した場合、
折り返した部分までを抽出したいです。

例）　　　　　　　　　　　　　　　　　　　   ↓ここまでがTextBox1の右端とします　　　　　　　　　　　　　　　　　
｜あああああああああああああああ｜
｜あああああああああああああああ｜
｜ああ           　　　　　　　　　　　　 　｜

Ｅｎｔｅｒキーを使わずに「あ」を３２個入力し、TextBox1.lines(0)を使用すると「あ」が３２個抽出されます。
実際は折り返した部分までが欲しい為、「あ」を１５個抽出したいです。

分かり難い説明で申し訳ありませんが、ヒントとなる一言だけでも構いませんので、
お力を貸してください。



0