Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionNamespace MesFonctions Public Class MacroSubstition Public AlSubstitution As New ArrayList Public Sub Add(ByVal _NameString As String, ByVal _Value As Object) Dim s As New Substitution s.NameString = _NameString s.Value = _Value AlSubstitution.Add(s) End Sub Private Class Substitution Public NameString As String Public Value As Object End Class Public Function GetSubstitution(ByVal _NameString As String) As Object For Each s As Substitution In AlSubstitution If s.NameString = _NameString Then GetSubstitution = s.Value Exit For End If Next End Function End Class End Namespace
Dim substitution As New MacroSubstition Dim i As Integer Dim a As String() = {"premier", "deuxieme", "troisieme"} For Each s As String In a i += 1 substitution.Add(s, i) Next For Each s As String In a Response.Write(substitution.GetSubstitution(s) & " ") Next Response.Write(substitution.GetSubstitution("premier"))