![]() |
FlowFact - Entwicklungstools |
![]() |
Function | EMSK_NameByDSNList(ByVal strDsnCommaList As String) As String |
strDsnCommaList: Durch Komma getrennte DSN's. Rückgabewert: Durch Komma getrennte Namensliste (gleiche Anzahl, wie in DSN-Liste) Public Function EMSK_NameByDSNList(ByVal strDsnCommaList As String) As String Dim strDsn As String Dim strResult As String strResult = "" While strDsnCommaList <> "" strDsn = m_oTools.StrList_DeleteFirst(strDsnCommaList, ",") '#todo# das kann noch optimiert werden strResult = EMSK_NameByDSN(strDsn) & "," Wend '-- letztes Komma entfernen If strResult <> "" Then strResult = Mid(strResult, 1, Len(strResult) - 1) End If EMSK_NameByDSNList = strResult End Function |