Differences

This shows you the differences between two versions of the page.

--- vba:cast:cvalue [19.11.2014 15:19:18]
yaslaw [Zahlen]
+++ vba:cast:cvalue [19.10.2015 12:37:48] (current)
yaslaw
@@ Line 1: / Line 1: @@
 <const>
-    version=1.0.0
+    version=1.3.0
-    vdate=19.11.2014
+    vdate=19.10.2015
     fname=cast_cvalue.bas
     ns=%NAMESPACE%
@@ Line 8: / Line 8: @@
 {{keywords>vba,castfunction}}
-====== [VBA] cValue() ======
+====== [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.
-cValue versucht einen String in ein Nativetyp zu casten.
 {{%%fname%%|Download %%fname%% (V-%%version%%)}}
-===== Definition =====
+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(
@@ Line 27: / Line 32: @@
 End Enum</code>
-===== Beispiel =====
+==== Beispiel ====
 > Für die Ausgabe der Resultate verwendete ich die Funktion [[:vba:functions:print_r:]].
-=
+=== Zahlen ===
-=== Zahlen ====
 <code vb>
 'Ein Integer asl Text -> Integer
@@ Line 47: / Line 51: @@
 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 ====
+=== Datum ===
 Es wird mit cDate geparst. Dieses kann sich Systemabhängig anders verhalten
 <code vb>
@@ Line 61: / Line 69: @@
 </code>
-==== Strings ====
+=== Strings ===
 <code vb>
 'Ein Text ohne Delemiter
@@ Line 67: / Line 76: @@
 <String> 'ABC'
-'Ein Text mit Delemiter
+'Ein Text mit Delemiter. Als delemited Text gelten die drei folgenden Pattern: '..', "..", [..]
 d cValue("'abc'")
 <String> 'abc'
 </code>
-=== Thematik NULL ===
+== Thematik NULL ==
 <code vb>
 'Leerer Text
@@ Line 93: / Line 102: @@
 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

Differences

Page Tools