Help: how retrieve first line from memofield?

re: Help: how retrieve first line from memofield?

This should work (but is not tested):

Public Function FirstLineOfText(strFromText As String) As String
Dim strResult As String
Dim lngLineBreakPos As Long
lngLineBreakPos = InStr(strFromText,vbCrLf)
If lngLineBreakPos > 0 Then
strResult = Left$(strFromText, lngLineBreakPos - 1)
Else
strResult = strFromText
End If
FirstLineOfText = strResult
End Function

If this is to be used when Nulls are possible, then perhaps, this...

Public Function FirstLineOfText(varFromText As Variant) As Variant
Dim varResult As Variant
Dim lngLineBreakPos As Long
varResult= Null
If IsNull(varFromText) Then Goto Fn_Return
lngLineBreakPos = InStr(varFromText,vbCrLf)
If lngLineBreakPos > 0 Then
varResult = Left$(varFromText, lngLineBreakPos - 1)
Else
varResult = varFromText
End If
Fn_Return:
FirstLineOfText = varFromText
End Function


On Mon, 3 Nov 2003 17:43:06 +1100, "Norman Fritag" <mtp.net@ozemail.com.au>
wrote:
[color=blue]
>[/color]

re: Help: how retrieve first line from memofield?

thanks Steve
your input was very much appreciated.
Regards
Norman
"Steve Jorgensen" <nospam@nospam.nospam> wrote in message
news:dp1cqvo4q0enbtbd88e0jtjeg18e7b24c0@4ax.com...[color=blue]
> This should work (but is not tested):
>
> Public Function FirstLineOfText(strFromText As String) As String
> Dim strResult As String
> Dim lngLineBreakPos As Long
> lngLineBreakPos = InStr(strFromText,vbCrLf)
> If lngLineBreakPos > 0 Then
> strResult = Left$(strFromText, lngLineBreakPos - 1)
> Else
> strResult = strFromText
> End If
> FirstLineOfText = strResult
> End Function
>
> If this is to be used when Nulls are possible, then perhaps, this...
>
> Public Function FirstLineOfText(varFromText As Variant) As Variant
> Dim varResult As Variant
> Dim lngLineBreakPos As Long
> varResult= Null
> If IsNull(varFromText) Then Goto Fn_Return
> lngLineBreakPos = InStr(varFromText,vbCrLf)
> If lngLineBreakPos > 0 Then
> varResult = Left$(varFromText, lngLineBreakPos - 1)
> Else
> varResult = varFromText
> End If
> Fn_Return:
> FirstLineOfText = varFromText
> End Function
>
>
> On Mon, 3 Nov 2003 17:43:06 +1100, "Norman Fritag"[/color]
<mtp.net@ozemail.com.au>[color=blue]
> wrote:
>[color=green]
> >[/color]
>[/color]