Yaslaw.Info

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<const>
    version=2.1.0
    vdate=03.01.2017
    fname=cast_techname.bas
    ns=%NAMESPACE%
    fpath=/vba/cast
</const>
====== [VBA] techName() ======
//Erstellt aus einem String ein Technischer Name. Ersetzt Leer- und Sonderzeichen durch _, kürzt aus vorgegebene Länge, übersetzt Umlaute etc.//

==Version %%version%% - %%vdate%%==
{{%%fname%%|Download %%fname%% (V-%%version%%)}}

>Siehe auch [[vba:cast:readablename]]

===== Definition =====
<code>techName(iName[, iMaxLen[, iStrConv[, iDelemiter]]])</code>

<code vb>Public Function techName( _
        ByVal iName As String, _
        Optional ByVal iMaxLen As Integer = 255, _
        Optional ByVal iStrConv As tnStrConv = vbUpperCase, _
        Optional ByVal iDelemiter As Variant = Null _
) As String</code>
  ***iName ** Name der gewandelt werden soll
  ***iMaxLen ** Maximale Länge
  ***iStrConv ** Art der Konvertierung. Lower/Uper/Proper-Case
  ***iDelemiter ** Deleimter. Default: Bei Proper Case "" ansonsten "_" gebraucht

=== Enum tnStrConv ===
Der Enum ist eigentlich nur eine Auswahl aus vbStrConv
<code vb>Public Enum tnStrConv
    vbUpperCase = VbStrConv.vbUpperCase     'Alles in Grossbuchstaben       -> Standarddelimiter: "_"
    vbLowerCase = VbStrConv.vbLowerCase     'Alles in Kleinbuchstaben       -> Standarddelimiter: "_"
    vbProperCase = VbStrConv.vbProperCase   'Immer erster Buchstabe klein   -> Standarddelimiter: ""
End Enum</code>

===== Beispiele =====
> Für die Beispiele verwende ich [[vba:functions:print_r:index]]

In dem Beispiel mache ich aus dem folgenden Text einen technischen Namen
<code>Bücherpreis [CHF]
bei  Sofortkauf!!!</code>

<code vb>'Standard. Mit UpperCase und _ als Delemiter
d techName("Bücherpreis [CHF]" & vbcrlf & "bei  Sofortkauf!!!")
<String> 'BUECHERPREIS_CHF_BEI_SOFORTKAUF'

'Auf 15 Zeichen abgeschnitten
d techName("Bücherpreis [CHF]" & vbcrlf & "bei  Sofortkauf!!!", 15)
<String> 'BUECHERPREIS_CH'

'Lowercase und als Trennzeichen ein -
d techName("Bücherpreis [CHF]" & vbcrlf & "bei  Sofortkauf!!!",,vbLowerCase, "-")
<String> 'buecherpreis-chf-bei-sofortkauf'

'ProperCase. Standarddelmiter ist den dem Fall "". Ergibt also ein CamelCase
d techName("Bücherpreis [CHF]" & vbcrlf & "bei  Sofortkauf!!!",,vbProperCase)
<String> 'BuecherpreischfBeiSofortkauf'
</code>

===== Code =====
<source '%%fpath%%/%%fname%%' vb>
Yaslaw.Info

User Tools

Site Tools

Page Tools
