Imports System.IO
Public Class vCardReader
#Region "Define"
Public vCards As vCard()
#End Region
#Region "Subs"
Sub New(ByVal vCardFileStream As FileStream)
DecodeVCardFromFileStream(vCardFileStream)
End Sub
Private 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(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(1, 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
#Region "Structures"
Public Structure vCard
Public Properties As CardProperty()
End Structure
Public Structure CardProperty
Public Name As String
Public Parametres() As String
Public Values() As String
End Structure
#End Region
End Class
