version=1.1.0
vdate=28.01.2015
fname=cast_readablename.bas
ns=%NAMESPACE%
fpath=/vba/cast
====== [VBA] readableName() ======
//Diese Funktion erstellt aus einem technischen Namen ein halbwegs lesbarer Namen.//
==Version %%version%% - %%vdate%%==
{{%%fname%%|Download %%fname%% (V-%%version%%)}}
>Siehe auch [[vba:cast:techname]]
===== Definition =====
name = readableName(technischer Name [, Type des technischen Namens])Public Function readableName( _
ByVal iTechName As String, _
Optional ByVal iType As rnTechNameType = rnAutomaitc _
) As String
***iTechName** Der Technische Name
***rnTechNameType ** Art der Worttrennung
===== Beispiele =====
Die Beispiele wurden im Direktfenster erstellt
?readableName("ITEM_NAME")
Item Name
?readableName("ItemName1")
Item Name 1
?readableName("Ort", rnUnderline)
Ort
===== Code =====