프로그래밍 방식으로 .ics 파일을 만드는 방법은 무엇입니까?

Question

최소한의 데이터로 icalendar 파일을 만들려면 어떻게해야합니까? 다음과 같이 만들려고하지만 Google 캘린더로 가져 오기를 시도 할 때 이벤트가 성공적으로 가져 왔지만 캘린더에 해당 이벤트가 표시되지 않습니다.

이 Google 캘린더 가져 올 때

Private Sub WriteCalendar(ByVal data As String) 
    Dim response As HttpResponse = Page.Response 
    response.Clear() 
    response.Buffer = True 
    response.ContentType = "text/calendar" 
    response.ContentEncoding = Encoding.UTF8 
    response.Charset = "utf-8" 
    response.AddHeader("Content-Disposition", "attachment;filename=""" & "icalendarTest" & ".ics""") 
    response.Write(data) 
    response.[End]() 
End Sub 

내가 파일을 다운로드 및 이벤트를 볼 수 있지만 다음과 같이

strResult.Append("BEGIN:VCALENDAR" & vbCrLf)   

    strResult.Append("VERSION:2.0" & vbCrLf) 

    strResult.Append("METHOD:PUBLISH" & vbCrLf) 

    While rst1.Read 
     strResult.Append("BEGIN:VEVENT" & vbCrLf) 

     strResult.Append("DTSTART: " & CDate(getLeave_date_start(CStr(rst1.getInteger("inq_id")), g_dom_id)).ToUniversalTime().ToString("yyyyMMddTHHmmssZ") & vbCrLf)  

     strResult.Append("DTEND: " & CDate(getLeave_date_end(CStr(rst1.getInteger("inq_id")), g_dom_id)).ToUniversalTime().ToString("yyyyMMddTHHmmssZ") & vbCrLf) 

     strResult.Append("SUMMARY: " & rst1.getString("inq_name") & vbCrLf) 

     strResult.Append("UID: " & rst1.getInteger("inq_id") & vbCrLf) 

     strResult.Append("CLASS:PUBLIC" & vbCrLf) 

     strResult.Append("END:VEVENT" & vbCrLf) 

    End While 
    strResult.Append("END:VCALENDAR" & vbCrLf) 

    WriteCalendar(strResult) 

내가 함수 WriteCalendar를 썼다는 6 이벤트가 성공적으로 가져라고하지만 난 그들에 볼 수 없습니다 나의 달력

내가 .ics 인 모든 태그를 포함하지 않았다

출력 icalendarTest.ics

BEGIN:VCALENDAR 
VERSION:2.0 
METHOD:PUBLISH 
BEGIN:VEVENT 
DTSTART: 20110107T060000Z 
DTEND: 20110109T080000Z 
SUMMARY: ayin yedisinden dokuzuna 
UID: 9 
CLASS:PUBLIC 
END:VEVENT 
BEGIN:VEVENT 
DTSTART: 20110119T103000Z 
DTEND: 20110119T150000Z 
SUMMARY: tek gunluk ondokuz 
UID: 10 
CLASS:PUBLIC 
END:VEVENT 
BEGIN:VEVENT 
DTSTART: 20110213T080000Z 
DTEND: 20110213T160000Z 
SUMMARY: Mijn Event 
UID: 21 
CLASS:PUBLIC 
END:VEVENT 
BEGIN:VEVENT 
DTSTART: 20110301T083000Z 
DTEND: 20110302T110000Z 
SUMMARY: Mart kapidan baktirir 
UID: 26 
CLASS:PUBLIC 
END:VEVENT 
BEGIN:VEVENT 
DTSTART: 20110117T080000Z 
DTEND: 20110117T120000Z 
SUMMARY: Neyse bi oncesi olsun 
UID: 27 
CLASS:PUBLIC 
END:VEVENT 
BEGIN:VEVENT 
DTSTART: 20110121T130000Z 
DTEND: 20110121T180000Z 
SUMMARY: ocak 21i 
UID: 31 
CLASS:PUBLIC 
END:VEVENT 
END:VCALENDAR 

Answer 1

이 오류의 이유를 이잖아.

Google 캘린더에서 내 캘린더를 추출하고 누락 된 데이터를 포함 시켰지만 이제는 작동합니다. uncesessary 것을 나는 발견하지만 DTSTAMP이 필요한 것 같다,하지만 좋은만큼이

strResult.Append("BEGIN:VCALENDAR" & vbCrLf) 
    strResult.Append("PRODID:-//Google Inc//Google Calendar 70.9054//EN" & vbCrLf) 
    strResult.Append("VERSION:2.0" & vbCrLf) 
    strResult.Append("METHOD:PUBLISH" & vbCrLf) 

    While rst1.Read 
     strResult.Append("BEGIN:VEVENT" & vbCrLf) 
     strResult.Append("DTSTART:" & rst1.getDateTime("hly_startdate").ToUniversalTime().ToString("yyyyMMddTHHmmssZ") & vbCrLf) 
     strResult.Append("DTEND:" & rst1.getDateTime("hly_enddate").ToUniversalTime().ToString("yyyyMMddTHHmmssZ") & vbCrLf) 
     strResult.Append("DTSTAMP:" & rst1.getDateTime("hly_date_created").ToUniversalTime().ToString("yyyyMMddTHHmmssZ") & vbCrLf) 
     strResult.Append("SEQUENCE:0" & vbCrLf) 
     strResult.Append("STATUS:CONFIRMED" & vbCrLf) 
     strResult.Append("SUMMARY:" & rst1.getString("hly_name") & vbCrLf) 
     strResult.Append("UID:" & System.Guid.NewGuid.ToString() & vbCrLf) 
     strResult.Append("CLASS:PUBLIC" & vbCrLf) 
     strResult.Append("TRANSP:OPAQUE" & vbCrLf) 
     strResult.Append("END:VEVENT" & vbCrLf) 

    End While 
    strResult.Append("END:VCALENDAR" & vbCrLf)