Web Development

Function TruncWithChar (data, length, char)
	' if we don't find the char, just return the string
	If Not InStr(Left(data, length), char) > 0 Then
		TruncWithChar = Trim(Left(data, length))
		Exit Function
	End If

	' check for the char
	If Mid(data, length, 1) = char Then
		TruncWithChar = Trim(Left(data, length))
	Else
		' it's not, find the last position
		x = InStrRev(Left(data, length), char)
		TruncWithChar = Trim(Left(data, x))
	End IF
End Function

TruncWithChar("Let me tell ya story 'bout a man named Jed.  Poor mountaineer", 50, ".")