06. december 2011 - 10:25
Der er
1 kommentar og
1 løsning
Lave ANSI txt fil om så man kan se æøå
Jeg har en auto genereret ANSI fil som jeg læser med FSO problemet er at æøå bliver vist som < > og nogle andre tegn.
Jeg har forsøgt mig med ADODB.Stream til at konventer filen men det virkede heller ikke.
Jeg har også forsøgt med alle mulige slags replace funktioner uden held.
Filen bliver gemt som ANSI fra et økonomi program jeg ingen indflydelse har på.
06. december 2011 - 11:18
#2
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 **********************
Ny bruger
Nybegynder
Opret
Preview
