Attribute VB_Name = "prop" '//PROPERTIES MODULE '//© Flavio González Vázquez 2002 '//www.flavionet.com - flavio@ya.com '//--------------------------------- Function CreateProp(Data, PropName, Optional Default As String = "") As String CreateProp = Data & PropName & "=" & Default & ";" End Function Function ChangeProp(Data, PropName, Value) As String Dim a, b, c a = InStr(Data, PropName) b = InStr(a + 1, Data, ";") c = Left(Data, a - 1) & PropName & "=" & Value & ";" & Mid(Data, b + 1) ChangeProp = c End Function Function ReadProp(Data, PropName) Dim a, b, c If Trim(Data) = "" Then ReadProp = "": Exit Function a = Data b = InStr(a, PropName) c = InStr(b + 1, a, ";") ReadProp = Mid(a, b + Len(PropName) + 1, c - b - Len(PropName) - 1) End Function 'SPANISH. Para crear una propiedad nueva: variable = CreateProp(variable, "ejemplo", "parametro1") 'Para cambiar una propiedad: variable = ChangeProp(variable,"ejemplo","parametro5") 'Para leer una propiedad: propiedad = ReadProp(variable,"ejemplo") 'ahora propiedad contiene "parametro5" 'ENGLISH. To create a new property: variable = CreateProp(variable, "sample", "param1") 'To change a property: variable = ChangeProp(variable,"sample","param5") 'To read a property: property = ReadProp(variable,"sample") 'now property contain "param5"