dotNETportal.cz

Ahoj!

Je prosím Vás možné zjistit a případně jak, načíst na základě pozice vyhledávaného znaku

v textu, číslo řádku resp. text v řádku uložit do proměnné .VB NET 2010

Děkuji

Dim c as Integer = 0
Dim text as String =""

        Do While poziceZnaku <> 0
         c = RichtextBox1.Text.IndexOf("T", c + 1) 'zjistí pozici T
        'text = text v celém řádku dle pozice proměnné c  ????
        Loop

Nevím přesně co myslíš, ale na zjištění pozice písmene stačí toto

Dim c As Integer = 0
Dim text As String = ""

For i As Integer = 0 To Len(c)
    c = RichTextBox1.Text.IndexOf("T")
Next
text = c + 1

Proč rovnou nepoužijete vlastnost Lines

For Each line In RichTextBox1.Lines
            Dim posTonLine As Integer = line.IndexOf("T")
            ...
        Next

No mě nejde o to najít pouze pozici písmene,tu najít umím,ale jde o to

následně na základě pozice vyhledaného písmene v textu zjistit na kterém řádku se to hledané

písmeno nachází(resp.potřebuji znát obsah toho řádku).Nechce se mi procházet to cyklem For i / Next i , řádek po řádku,protože je možné že text bude mít i několik tisíc řádků(v krajní situaci),ale vyhledávat to může pouze 2...3..nějaké znaky v celém textu,takže zbytečně zdlouhavé!!!

Potřebuji to k vytvoření další podmínky při nahrazení vyhledaného znaku za jiný,ale k tomu potřebuji znát právě obsah celého řádku,ve kterém se ten hledaný znak nachází a s tím dále pracovat.

Omlouvám se, snad jsem to už popsal trochu srozumitělně....

Dim pos As Integer = Me.RichTextBox1.Text.IndexOf("T")
        Dim startPos As Integer = InStrRev(Me.RichTextBox1.Text, vbLf, pos)
        Dim endPos As Integer = Me.RichTextBox1.Text.IndexOf(vbLf, pos)
        endPos = IIf(endPos < 0, Me.RichTextBox1.Text.Length, endPos)
        Dim row As String = Me.RichTextBox1.Text.Substring(startPos, endPos - startPos)

SUPER.....,to je přesně co jsem potřeboval!!!!

Použil jsem druhou variantu.

Děkuji mnohokrát.