VB Textbox to Excel [Resolved]

Hi there,

I have a textbox on my VB form which contains the following.

VM-1 Control Computer running Venom-SC
Version 2004 01 08
Copyright 2000-2004 Micro-Robotics Ltd.
Clear memory: Y/N/S ?N
-->init
-->main
==>print fs
RAM Filesystem files: (* = open)
17-05-05-0944 116
17-05-05-1215 116
17-05-05-1224 116
17-05-05-1329 44
17-05-05-1338 136
17-05-05-1347 136
17-05-05-1354 136
17-05-05-1406 136
17-05-05-1417* 156
Free space 56 blocks = 28672 bytes
==>print freqvalue
87
87
87
87
96
68
68
68
68
68
68
68
68
121
31
31
31
21
-39
60
60
60
60
60
60
60
60
60
60
60
60
60
60
60
60
-39
60
60
-139
==>

The number of integers varies each time i run the program.

What i need to do is extract the integers between the lines ==>print freqvalue and ==>.

These values must then be automatically sent to an Excel file where each integer will appear in a different cell of the first column.

I already have code which sends the entire contents of the textbox to a single cell (A1).

Can anyone help?

You just need to parse out the data using Instr & Mid$ string functions.

VB Code:

Dim iStart as integer
dim iEnd as integer
dim sData as string
dim iData() as integer
istart = instr(1, Text1.text, "==>print freqvalue")
if istart > 0 then 'found
    iend = instr(istart + 1, Text1.text, "==>")
    sdata = mid$(Text1.text, istart, iend - istart)
    idata = split(sdata, ",")
    'Loop though the array of integers adding to excel
    '...
    '...
else
    msgbox "data not found"
endif

I tried using your code but unfortunately it didn't work.
Thanks for your help anyway.

Someone else gave me the following code and it works perfectly.

VB Code:

Dim strRaw As String
    Dim strStartKey As String
    Dim i As Integer
    Dim r As Integer
    Dim Numbers As Variant
    strRaw = TextBox1.Text
    strStartKey = "==>print freqvalue"
    strRaw = Right(strRaw, Len(strRaw) - InStr(1, strRaw, strStartKey, vbTextCompare) _
        - Len(strStartKey) - 1) 'Minus another 1 for CR/LF
    Numbers = Split(strRaw, Chr(13), -1, vbTextCompare)
    r = 0
    For i = 0 To UBound(Numbers)
      If IsNumeric(Numbers(i)) Then
        r = r + 1
        Cells(r, 1).Value = Int(Numbers(i))
      End If
    Next i

Mine was an example as you could see the comments for looping and such, but glad you got it solved. ;)