VB Textbox to Excel [Resolved]

[royshh]

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?

[RobDog888]

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

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

[royshh]

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.

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

[RobDog888]

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