Hej.

Hur gör man för att smidigt spara Unicode filer till ASCII då jag inte kan läsa filerna med FileSystemObject när de är Unicode format!

Någon som vet varför eller kan förklara det för mig? Får spader....

tack för hjälpen.

prova med denna kommer inte ihåg var jag hittade den och jag har även tagit bort en del som jag inte behövde, hoppas den hjälper

function StrConv( stringData, conversion)
Dim Stream
Set Stream2 = Server.CreateObject("ADODB.Stream")
' Charsets
' Windows-1252
' Windows-1257
' UTF-8
' UTF-7
' ASCII
' X-ANSI
Const UnicodeCharaset = "Windows-1257"
Const BinaryCharset = "X-ANSI"

' Converts a Unicode String To Ascii
With Stream2
.Charset = UnicodeCharaset
.Type = 2
.Open
.WriteText stringData
.Position = 0
.Charset = BinaryCharset
.Type = 1
StrConv = MidB(.Read, 1)
End With



Stream2.Close
Set Stream2 = Nothing
End function


var_str = StrConv(var_str,"vbFromUnicode")