[RESOLVED] RichTextBox find extract ?

[VB Client/Server]

Ok I receive info info in my richtectbox and it look's like this

Progress.....: 3264512000000/1000000000000000 (12.33%)
HW.Monitor.#1: 99% GHW, 76c Temp
HW.Monitor.#2: 98% GHW, 72c Temp
HW.Monitor.#3: 97% GHW, 75c Temp
HW.Monitor.#4: 96% GHW, 65c Temp

what I need only is percentage (12.33) to be extracted to txt1

from HW.Monitor#1 only temp as value "76" to txt2
from HW.Monitor#2 only temp as value "72" to txt3
from HW.Monitor#3 only temp as value "75" to txt4
from HW.Monitor#4 only temp as value "65" to txt5

[VBClassicRocks]

Hmm, just some string manipulation:

Private Sub Form_Load()
 Dim Arr() As String
 Dim Txt As String
 Dim i As Long
 Dim op As Long
 Dim cp As Long
 Txt = "Progress.....: 3264512000000/1000000000000000 (12.33%)" & vbNewLine & _
      "HW.Monitor.#1: 99% GHW, 76c Temp" & vbNewLine & _
      "HW.Monitor.#2: 98% GHW, 72c Temp" & vbNewLine & _
      "HW.Monitor.#3: 97% GHW, 75c Temp" & vbNewLine & _
      "HW.Monitor.#4: 96% GHW, 65c Temp"
 Arr = Split(Txt, vbNewLine)
 op = InStrRev(Arr(0), "(")
 cp = InStr(op + 1, Arr(0), ")")
 Debug.Print Mid$(Arr(0), op + 1, cp - op - 2)
 For i = 1 To UBound(Arr)
  Debug.Print Left$(Split(Arr(i))(3), 2)
 Next
End Sub

[MartinLiss]

The code would be shorter if your textboxes were a control array

Dim lngPos1 As Long
    Dim lngPos2 As Long
    
    lngPos1 = InStr(1, RichTextBox1.Text, "%")
    lngPos2 = InStrRev(RichTextBox1.Text, "(", lngPos1)
    Txt1.Text = Mid$(RichTextBox1.Text, lngPos2 + 1, lngPos1 - lngPos2 - 1)
    
    lngPos1 = InStr(1, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt2.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt3.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt4.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt5.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)

[VB Client/Server]

But i receive more info in my richtextbox, I want only to extract temp value and progress !
So need to find only this line and extract thouse value.
I try with your code but not working correctly

[VB Client/Server]

The code would be shorter if your textboxes were a control array

Dim lngPos1 As Long
    Dim lngPos2 As Long
    
    lngPos1 = InStr(1, RichTextBox1.Text, "%")
    lngPos2 = InStrRev(RichTextBox1.Text, "(", lngPos1)
    Txt1.Text = Mid$(RichTextBox1.Text, lngPos2 + 1, lngPos1 - lngPos2 - 1)
    
    lngPos1 = InStr(1, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt2.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt3.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt4.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    lngPos1 = lngPos1 + Len("GHW, ") - 1
    lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
    Txt5.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)

I just checked again, your code working fine, but what about if I
have only

Progress.....: 3264512000000/1000000000000000 (12.33%)
HW.Monitor.#1: 99% GHW, 76c Temp
HW.Monitor.#2: 98% GHW, 72c Temp

or

Progress.....: 3264512000000/1000000000000000 (12.33%)
HW.Monitor.#1: 99% GHW, 76c Temp
HW.Monitor.#2: 98% GHW, 72c Temp
HW.Monitor.#3: 97% GHW, 75c Temp

when I receive info or only 1

Progress.....: 3264512000000/1000000000000000 (12.33%)
HW.Monitor.#1: 99% GHW, 76c Temp

so how many HW.Monitor lines will find only for them to extract value's
max is 4 GHW

[MartinLiss]

For txt2, 3, 4, and 5 do

    
lngPos1 = InStr(1, RichTextBox1.Text, "GHW, ")
If lngPos1 > 0 Then
        lngPos1 = lngPos1 + Len("GHW, ") - 1
        lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
        Txt2.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    End If

[VB Client/Server]

For txt2, 3, 4, and 5 do

    
lngPos1 = InStr(1, RichTextBox1.Text, "GHW, ")
If lngPos1 > 0 Then
        lngPos1 = lngPos1 + Len("GHW, ") - 1
        lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
        Txt2.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    End If

hm, can U add full code, seems I missing something

[MartinLiss]

Dim lngPos1 As Long
    Dim lngPos2 As Long
    
    lngPos1 = InStr(1, RichTextBox1.Text, "%")
    lngPos2 = InStrRev(RichTextBox1.Text, "(", lngPos1)
    Txt1.Text = Mid$(RichTextBox1.Text, lngPos2 + 1, lngPos1 - lngPos2 - 1)
    
    lngPos1 = InStr(1, RichTextBox1.Text, "GHW, ")
    If lngPos1 > 0 Then
        lngPos1 = lngPos1 + Len("GHW, ") - 1
        lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
        Txt2.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    End If
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    If lngPos1 > 0 Then
        lngPos1 = lngPos1 + Len("GHW, ") - 1
        lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
        Txt3.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    End If
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    If lngPos1 > 0 Then
        lngPos1 = lngPos1 + Len("GHW, ") - 1
        lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
        Txt4.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    End If
    
    lngPos1 = InStr(lngPos2, RichTextBox1.Text, "GHW, ")
    If lngPos1 > 0 Then
        lngPos1 = lngPos1 + Len("GHW, ") - 1
        lngPos2 = InStr(lngPos1, RichTextBox1.Text, "c")
        Txt5.Text = Mid$(RichTextBox1.Text, lngPos1, lngPos2 - lngPos1)
    End If

[VB Client/Server]

Thx, working great!