Kbase 21220: OPEN CLIENT: Implementing VB Equivalent to 4GL ENTRY Function
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
15/06/2007 |
|
Status: Unverified
GOAL:
How to implement the 4GL ENTRY function in Visual Basic.
FIX:
Public Function Entry _
(ByVal iElement As Long, _
ByVal cInputString As String, _
Optional ByVal cDelimiter As String = ",") As String
Dim cElement() As String
cElement = Split(cInputString, cDelimiter, -1, vbTextCompare)
Entry = cElement(iElement - 1)
End Function