FlowFact - Entwicklungstools

zurück

Function - OBJ_Bild_MakeFileName
Objektbild Dateinamen generieren

  Function OBJ_Bild_MakeFileName(ByVal rsOBJ As ADODB.Recordset, ByVal intIndex As Long, ByVal strBezeichnung As String, ByVal strFileExt As String) As String  
 


rsObj: Recordset, das von OBJ_New oder OBJ_Find_XXX zurückgegeben wurde. Auch ein 'm_oBase.FF_GetRecordset("SELECT * FROM OBJ ...")' ist möglich.
intIndex: =0 Kurzexpose; >0 Langexpose
strBezeichnung: Bildtext z.B. Rückansicht
strFileExt: Dateierweiterung der Bilddatei z.B. ".jpg"
Rückgabe: Datei- und Pfadangabe zur Bilddatei


Public Function OBJ_Bild_MakeFileName(ByVal rsOBJ As ADODB.Recordset, ByVal intIndex As Long, ByVal strBezeichnung As String, ByVal strFileExt As String) As String
    Dim strType As String
    Dim strDatei As String
    Dim strResult As String

    If intIndex < 0 Then
        Exit Function
    End If

    strDatei = Trim(m_oUtil.k(rsOBJ("Datei").value))

    While Mid(strDatei, 1, 1) = "\"
        strDatei = Mid(strDatei, 2)
    Wend
    If strDatei <> "" Then
        While Mid(strDatei, Len(strDatei), 1) = "\"
            strDatei = Mid(strDatei, 1, Len(strDatei) - 1)
        Wend
    End If

    If strFileExt <> "" And Mid(strFileExt, 1, 1) <> "." Then
        strFileExt = "." & strFileExt
    End If

    If intIndex = 0 Then
        strType = OBJ_Bild_StdBezKurz
    Else
        strType = OBJ_Bild_StdBezLang & CStr(intIndex)
    End If

    strResult = strDatei & "-" & strType & "#" & strBezeichnung & strFileExt
    strResult = FlowFact_Folder & "\pic.obj\" & strResult

    OBJ_Bild_MakeFileName = strResult
End Function