Kbase 21221: OPEN CLIENT: Implementing VB Equivalent to 4GL NUM-ENTRIES Function
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
11/12/2002 |
|
Status: Unverified
GOAL:
How to implement the 4GL NUM-ENTRIES function in Visual Basic.
FIX:
Public Function NumEntries _
(ByVal cList As String, _
Optional ByVal cDelimiter As String = ",") As Long
NumEntries = IIf(cList <> "", 1, 0) + Len(cList) - _
(Replace(cList, cDelimiter, "", , , vbTextCompare))
End Function