Hej!

Jag får en sträng med data, men det är inte alltid intressant att ta hand om det som skickas till min rutin.

Hur använder man filter-funktionen?

Filter(InputStrings, Value[, Include[, Compare]])

Exempel:

MyString innehåller "ABCDE*12345*".

Jag vill bara plocka ut *12345* ur denna sträng (och spara i en annan sträng) och nästa gång kanske strängen innehåller "QWERTY", vilket jag inte alls är intresserad av.

Argh!

/fredrik

Filter() funktionen filtrerar en sträng array. <br>
<br>
Gör istället så här:<br>
<code>
Function GetPart(Text As String, Prefix As String, Sufix As String) As String
Dim lStart as Long
Dim lStop as Long
lStart = Instr(Text, Prefix)
If lStart > 0 Then
lStart = lStart + Len(Prefix)
lStop = Instr(lStart, Text, Prefix)
If lStop > 0 Then
GetPart = Mid(Text, lStart, lStop - lStart)
End If
End If
End Function
</code>
Ej hunnit testa koden. Skrev den på en dator utan vb.