Lave ANSI txt fil om så man kan se æøå

Kan du gemme filen i UTF-8 format ?.
Et forslag til ADODB.Stream / UTF-8 i dette link
http://www.eksperten.dk/spm/636220#reply_5688383

Endelig fik jeg løst det selv.


function ret(str)
  str = replace(str, "'", "'")
  str = replace(str, "æ", "æ")
  str = replace(str, "Æ", "&Aelig;")
  str = replace(str, "ø", "ø")
  str = replace(str, "Ø", "Ø")
  str = replace(str, "Ã¥", "å")
  str = replace(str, "Ã...", "Å")
  str = replace(str, "æ", "æ")
  str = replace(str, "Æ", "&Aelig;")
  str = replace(str, "ø", "ø")
  str = replace(str, "Ø", "Ø")
  str = replace(str, "å", "å")
  str = replace(str, "Å", "Å")
  ret = str
end function

'**********************  Convert start  **********************
Const adTypeBinary = 1
Const adTypeText = 2
Const bOverwrite = True
Const bAsASCII = False

Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )

Dim sFFSpec : sFFSpec = oFS.GetAbsolutePathName( Server.MapPath("mc.txt") )
Dim sTFSpec : sTFSpec = oFS.GetAbsolutePathName( Server.MapPath("mc-utf8.txt") )

Dim oFrom : Set oFrom = CreateObject( "ADODB.Stream" )
Dim sFrom : sFrom = "Cp850"
Dim oTo : Set oTo = CreateObject( "ADODB.Stream" )
Dim sTo : sTo = "utf-8"

If oFS.FileExists( sTFSpec ) Then oFS.DeleteFile sTFSpec

oFrom.Type = adTypeText
oFrom.Charset = sFrom
oFrom.Open
oFrom.LoadFromFile sFFSpec

oTo.Type = adTypeText
oTo.Charset = sTo
oTo.Open
oTo.WriteText oFrom.ReadText
oTo.SaveToFile sTFSpec

oFrom.Close
oTo.Close
'**********************  Convert slut  **********************