---
title: "Svenska tecken blir ej bra vid export till .ics fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/120542-svenska-tecken-blir-ej-bra-vid-export-till-ics-fil"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "max"
published: "2005-01-19T17:23:13.000Z"
updated: "2005-02-18T13:16:28.000Z"
replies: 4
views: 592
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/120542-svenska-tecken-blir-ej-bra-vid-export-till-ics-fil"
---

# Svenska tecken blir ej bra vid export till .ics fil

## #1 — max, 2005-01-19T17:23Z

Hej

Hur har ni det?

Vet någon hur man gå tillväga för att fixa fenomenet med att svenska tecken inte skrivs ut utan det blir tomma tecken eller andra konstigheter vid exportera data från en datagrid till en .ics fil. 

Har denna inställning i web.config filen     \<globalization fileEncoding="iso-8859-1" requestEncoding="iso-8859-1" responseEncoding="iso-8859-1" culture="sv-SE" uiCulture="sv-SE" /\> samt System.Text.Encoding.Default är Western European (ISO). Denna funktion ligger i en usercontrol. 

Måste man göra några justeringar på aspx sidan där den är applicerad. Det vore toppen om någon vet vad detta bero på och vilken medicin det finns till det.

Tack på förhand

Permalänk: https://www.webforum.nu/p/120542

## #2 — renholm, 2005-01-28T21:17Z

Vilken funktion använder du för att skriva till filen? Oftast går det att ange vilken encoding som skall användas.

Permalänk: https://www.webforum.nu/p/1541023

## #3 — max, 2005-01-29T20:17Z

Hej Renholm

Denna kod används vid en image button click som använder sig av en klass som bifogas. Det som ställer till förtret är raden som är Page.Response.ContentEncoding = System.Text.Encoding.Default Det vore toppen om det finns en lösning till detta.

Tack på förhand

            Dim lblOpponent As Label
            lblOpponent = CType(E.Item.FindControl("lblOpponent"), Label)
            Dim sOpponent As String = lblOpponent.Text & Response.ContentEncoding.EncodingName

            Page.Response.ContentEncoding = System.Text.Encoding.Default
            Response.AddHeader("Content-disposition", "attachment; filename=" & slblAgeID & "\_" & EventName & "\_" & sPlace & ".ics")

            Dim evt As New vCalendar.vEvent
            evt.UID = "Aktivitet" + EventID
            evt.DTStart = dStartDate
            evt.DTEnd = dEndDate
            evt.Summary = slblAgeID & " " & EventName
            evt.URL = "http://www.lgoif.org/Calender.aspx"
            evt.Description = sAge & " - " & sOpponent & " Aktivitet:" & EventName & ", Plats:" & sPlace
            evt.Location = sPlace
            evt.Organizer = "mfaxelsson@hotmail.com"
            evt.Alarms.Add(New vCalendar.vAlarm(TimeSpan.FromDays(1)))
            Dim cal As New vCalendar(evt)
            Response.Write(cal.ToString())
            Response.End()

Permalänk: https://www.webforum.nu/p/1541381

## #4 — max, 2005-01-29T20:23Z

Bifogad fil i klartext

Fick ej med bifogad fil tidigare och vet ej hur man gör för att få med den vid redigeringsläge, så här ser den bifogade filen ut :-)

Public Class vCalendar
\#Region "vCalendar Class"
	Public Events As vEvents

	Public Overrides Function ToString() As String
		Dim result As New System.Text.StringBuilder()
		result.AppendFormat("BEGIN:VCALENDAR{0}", System.Environment.NewLine)
		'The following two lines seem to be required by Outlook to get the alarm settings
		result.AppendFormat("VERSION:2.0{0}", System.Environment.NewLine)
		result.AppendFormat("METHOD:PUBLISH{0}", System.Environment.NewLine)
		Dim item As vEvent
		For Each item In Events
			result.Append(item.ToString())
		Next
		result.AppendFormat("END:VCALENDAR{0}", System.Environment.NewLine)
		Return result.ToString
	End Function

	Public Sub New(ByVal Value As vEvent)
		Me.Events = New vEvents()
		Me.Events.Add(Value)
	End Sub

	Public Sub New()
		Me.Events = New vEvents()
	End Sub
\#End Region

\#Region "vAlarm Class"
	Public Class vAlarm
		Public Trigger As TimeSpan		'Amount of time before event to display alarm
		Public Action As String		 'Action to take to notify user of alarm
		Public Description As String		  'Description of the alarm

		Public Sub New()
			Trigger = TimeSpan.FromDays(1)
			Action = "DISPLAY"
			Description = "Reminder"
		End Sub

		Public Sub New(ByVal SetTrigger As TimeSpan)
			Trigger = SetTrigger
			Action = "DISPLAY"
			Description = "Reminder"
		End Sub

		Public Sub New(ByVal SetTrigger As TimeSpan, ByVal SetAction As String, ByVal SetDescription As String)
			Trigger = SetTrigger
			Action = SetAction
			Description = SetDescription
		End Sub

		Public Overrides Function ToString() As String
			Dim result As New System.Text.StringBuilder()
			result.AppendFormat("BEGIN:VALARM{0}", System.Environment.NewLine)
			result.AppendFormat("TRIGGER:P{0}DT{1}H{2}M{3}", Trigger.Days, Trigger.Hours, Trigger.Minutes, System.Environment.NewLine)
			result.AppendFormat("ACTION:{0}{1}", Action, System.Environment.NewLine)
			result.AppendFormat("DESCRIPTION:{0}{1}", Description, System.Environment.NewLine)
			result.AppendFormat("END:VALARM{0}", System.Environment.NewLine)
			Return result.ToString
		End Function
	End Class
\#End Region

\#Region "vEvent Class"
	Public Class vEvent
        Public UID As String    'Unique identifier for the event
        Public DTStart As Date  'Start date of event.  Will be automatically converted to GMT
        Public DTEnd As Date   'End date of event.  Will be automatically converted to GMT
        Public DTStamp As Date  'Timestamp.  Will be automatically converted to GMT
		Public Summary As String		  'Summary/Subject of event
		Public Organizer As String		'Can be mailto: url or just a name
		Public Location As String
		Public Description As String
		Public URL As String
		Public Alarms As vAlarms		'Alarms needed for this event

		Public Overrides Function ToString() As String
			Dim result As New System.Text.StringBuilder()
			result.AppendFormat("BEGIN:VEVENT{0}", System.Environment.NewLine)
			result.AppendFormat("UID:{0}{1}", UID, System.Environment.NewLine)
			result.AppendFormat("SUMMARY:{0}{1}", Summary, System.Environment.NewLine)
			result.AppendFormat("ORGANIZER:{0}{1}", Organizer, System.Environment.NewLine)
			result.AppendFormat("LOCATION:{0}{1}", Location, System.Environment.NewLine)
			result.AppendFormat("DTSTART:{0}{1}", DTStart.ToUniversalTime.ToString("yyyyMMdd\\THHmmss\\Z"), System.Environment.NewLine)
			result.AppendFormat("DTEND:{0}{1}", DTEnd.ToUniversalTime.ToString("yyyyMMdd\\THHmmss\\Z"), System.Environment.NewLine)
			result.AppendFormat("DTSTAMP:{0}{1}", Now.ToUniversalTime.ToString("yyyyMMdd\\THHmmss\\Z"), System.Environment.NewLine)
			result.AppendFormat("DESCRIPTION:{0}{1}", Description, System.Environment.NewLine)
			If URL.Length \> 0 Then result.AppendFormat("URL:{0}{1}", URL, System.Environment.NewLine)
			Dim item As vAlarm
			For Each item In Alarms
				result.Append(item.ToString())
			Next
			result.AppendFormat("END:VEVENT{0}", System.Environment.NewLine)
			Return result.ToString
		End Function

		Public Sub New()
			Me.Alarms = New vAlarms()
		End Sub
	End Class
\#End Region

\#Region "vAlarms Class"
	Public Class vAlarms
		' The first thing to do when building a CollectionBase class is to inherit from System.Collections.CollectionBase
		Inherits System.Collections.CollectionBase

		Public Overloads Function Add(ByVal Value As vAlarm) As vAlarm
			' After you inherit the CollectionBase class, you can access an intrinsic object
			' called InnerList that represents your collection. InnerList is of type ArrayList.
			Me.InnerList.Add(Value)
			Return Value
		End Function

		Public Overloads Function Item(ByVal Index As Integer) As vAlarm
			' To retrieve an item from the InnerList, pass the index of that item to the .Item property.
			Return CType(Me.InnerList.Item(Index), vAlarm)
		End Function

		Public Overloads Sub Remove(ByVal Index As Integer)
			' This Remove expects an index.
			Dim cust As vAlarm

			cust = CType(Me.InnerList.Item(Index), vAlarm)
			If Not cust Is Nothing Then
				Me.InnerList.Remove(cust)
			End If
		End Sub

	End Class
\#End Region

\#Region "vEvents Class"
	Public Class vEvents
		' The first thing to do when building a CollectionBase class is to inherit from System.Collections.CollectionBase
		Inherits System.Collections.CollectionBase

		Public Overloads Function Add(ByVal Value As vEvent) As vEvent
			' After you inherit the CollectionBase class, you can access an intrinsic object
			' called InnerList that represents your collection. InnerList is of type ArrayList.
			Me.InnerList.Add(Value)
			Return Value
		End Function

		Public Overloads Function Item(ByVal Index As Integer) As vEvent
			' To retrieve an item from the InnerList, pass the index of that item to the .Item property.
			Return CType(Me.InnerList.Item(Index), vEvent)
		End Function

		Public Overloads Sub Remove(ByVal Index As Integer)
			' This Remove expects an index.
			Dim cust As vEvent

			cust = CType(Me.InnerList.Item(Index), vEvent)
			If Not cust Is Nothing Then
				Me.InnerList.Remove(cust)
			End If
		End Sub
	End Class
\#End Region
End Class

Permalänk: https://www.webforum.nu/p/1541383

## #5 — max, 2005-02-18T13:16Z

Lösning på problemet med svenska bokstäver

Genom att ändra raden

Page.Response.ContentEncoding = System.Text.Encoding.default

till nedanstående blev det ok.

Page.Response.ContentEncoding = System.Text.Encoding.UTF8

Tänk vad lite kan göra mycket.

Trevlig helg.

Permalänk: https://www.webforum.nu/p/1556759

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/120542-svenska-tecken-blir-ej-bra-vid-export-till-ics-fil