VCard reader class

Imports System. Io
Public   Class vcardreader Class Vcardreader
Define # Region"Define"
PublicVcardsAsVCard ()
# End Region
Subs # Region "Subs"

Sub new () Sub New(ByvalVcardfilestreamAsFilestream)
Decodevcardfromfilestream (vcardfilestream)
End sub

Private   Function split () Function   Split ( Byval Content As   String ) As Cardproperty
Dim Cardproperty As Cardproperty
Dim Propertyandparametrestring As   String   = Content. Split ( " : " )( 0 )
Dim Valuestring As   String   = Content. Split ( " : " )( 1 )
Dim Temp As   String () = Propertyandparametrestring. Split ( " ; " )
Cardproperty. Name = Temp ( 0 )
If Temp. Length >   1   Then
Redim Cardproperty. parametres (temp. getupperbound ( 0 ) -   1 )
Temp. Copy (temp, 1 , Cardproperty. parametres, 0 , Temp. Length -   1 )
Else
Cardproperty. parametres =   Nothing
End   If
Cardproperty. Values = Valuestring. Split ( " ; " )
Return Cardproperty
End Function

Public   Sub decodevcardfromfilestream () Sub Decodevcardfromfilestream ( Byval Vcardfilestream As Filestream)
Dim Reader As   New Streamreader (vcardfilestream)
Redim Vcards ( 0 )
Dim Currentvcard As   Integer
Do
' Search for vCard
Redim Vcards (currentvcard). properties ( - 1 )
If   Instr (Reader. Readline, " Begin: vCard " ) Then
' Start processing vCard object
Dim Content As   String
Dim Cardproperty As Cardproperty
Do
Content = Reader. Readline
If Content =   " End: vCard "   Then   Exit   Do
' The "=" in then end of a stream indicates message is not complete. read next line and contact them.
Do

If Content. lastindexof ( " = " ) = Content. Length -   1   Then
Content = Content. substring ( 0 , Content. Length -   2 ) + Reader. Readline
Else : Exit   Do
End   If
Loop
' Split properties, parametres and values.
Cardproperty =   Split (Content)
Dim Propertynumber As   Integer   = Vcards (currentvcard). properties. Length
Redim   Preserve Vcards (currentvcard). properties (propertynumber)
Vcards (currentvcard). properties (propertynumber) = Cardproperty
Loop
End   If
If Reader. Peek () <   0   Then
Return
End   If
Currentvcard + =   1
Redim   Preserve Vcards (currentvcard)
Loop
End sub
# End Region

Structures # Region "Structures"
Public   Structure vCard StructureVCard
PublicPropertiesAsCardproperty ()
End Structure

Public   Structure cardproperty Structure Cardproperty
Public Name As   String
Public Parametres () As   String
Public Values () As   String
End Structure

# End Region

End Class