Opdatere tekststreng med Wildcards

Heres a couple of functiones you can use to extract Reg and battery.
No error handling, I'll leave that for you ;-)

Function GetReg(sEmne As String) As String

Dim i As Integer
Dim j As Integer

   
    GetReg = "Error.."
   
    i = InStr(sEmne, "Reg: ")
    If i > 1 Then
        j = InStr(i + 5, sEmne, " ")
        If j > 1 Then

            GetReg = Mid(sEmne, i + 5, j - (i + 5))
       
        End If
   
    End If


End Function


Function GetBattery(sEmne As String) As String

Dim i As Integer
Dim j As Integer

   
    GetBattery = "Error.."
   
    i = InStr(sEmne, "Battery level: ")
    If i > 1 Then
        j = InStr(i + 14, sEmne, "v")
        If j > 1 Then

            GetBattery = Mid(sEmne, i + 14, j - (i + 14))
       
        End If
   
    End If


End Function

Hej Terry

Det sidder lige i skabet, som man siger !
Faktisk ret smart kode....;o)

1000 tak for hjælpen..

mvh martens

Hej Martens
I'm sure the code could be simplified, but as they say, "If it ain't broke, don't fix it'.

mvh Terry