User Tools

Site Tools


vba:cast:cstrf

Differences

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

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
Last revision Both sides next revision
vba:cast:cstrf [23.06.2016 11:51:11]
yaslaw
vba:cast:cstrf [29.06.2016 09:36:41]
yaslaw
Line 31: Line 31:
  
 ==== Paramterliste ==== ==== Paramterliste ====
-* **iValue** Item das zu einem String geparst werden soll +  ​* **iValue** Item das zu einem String geparst werden soll 
-* **iparams** ​  ​Paramter um das Verhalten von CStrF zu steuern +  * **iparams** ​  ​Paramter um das Verhalten von CStrF zu steuern 
-* **iDelemiter** String+  * **iDelemiter** String
  
 ==== Enumerators ==== ==== Enumerators ====
Line 50: Line 50:
 > Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:​functions:​print_r:​]]. > Für die Ausgabe der Resultate verwendete ich die Funktion [[vba:​functions:​print_r:​]].
  
-<code vb>? cStrF(DateTime()) +==== Listen ==== 
-#2016-06-23 11:35:33# +Dictionaries sind im Beispieldirekt mit [[vba:​cast:​cdict]] erstellt. 
- +<code vb>? cStrF(array(1,​2,​3))
-? cStrF(array(1,​2,​3))+
 [1,2,3] [1,2,3]
  
Line 62: Line 61:
 [1,​2,​[1,​22,​33]] [1,​2,​[1,​22,​33]]
  
 +'​Verschachtelter Array
 ? cStrF(array(1,​2,​array(1,​22,​33)),​ csfNon) ? cStrF(array(1,​2,​array(1,​22,​33)),​ csfNon)
-1, 2, (1, 22, 33)</​code>​+1, 2, (1, 22, 33) 
 + 
 +'​Dictionary anzeigen 
 +print_r cDict("​a",​ 12, "​b",​ array(22, 33)) 
 +<​Dictionary> ​ ( 
 +    [a] => <​Integer>​ 12 
 +    [b] => <​Variant()> ​ ( 
 +        [0] => <​Integer>​ 22 
 +        [1] => <​Integer>​ 33 
 +    ) 
 +
 + 
 + 
 +'und mittels cStrF ausgeben.  
 +'Ist lib_json vorhanden, wird der Dictionary als json-String ausgegeben 
 +? cstrf(cDict("​a",​ 12, "​b",​ array(22,​33))) 
 +{"​a":​12,"​b":​[22,​33]} 
 + 
 +'​Ansnsten gehen die Keys verloren 
 +? cstrf(cDict("​a",​ 12, "​b",​ array(22,​33)),​ csfNon) 
 +12, (22, 33)</​code>​
  
 ==== Null und Nothing ==== ==== Null und Nothing ====
Line 71: Line 91:
 print_r cStrF(Nothing) print_r cStrF(Nothing)
 <​String>​ ''</​code>​ <​String>​ ''</​code>​
 +
 +==== Mit Klassen die ein toString haben oder das Interface IFormattable besitzen ====
 +Solche Klassen können dierkt geparst werden.
 +Die folgenden Klassen kommen in den Beispielen vor: [[vba:​classes:​date:​index]],​ [[vba:​classes:​iterator:​index]]
 +<code vb>'​DateTime
 +? cStrF(DateTime().add("​P3D"​))
 +#2016-06-26 12:00:51#
 +
 +'​DateInterval
 +? cStrF(DateTime(#​12/​31/​2015#​).diff(date()))
 +P5M23D
 +? cStrF(DateInterval.instancePart("​M",​ 3))
 +P3M
 +
 +'​Iterator
 +'Wenn der Cursor nocht nicht positioniert ist, wird der Erste Wert ausgegeben
 +?​cStrF(Iterator(array(1,​2,​3)))
 +1
 +
 +'​Ansonsten der aktuelle
 +?​cStrF(Iterator(array(1,​2,​3)).toPosition1(2))
 +3</​code>​
  
 ===== Code ===== ===== Code =====
 <source '​%%fpath%%/​%%fname%%'​ vb> <source '​%%fpath%%/​%%fname%%'​ vb>
vba/cast/cstrf.txt · Last modified: 29.06.2016 10:10:49 by yaslaw