Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Nachtrag - Meine Lösung
Autor: teccer
Datum: 29.09.04 10:38
Public Function ReplaceItemsInProperty(ByVal NameDerEigenschaft As String, ByVal SuchenNach As String, ByVal ErsetzenDurch As String) As String Dim wert As String Dim wert2 As String Dim counter As Long Dim TheName As System.Reflection.PropertyInfo For I = 1 To MyCollection.Count TheName = MyCollection.Item(I).GetType().GetProperty(NameDerEigenschaft) If Not IsNothing(TheName) Then wert = TheName.GetValue(MyCollection(I), Nothing) wert2 = Replace(TheName.GetValue(MyCollection(I), Nothing), SuchenNach, ErsetzenDurch) If wert <> wert2 Then TheName.SetValue(MyCollection(I), wert2, Nothing) counter = counter + 1 End If Else ReplaceItemsInProperty = "RIIP099" End If Next ReplaceItemsInProperty = counter End Function

Eigenschaft als Parameter übergeben	1.087	teccer	28.09.04 09:36
Re: Eigenschaft als Parameter übergeben	737	lkatsch	28.09.04 09:59
Re: Eigenschaft als Parameter übergeben	689	teccer	28.09.04 19:58
Habe die Lösung gerade selber gefunden - ohne Text	697	teccer	28.09.04 21:49
Re: Habe die Lösung gerade selber gefunden - ohne Text	671	FZelle	29.09.04 09:20
Re: Habe die Lösung gerade selber gefunden - ohne Text	708	teccer	29.09.04 10:40
Re: Habe die Lösung gerade selber gefunden - ohne Text	699	FZelle	29.09.04 19:49
Nachtrag - Meine Lösung	661	teccer	29.09.04 10:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen