borderAndreaVB free resources for Visual Basic developersborder
AndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincani
:: Removes the text upto the passed St$ character...

Author  

David Costelloe

Language  

VB4, VB5, VB6

Operating Systems  

Windows 95, 98 and NT
Module

Public Function DWCStripTextField(t$, St$)
'***************************************************************************
'* Usage : Removes the text upto the St$ character
'* example : Text.text = "Hello There;12345"
'* Call DWCStripTextField(Text.Text,";")
'* Will give the result of "Hello There"
'****************************************************************************

    Dim i As Long

    i = InStr(t$, St$)
    If i Then
        DWCStripTextField = Left$(t$, i - 1)
    Else
        DWCStripTextField = Trim$(t$)
    End If
End Function

:: Navigation

Home

Beginners Corner

Previous Tip

Next Tip

:: Search this site
Google
borderAndreaVB free resources for Visual Basic developersborder
borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2017 Andrea Tincaniborder