FlowFact - Entwicklungstools v19.881 FLOWFACT 2017 R2 - Sub - GetItem

Anrede abfragen

Sub GetItem(ByVal Index As Integer, ByRef strSalutationShort As Variant, ByRef strSalutationLong As Variant, ByRef strSalutationLetter As Variant)


Index: Index der Anrede in der Liste
strSalutationShort: Anredekürzel; z.B. Herr, Frau, Firma, ... oder Leerstring
strSalutationLong: Anrede
strSalutationLetter: Briefanrede


Public Sub GetItem(ByVal Index As Integer, ByRef strSalutationShort As Variant, ByRef strSalutationLong As Variant, ByRef strSalutationLetter As Variant)
    Dim strLine As String

    strLine = m_oList.Item(Index)

    strSalutationShort = help_StrList_DeleteFirst(strLine, vbTab)
    strSalutationLong = help_StrList_DeleteFirst(strLine, vbTab)
    strSalutationLetter = help_StrList_DeleteFirst(strLine, vbTab)
End Sub