VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "PropItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public Key As String
Public Value As String

Public Sub ReadIn(Buffer As String)
Dim i As Integer
i = InStr(1, Buffer, "=")
Debug.Assert i <> 0

Key = Left$(Buffer, i - 1)
Value = Mid$(Buffer, i + 1)

'first replace \n with newline
Value = Replace$(Value, "\n", vbNewLine)
Value = Replace$(Value, "\d", "\")
End Sub

Public Function WriteOut() As String
If Value <> "" Then
    WriteOut = Key + "=" + Replace$(Replace$(Value, "\", "\d"), vbNewLine, "\n")
End If
End Function
