AW: Problem mit FF_CallScript
zu 2.) Und wie das funktioniert!
Beispiel: Hier wird der Variable Convert ein Wert zugeteilt. sConv hat den Inhalt "STR", "INT" oder "DBL". vValue eine beliebige Zahl
Execute "Convert = C" & sConv & "(" & vValue & ")"
Ergebnis der ausgeführten Zeile bie vValue = 0.707106:
Convert = CDBL(0.707106)
Dieser Code ist Orignialbestandteil von WPInfo. Teile des Codebestandteils sind aus der externen MakerNotes-Bibliothek notes.cdf.
So auch dieser Teil:
Hierbei können die Bestandteile von Searchexpression Variablen aus dem Programm, Zeichenketten, Zahlen oder komplette Funktionen enthalten, in denen weitere Funktionen Werte liefern.
Da der Namensraum innerhalb von FixFoto liegt, können dies auch Funktionen aus FixFoto sein!
zu 2.) Und wie das funktioniert!
Beispiel: Hier wird der Variable Convert ein Wert zugeteilt. sConv hat den Inhalt "STR", "INT" oder "DBL". vValue eine beliebige Zahl
Execute "Convert = C" & sConv & "(" & vValue & ")"
Ergebnis der ausgeführten Zeile bie vValue = 0.707106:
Convert = CDBL(0.707106)
Code:
' Konvertiert Werte nach Angaben
Private Function Convert(sConv, vValue)
If Len(sConv) = 0 Then
Convert = vValue
Else
If Not VarType(vValue) = vbArray + vbVariant Then
On Error Resume Next
Execute "Convert = C" & sConv & "(" & vValue & ")"
On Error Goto 0
Else
Convert = vValue
End If
End If
End Function
Dieser Code ist Orignialbestandteil von WPInfo. Teile des Codebestandteils sind aus der externen MakerNotes-Bibliothek notes.cdf.
So auch dieser Teil:
Code:
'Wieder zusammenbauen
SearchExp = Replace(Replace(Replace(Join(SearchValue, ""), Chr(0), """ & Chr(0) & """), Chr(13), """ & Chr(13) & """), Chr(10), """ & Chr(10) & """)
On Error Resume Next
Execute "sResult = " & SearchExp
If Err.Number = 0 Then
ValueEx = sPrefix & sResult & sPostfix
Else
If gMsgDbg = True Then MsgBox Err.Number & ":" & Err.Description & vbCRLF & SearchExp,,sBereich & ": " & sKey
End If
Err.Clear
On Error Goto 0
Da der Namensraum innerhalb von FixFoto liegt, können dies auch Funktionen aus FixFoto sein!