Michael Clease
18-11-2011, 21:33
Here is a simple example of the usage of the Extract$ keyword.
' Usage of the EXTRACT$ Keyword example'
' Written by Michael Clease
Dim sMainString As String Value "The quick brown fox jumped over the lazy dogs"
Dim sMatchString As String Value "over"
Dim sExtractString As String
DIM Start as DWORD VALUE 4
DIM sMsg as string
sExtractString = Extract$(Start,sMainString, sMatchString)
sMsg = "sMainString = " & sMainString & $CRLF
sMsg += "sMatchString = " & sMatchString & $CRLF
sMsg += "sExtractString = " & sExtractString & $CRLF & $CRLF
MsgBox 0, sMsg
' Usage of the EXTRACT$ Keyword example'
' Written by Michael Clease
Dim sMainString As String Value "The quick brown fox jumped over the lazy dogs"
Dim sMatchString As String Value "over"
Dim sExtractString As String
DIM Start as DWORD VALUE 4
DIM sMsg as string
sExtractString = Extract$(Start,sMainString, sMatchString)
sMsg = "sMainString = " & sMainString & $CRLF
sMsg += "sMatchString = " & sMatchString & $CRLF
sMsg += "sExtractString = " & sExtractString & $CRLF & $CRLF
MsgBox 0, sMsg