Stringausdrücke auf Umwandlung in verschiedene Datentypen überprüfen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    Stringausdrücke auf Umwandlung in verschiedene Datentypen überprüfen

    Hi Community!

    Wie könnte man den Code noch optimieren?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function parseValue(obj As Object, v As String) As Boolean
    2. Dim T = GetType(obj)
    3. Select Case True
    4. Case T Is GetType(Boolean) : Dim bol As Boolean : If Boolean.TryParse(v, bol) Then Return True
    5. Case T Is GetType(DateTime) : Dim dtm As Date : If Date.TryParse(v, dtm) Then Return True
    6. Case T Is GetType(Decimal) : Dim dec As Decimal : If Decimal.TryParse(v, dec) Then Return True
    7. Case T Is GetType(Double) : Dim dbl As Double : If Double.TryParse(v, dbl) Then Return True
    8. Case T Is GetType(Int16) : Dim i16 As Int16 : If Int16.TryParse(v, i16) Then Return True
    9. Case T Is GetType(Int32) : Dim i32 As Int32 : If Int32.TryParse(v, i32) Then Return True
    10. Case T Is GetType(Int64) : Dim i64 As Int64 : If Int64.TryParse(v, i64) Then Return True
    11. Case T Is GetType(Single) : Dim sng As Single : If Single.TryParse(v, sng) Then Return True
    12. Case T Is GetType(UInt16) : Dim u16 As UInt16 : If UInt16.TryParse(v, u16) Then Return True
    13. Case T Is GetType(UInt32) : Dim u32 As UInt32 : If UInt32.TryParse(v, u32) Then Return True
    14. Case T Is GetType(UInt64) : Dim u64 As UInt64 : If UInt64.TryParse(v, u64) Then Return True
    15. End Select
    16. Return False
    17. End Function

    Was soll das überhaupt, dass Du die überladenen Funktionen der einzelnen Typen wieder durch einen Flaschenhals zwängst?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Der Flaschenhals zeigt sich, wenn ich zum Beispiel den Werttyp einer DGV-Spalte zuerst feststellen muss,
    und wissen will, ob ein String auf diesen Werttyp umgewandelt werden kann.
    Vermutlich gehe ich es falsch an?
    Mir gefallen diese Zeilen auch nicht...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    Weise dem DGV ein typisiertes DataSet als DataBinding zu, da weiß die Spalte, ob sie Integer oder DateTime ist und fertich.
    Da hat der @ErfinderDesRades: einige fundierte Beiträge gepostet.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja, das ist richtig - da hab ich schon viel nachgeschaut :)

    es liegt an meinen kargen Angaben ... :!:

    Ich befasse mich zur Zeit mit meiner selbstgebauten DataGridViewColumn-Classe,
    wo ich bei den einzelnen Spalten auch die Auswaldaten via Items-Auflistung einer Combobox übergeben kann.
    In dieser Auflistung können natürlich Angaben drinnen stehen, die nicht zur ausgewählten Spalte passen.
    Diese Einträge möchte ich bei der Initialisierung der ComboBox-Auswahlliste übergehen, dass sie gar nicht zur Auswahl stehen.
    Ich bin da noch nicht auf eine gescheite Lösung gekommen.

    Ich hoffe, es war verständlich.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    VB.NET-Quellcode

    1. Private Function CanParse(ByVal obj As Object, ByVal v As String) As Boolean
    2. Return Boolean.TryParse(v, New Boolean) OrElse Date.TryParse(v, New Date) OrElse Decimal.TryParse(v, New Decimal) '...
    3. End Function

    vlt kann man auch was einfacheres mit TypConvertern frickeln

    VB.NET-Quellcode

    1. Private Function CanConvert(ByVal obj As Object, ByVal v As String) As Boolean
    2. return TypeDescriptor.GetConverter(obj.Gettype).CanConvertFrom(gettype(string))
    3. End Function
    (so ähnlich)

    Aber alles ziemlich unschön, aber da ich das konkrete Prob nicht wirklich kenne, weißich auch nix besseres :(

    Hi
    habe mal was zusammengeschrieben. Wenn es "allgemeingültig" sein soll, würde ich das so machen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Sub Test()
    2. Dim p As Object = Nothing
    3. If Parse(Of String)("bla", p) Then
    4. MessageBox.Show(p.ToString() + vbCrLf + p.GetType().ToString())
    5. End If
    6. If Parse(Of Integer)("123", p) Then
    7. MessageBox.Show(p.ToString() + vbCrLf + p.GetType().ToString())
    8. End If
    9. If Parse(Of Char)("a", p) Then
    10. MessageBox.Show(p.ToString() + vbCrLf + p.GetType().ToString())
    11. End If
    12. If Parse(Of Color)("123; 15; 2", p) Then
    13. MessageBox.Show(p.ToString() + vbCrLf + p.GetType().ToString())
    14. End If
    15. End Sub
    17. Private Delegate Function Parser(ByVal input As String, ByRef returnValue As Object) As Boolean
    19. Public Shared Function Parse(Of T)(ByVal input As String, ByRef returnValue As Object) As Boolean
    20. If GetType(T).GetInterface(GetType(IConvertible).FullName) IsNot Nothing Then
    21. Return Parse(input, Type.GetTypeCode(GetType(T)), returnValue)
    22. Else
    23. Dim tca() As System.ComponentModel.TypeConverterAttribute = DirectCast(GetType(T).GetCustomAttributes(GetType(System.ComponentModel.TypeConverterAttribute), False), System.ComponentModel.TypeConverterAttribute())
    24. Dim tc As System.ComponentModel.TypeConverter
    25. For Each tcainst As System.ComponentModel.TypeConverterAttribute In tca
    26. Try
    27. tc = DirectCast(Activator.CreateInstance(Type.GetType(tcainst.ConverterTypeName)), System.ComponentModel.TypeConverter)
    28. If tc.CanConvertFrom(GetType(String)) Then
    29. returnValue = tc.ConvertFromString(input)
    30. Return True
    31. End If
    32. Catch
    33. 'geht halt nicht
    34. End Try
    35. Next
    36. Return False
    37. End If
    38. End Function
    40. Public Shared Function Parse(ByVal input As String, ByVal typeCode As TypeCode, ByRef returnValue As Object) As Boolean
    41. Static dgl() As Parser = New Parser() {Nothing,
    42. Nothing,
    43. Function(inp As String, ByRef value As Object)
    44. Dim b As Boolean
    45. If Boolean.TryParse(inp, b) Then
    46. value = b
    47. Return True
    48. Else
    49. Return False
    50. End If
    51. End Function,
    52. Function(inp As String, ByRef value As Object)
    53. Dim b As Boolean
    54. If Boolean.TryParse(inp, b) Then
    55. value = b
    56. Return True
    57. Else
    58. Return False
    59. End If
    60. End Function,
    61. Function(inp As String, ByRef value As Object)
    62. Dim b As Char
    63. If Char.TryParse(inp, b) Then
    64. value = b
    65. Return True
    66. Else
    67. Return False
    68. End If
    69. End Function,
    70. Function(inp As String, ByRef value As Object)
    71. Dim b As SByte
    72. If SByte.TryParse(inp, b) Then
    73. value = b
    74. Return True
    75. Else
    76. Return False
    77. End If
    78. End Function,
    79. Function(inp As String, ByRef value As Object)
    80. Dim b As Byte
    81. If Byte.TryParse(inp, b) Then
    82. value = b
    83. Return True
    84. Else
    85. Return False
    86. End If
    87. End Function,
    88. Function(inp As String, ByRef value As Object)
    89. Dim b As Short
    90. If Short.TryParse(inp, b) Then
    91. value = b
    92. Return True
    93. Else
    94. Return False
    95. End If
    96. End Function,
    97. Function(inp As String, ByRef value As Object)
    98. Dim b As UShort
    99. If UShort.TryParse(inp, b) Then
    100. value = b
    101. Return True
    102. Else
    103. Return False
    104. End If
    105. End Function,
    106. Function(inp As String, ByRef value As Object)
    107. Dim b As Integer
    108. If Integer.TryParse(inp, b) Then
    109. value = b
    110. Return True
    111. Else
    112. Return False
    113. End If
    114. End Function,
    115. Function(inp As String, ByRef value As Object)
    116. Dim b As UInteger
    117. If UInteger.TryParse(inp, b) Then
    118. value = b
    119. Return True
    120. Else
    121. Return False
    122. End If
    123. End Function,
    124. Function(inp As String, ByRef value As Object)
    125. Dim b As Long
    126. If Long.TryParse(inp, b) Then
    127. value = b
    128. Return True
    129. Else
    130. Return False
    131. End If
    132. End Function,
    133. Function(inp As String, ByRef value As Object)
    134. Dim b As ULong
    135. If ULong.TryParse(inp, b) Then
    136. value = b
    137. Return True
    138. Else
    139. Return False
    140. End If
    141. End Function,
    142. Function(inp As String, ByRef value As Object)
    143. Dim b As Single
    144. If Single.TryParse(inp, b) Then
    145. value = b
    146. Return True
    147. Else
    148. Return False
    149. End If
    150. End Function,
    151. Function(inp As String, ByRef value As Object)
    152. Dim b As Double
    153. If Double.TryParse(inp, b) Then
    154. value = b
    155. Return True
    156. Else
    157. Return False
    158. End If
    159. End Function,
    160. Function(inp As String, ByRef value As Object)
    161. Dim b As Decimal
    162. If Decimal.TryParse(inp, b) Then
    163. value = b
    164. Return True
    165. Else
    166. Return False
    167. End If
    168. End Function,
    169. Function(inp As String, ByRef value As Object)
    170. Dim b As DateTime
    171. If DateTime.TryParse(inp, b) Then
    172. value = b
    173. Return True
    174. Else
    175. Return False
    176. End If
    177. End Function,
    178. Nothing,
    179. Function(inp As String, ByRef value As Object)
    180. value = inp
    181. Return True
    182. End Function}
    183. If dgl(CInt(typeCode)) <> Nothing Then
    184. Return dgl(CInt(typeCode)).Invoke(input, returnValue)
    185. Else
    186. Return False
    187. End If
    188. End Function


    Ansonsten würde folgender Code für die von TypeCode unterstützten Typen genügen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Function Parse(Of T)(ByVal input As String, ByRef returnValue As Object) As Boolean
    2. Return Parse(input, Type.GetTypeCode(GetType(T)), returnValue)
    3. End Function
    4. Public Shared Function Parse(ByVal input As String, ByVal typeCode As TypeCode, ByRef returnValue As Object) As Boolean
    5. Static dgl() As Parser = New Parser() {Nothing,
    6. Nothing,
    7. Function(inp As String, ByRef value As Object)
    8. Dim b As Boolean
    9. If Boolean.TryParse(inp, b) Then
    10. value = b
    11. Return True
    12. Else
    13. Return False
    14. End If
    15. End Function,
    16. Function(inp As String, ByRef value As Object)
    17. Dim b As Boolean
    18. If Boolean.TryParse(inp, b) Then
    19. value = b
    20. Return True
    21. Else
    22. Return False
    23. End If
    24. End Function,
    25. Function(inp As String, ByRef value As Object)
    26. Dim b As Char
    27. If Char.TryParse(inp, b) Then
    28. value = b
    29. Return True
    30. Else
    31. Return False
    32. End If
    33. End Function,
    34. Function(inp As String, ByRef value As Object)
    35. Dim b As SByte
    36. If SByte.TryParse(inp, b) Then
    37. value = b
    38. Return True
    39. Else
    40. Return False
    41. End If
    42. End Function,
    43. Function(inp As String, ByRef value As Object)
    44. Dim b As Byte
    45. If Byte.TryParse(inp, b) Then
    46. value = b
    47. Return True
    48. Else
    49. Return False
    50. End If
    51. End Function,
    52. Function(inp As String, ByRef value As Object)
    53. Dim b As Short
    54. If Short.TryParse(inp, b) Then
    55. value = b
    56. Return True
    57. Else
    58. Return False
    59. End If
    60. End Function,
    61. Function(inp As String, ByRef value As Object)
    62. Dim b As UShort
    63. If UShort.TryParse(inp, b) Then
    64. value = b
    65. Return True
    66. Else
    67. Return False
    68. End If
    69. End Function,
    70. Function(inp As String, ByRef value As Object)
    71. Dim b As Integer
    72. If Integer.TryParse(inp, b) Then
    73. value = b
    74. Return True
    75. Else
    76. Return False
    77. End If
    78. End Function,
    79. Function(inp As String, ByRef value As Object)
    80. Dim b As UInteger
    81. If UInteger.TryParse(inp, b) Then
    82. value = b
    83. Return True
    84. Else
    85. Return False
    86. End If
    87. End Function,
    88. Function(inp As String, ByRef value As Object)
    89. Dim b As Long
    90. If Long.TryParse(inp, b) Then
    91. value = b
    92. Return True
    93. Else
    94. Return False
    95. End If
    96. End Function,
    97. Function(inp As String, ByRef value As Object)
    98. Dim b As ULong
    99. If ULong.TryParse(inp, b) Then
    100. value = b
    101. Return True
    102. Else
    103. Return False
    104. End If
    105. End Function,
    106. Function(inp As String, ByRef value As Object)
    107. Dim b As Single
    108. If Single.TryParse(inp, b) Then
    109. value = b
    110. Return True
    111. Else
    112. Return False
    113. End If
    114. End Function,
    115. Function(inp As String, ByRef value As Object)
    116. Dim b As Double
    117. If Double.TryParse(inp, b) Then
    118. value = b
    119. Return True
    120. Else
    121. Return False
    122. End If
    123. End Function,
    124. Function(inp As String, ByRef value As Object)
    125. Dim b As Decimal
    126. If Decimal.TryParse(inp, b) Then
    127. value = b
    128. Return True
    129. Else
    130. Return False
    131. End If
    132. End Function,
    133. Function(inp As String, ByRef value As Object)
    134. Dim b As DateTime
    135. If DateTime.TryParse(inp, b) Then
    136. value = b
    137. Return True
    138. Else
    139. Return False
    140. End If
    141. End Function,
    142. Nothing,
    143. Function(inp As String, ByRef value As Object)
    144. value = inp
    145. Return True
    146. End Function}
    147. If dgl(CInt(typeCode)) <> Nothing Then
    148. Return dgl(CInt(typeCode)).Invoke(input, returnValue)
    149. Else
    150. Return False
    151. End If
    152. End Function

    Der Vorteil oder situationsbedingt evtl. auch Nachteil ist, dass ich ein Array mit Parser-Funktionen habe und über die (fast) sequentiell angeordnete TypeCode-Enumeration auf die Array-Einträge mit den Delegaten zugreife. Ist halt ein wenig mehr Code.

    Gruß
    ~blaze~

    Ich suchte eine Funktion für Strings ähnlich der üblichen Art TryParse:
    siehe folgendes Aufrufbeispiel:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. For Each i In externList 'externe Liste abgleichen
    2. If Not i.TryParse(dv.Table.Columns(colName).DataType()) Then Continue For
    3. '
    4. 'sonstiges
    5. '
    6. Next

    und habe nochmals ordentlich gegoogelt und bin da gelandet
    Hier werden generische Erweiterungsmethoden in C# präsentiert, die mit Reflection arbeiten...
    Ich habe mir da eine Kleinigkeit abgekupfert in stark abgekürzter Form...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module StringTryParse
    2. Private ReadOnly myMethods As New Dictionary(Of Type, MethodInfo)()
    4. <System.Runtime.CompilerServices.Extension()> _
    5. Public Function TryParse(S As String, T As Type) As Boolean
    6. If IsNothing(T) Then Return False
    7. Dim M As MethodInfo = Nothing
    8. SyncLock DirectCast(myMethods, ICollection).SyncRoot
    9. If Not myMethods.ContainsKey(T) Then
    10. Dim myFlags As BindingFlags = BindingFlags.Public Or BindingFlags.Static
    11. Dim pTypes As Type() = New Type() {GetType(String), T.MakeByRefType()}
    12. M = T.GetMethod("TryParse", myFlags, Nothing, pTypes, Nothing)
    13. If M IsNot Nothing Then
    14. If Not M.ContainsGenericParameters OrElse M.IsStatic OrElse M.ReturnType Is GetType(Boolean) Then
    15. Dim I As ParameterInfo() = M.GetParameters()
    16. If Not (I.Length = 2 AndAlso I(0).ParameterType Is GetType(String) _
    17. AndAlso I(1).ParameterType Is T.MakeByRefType()) Then M = Nothing
    18. Else
    19. M = Nothing
    20. End If
    21. End If
    22. myMethods.Add(T, M)
    23. End If
    24. End SyncLock
    25. M = myMethods(T) : If IsNothing(M) Then Return False
    26. Dim P As Object() = New Object() {S, Nothing}
    27. Return CBool(M.Invoke(Nothing, P))
    28. End Function
    29. End Module

    Jo, cooles Gerät - klassischer Hack - verwendet undokumentierte Methoden.
    Es scheint eine Public Shared TryParse - Methode der Typ-Klasse zu geben, die im Objectbrowser nicht angezeigt wird - die wird hier mit Reflection ausgepuhlt - könntest auch mal probieren, mit Strict Off - das wäre deutlich schneller.

    Deine Methode ist falsch benamt - sie muß Canparse heißen.
    Bei IsNothing(M) mussich schlucken, also ich würde formulieren: M Is Nothing.

Facebook
Telefonspende