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=1.3.0
    vdate=19.10.2015
    fname=cast_cvalue.bas
    ns=%NAMESPACE%
    fpath=/vba/cast
</const>
{{keywords>vba,castfunction}}

====== [VBA] cValue(), cV() ======
//cValue versucht einen String in ein Nativetyp zu casten.//

==Version %%version%% - %%vdate%%==
Die Funktion wird zum Beispiel in [[vba:cast:cdict]] verwendet.

{{%%fname%%|Download %%fname%% (V-%%version%%)}}

Ich habe 2 Versionen. cValue() ist ein ausführlicher, lesbarer Code der sich gut eignet um als eigenständige Funktion verwendet zu werden.
\\ cV() ist auf das nötigste gekürzt und gestutzt. Sie hat die gleiche Funktionalität wir cValue(), ist jedoch vom Code her viel kompakter. Ich verwende vV() in verschiedenen anderen Funktionen.

===== cValue() =====
==== Definition ====
<code>Variant = cValue(String [,cvHandling])</code>
<code vb>Public Function cValue(
    ByVal iString As String, 
    Optional ByVal iHandling As cvHandling
) As Variant</code>

<code vb>Public Enum cvHandling
    cvhNullTextAsNull = 2 ^ 0   'Der Text Null ohne Delemiter wird als Wert Null intepretiert
    cvhEmptyAsNull = 2 ^ 1      'Ein leerer String wird als Null intepretiert
End Enum</code>

==== Beispiel ====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]].

=== Zahlen ===
<code vb>
'Ein Integer asl Text -> Integer
d cValue("12345")
<Integer> 12345

'Wenn die Zahlen grösser sind, wird daraus ein Long, bzw. ein Decimal
d cValue("1234567890")
<Long> 1234567890

d cValue("12345678901234567890")
<Decimal> 12345678901234567890

'Dito für eine Gleitkommazahl -> Double
d cValue("123.45")
<Double> 123.45

'Ist die Zahl mit Delemiter umgeben, wird sie als String zurpückgegeben
d cValue("'123'")
<String> '123'
</code>

=== Datum ===
Es wird mit cDate geparst. Dieses kann sich Systemabhängig anders verhalten
<code vb>
'Datum ohne Delemiter
d cValue("25/1/2014")
<Date> 25.01.2014

'Datum mit Delemiter
d cValue("#1-25-2014#")
<Date> 25.01.2014
</code>


=== Strings ===
<code vb>
'Ein Text ohne Delemiter
d cValue("ABC")
<String> 'ABC'

'Ein Text mit Delemiter. Als delemited Text gelten die drei folgenden Pattern: '..', "..", [..]
d cValue("'abc'")
<String> 'abc'
</code>

== Thematik NULL ==
<code vb>
'Leerer Text
d cValue("")
<String> ''

'Leerer Text mit dem Flag, diesen als Null zu werten
d cValue("", cvhEmptyAsNull)
<Null> 

'Der Text Null
d cValue("Null")
<String> 'Null'

'Der Text Null mit dem Flag, diesen als Null zu werten
d cValue("Null", cvhNullTextAsNull)
<Null> 

'Der Text Null in Delemiter mit dem Flag, diesen als Null zu werten
d cValue("'Null'", cvhNullTextAsNull)
<String> 'Null'</code>

===== cV() =====
==== Definition ====
<code>Variant = cV(Variant [,flags])</code>
<code vb>Public Function cV(
    ByVal iValue As Variant, 
    Optional ByVal iFlags As String
) As Variant</code>

**iFLags** ist ein String, der das Verhalten cV() steuert. Die Flags sind3 Buchstaben de kombiniert werden können.
  ***s** Der Text Null ohne Delemiter wird als Wert Null intepretiert
  ***e** Ein leerer String wird als Null intepretiert
  ***b** Boolean-Text wird als Boolean intepretiert
  ***d** Bei Delemited Strings den Delemiter entfernen. ' oder " gelten als Delemiter
==== Beispiel ====
> Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]].

<code vb>'String zu Zahl
d cV("1234.5")
<Date> 01.05.1234

'Text Null
d cV("NULL")
<String> 'NULL'

'Text Null intepretieren
d cV("NULL", "n")
<Null> 

'Leerer String
d cV("")
<Empty> 

'Empty als Null zurückgeben
d cV("", "e")
<Null> 

'Boolean als Wert
d cV("TRUE")
<String> 'TRUE'

'Boolean parsen
d cV("TRUE", "b")
<Boolean> True

'Kombioniert. Nicht alle Flags kommen unbedigt zum tragen
' Der String ist mit ' Als Deleimiter mitgeliefert
d cV("'NULL'", "nd")
<String> 'NULL'
</code>

===== Code =====
==== Ganzes Modul ====
<source '%%fpath%%/%%fname%%' vb>

==== Nur Kurzversion cV ====
<code vb>'/**
' * Dies ist die Minimalversion von cValue (V1.3.0): http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/cvalue
' * @example    myDict.Add(1, cV("True", "b"))
' * @param      Variant     Wert der geparst wird
' * @param      String      Flag ('nebd')
' *     n: Der Text Null ohne Delemiter wird als Wert Null intepretiert:    "NULL" -> Null
' *     e: Ein leerer String wird als Null intepretiert,                    "" -> Null
' *     b: Boolean-Text wird als Boolean intepretiert                       "True" -> True (Boolean)
' *     d: Bei Delemited Strings den Delemiter nicht entfernen. ' oder " gelten als Delemiter: "'Hans'" -> Hans
' * @return     Variant
' */
Public Function cV(ByVal iValue As Variant, Optional ByVal iFlags As String) As Variant
    On Error Resume Next: If IsNull(iValue) Then cV = Null: Exit Function
    If Not VarType(iValue) = 8 Then cV = iValue: Exit Function
    Static rxDa As Object, rxDs As Object: Dim sm As Object, str As String, flg As String:  str = CStr(iValue): flg = UCase(iFlags)
    If UCase(str) = "NULL" And InStr(flg, "N") Then cV = Null: Exit Function
    If iValue = Empty And CBool(InStr(flg, "E")) Then cV = Null: Exit Function
    cV = CByte(str):    If cV = str Then Exit Function
    cV = CInt(str):     If cV = str Then Exit Function
    cV = CLng(str):     If cV = str Then Exit Function
    cV = CDbl(str):     If cV = str Then Exit Function
    cV = CDec(str):     If cV = str Then Exit Function
    If IsDate(str) Then cV = CDate(str): Exit Function
    Err.clear: If InStr(flg, "B") Then cV = CBool(str):   If Err.Number = 0 Then Exit Function
    If rxDa Is Nothing Then Set rxDa = CreateObject("VBScript.RegExp"): rxDa.pattern = "^#(.*)#$"
    If rxDa.test(str) Then cV = CDate(rxDa.execute(str)(0).subMatches(0)):  Exit Function
    If InStr(flg, "D") > 0 Then cV = iValue: Exit Function
    If rxDs Is Nothing Then Set rxDs = CreateObject("VBScript.RegExp"): rxDs.pattern = "^[#""'\[](.*)([""'#\]])$"
    If rxDs.test(str) Then Set sm = rxDs.execute(str)(0).subMatches: cV = Replace(sm(0), "\" & sm(1), sm(1)):  Exit Function
    cV = iValue
End Function</code>
Yaslaw.Info

User Tools

Site Tools

Page Tools
