Extracting data from com.

you could use Instr to return the position of the string within the string:

Private Sub Command1_Click()
Dim sInf As String
Dim sNew As String
Dim fPos As Integer
Dim ePos As Integer
sInf = "sdkfjjk545lemon52kdfg"
fPos = InStr(1, sInf, "5")
ePos = InStr(fPos + 1, sInf, "5")
sNew = Mid(sInf, fPos + 1, ePos - fPos - 1)
MsgBox sNew
End Sub

Here's an example that will fit if there are multiple finds and not finds between two "5s"

Dim str As String

Dim lFoundLocation As Long
Dim bFoundLeftDelimeter As Boolean
Dim aFoundBetween() As String


lLastFoundLocation = 1
'Here are the strings I tested with
'str = "sdkfjjk545lemon52kdfg"
'str = "5ANY55"
'str = "55ANY5"
'str = "55ANY55"
str = "5word15nottobefound5word25"

Do
   
    lFoundLocation = InStr(lLastFoundLocation, str, "5")
    If lFoundLocation > 0 Then
        lFoundOccurance = lFoundOccurance + 1
        bFoundLeftDelimeter = (lFoundOccurance Mod 2 <> 0)
        If bFoundLeftDelimeter = True Then
            str = Mid$(str, lFoundLocation + 1)
        Else
           
            ReDim Preserve aFoundBetween(1 To lFoundOccurance / 2)
            aFoundBetween(UBound(aFoundBetween)) = Left$(str, lFoundLocation - 1)
            str = Mid$(str, lFoundLocation + 1)
        End If
       
    Else
        'Note:  If you want to get the remaining characters, uncomment this
        'If bFoundLeftDelimeter = True Then
        '
        '    ReDim Preserve aFoundBetween(1 To lFoundOccurance / 2)
        '    aFoundBetween(UBound(aFoundBetween)) = str
        '    MsgBox aFoundBetween(UBound(aFoundBetween))
        'End If
       Exit Do
    End If
   
   
Loop

For lFoundLocation = LBound(aFoundBetween) To UBound(aFoundBetween)
   
    MsgBox "aFoundBetween (" & lFoundLocation & ") =" & aFoundBetween(lFoundLocation)
   
Next

I'm sorry but i guess i'm not clear enough, to be more precise, I'll be getting all sorts of data I don't even know. What I'm sure of is I'll be getting a couple of five's and whole lots of other chr or int. The main problem here is I have to extract the data between two 5's, that's the key word i guess. And between the two five's, they have to be 5 bytes. In other words, the data is random,eg. XXXXXXX5"5bytes"5XXXXXX. the 5 might also appear any where in the X location.  

I have thought of using instr, to locate the first 5. Then let it = to a. Then a + 5bytes. If the answer = to 5 again, that's the data i want to extract by using mid function. If not, Locate the second 5 and Loop from the start till i get what i want.

Thankz.

Thankz twalgrave. =)

Hi twalgrave, I wrote an assembly language using ceibo windows debugger. The hardware is connected to com port one. Do you have any idea how can I activate the .hex file using vb? Just like an attention command to call for my .hex file to run the program. I tried to use mscomm to open the commport1, so that i can send something to my hardware, but it says something like comm port 1 is already open.(as the hardware is connected to comm port one.) All comments welcome.


Ps: the program just works well. =)

Sorry, I have no idea about ceibo or .hex files