Visual Basic

<br />
Public Function Extract(ByVal TextIN As String, Optional StartTag As String = " ", Optional ByVal EndTag As String = " ", Optional ByVal CheckCase As Boolean) As String<br />
    On Error GoTo LocalError<br />
    ' Extracts Text from string using start and end "tags"<br />
    'NB:    If EndTag is ommitted the entire string from:<br />
    '       StartTag to EndOfString is returned...<br />
    Dim lArray As Variant<br />
    Extract = ""<br />
    lArray = Split(TextIN, StartTag)<br />
    If IsArray(lArray) Then<br />
        Extract = lArray(1)<br />
        lArray = Split(Extract, EndTag)<br />
        If IsArray(lArray) Then<br />
            Extract = lArray(0)<br />
        Else<br />
            Extract = ""<br />
        End If<br />
    End If<br />
Exit Function<br />
LocalError:<br />
    Extract = ""<br />
End Function<br />

kshincsk wrote:

I found just the perfect piece of code.

Knight_Rider wrote:

CopyMemory in .Net

Knight_Rider wrote:

isn't working

For i As Integer = 0 To length / 2 - 1<br />
            SBVocCut32Buf(i) = buffer.ToString(i)<br />
        Next

<br />
For i As Integer = 0 To SBVocCut32Buf.Length - 1<br />
    buffer += SBVocCut32Buf(i)<br />
Next<br />

    Public Sub SBVocalCut32(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)<br />
        Dim SBVocCut32Buf() As Single, SBVocCut32CSample As Long<br />
        Dim SBVocCut32DM As Single<br />
        ReDim SBVocCut32Buf(length)<br />
       <br />
 Dim MyGC As GCHandle = GCHandle.Alloc(buffer, GCHandleType.Pinned)<br />
 Dim AddofLongValue As IntPtr = MyGC.AddrOfPinnedObject()<br />
<br />
        Marshal.Copy(AddofLongValue, SBVocCut32Buf, 0, length)<br />
        ' Call CopyMemory(SBVocCut32Buf(0), buffer, length / 2)<br />
<br />
        For SBVocCut32CSample = 0 To length / 2 - 1 Step 2<br />
            SBVocCut32DM = ((0 - SBVocCut32Buf(SBVocCut32CSample)) + SBVocCut32Buf(SBVocCut32CSample + 1)) / 2<br />
            SBVocCut32Buf(SBVocCut32CSample) = SBVocCut32DM<br />
            SBVocCut32Buf(SBVocCut32CSample + 1) = SBVocCut32DM<br />
        Next SBVocCut32CSample<br />
<br />
<br />
        Marshal.Copy(SBVocCut32Buf, 0, AddofLongValue, length)<br />
        'Call CopyMemory(buffer, SBVocCut32Buf(0), length / 2)<br />
    End Sub

Luc Pattyn wrote:

Write your own copy loop and get done with it!

Henry Minute wrote:

I love it when you are masterful!

Computafreak wrote:

(unless you like the elegant, flowing symbols of C#)

Computafreak wrote:

It comes in two flavours - legacy and normal.

Christian Graus wrote:

It's a beer,