|
|
|
Read UTF-8 File
Snippet Menu
1
Wed. Mar. 4th, 2009 9:26 PM
Read all the text from a UTF-8 format file using ADODB.Stream.
' read text from file in utf-8 format
' Example: content = readUTF_File("/public/test_HTML_E.asp")
Function readUTF_File(FileUrl)
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Charset = "utf-8"
.Type=2
.mode=3
.Open
.loadfromfile FileUrl
readUTF_File=.readtext
.Close
End With
Set objStream = Nothing
End Function
Cloudgen Wong
my.opera.com/cloudgenMore examples onExamplet store
Clougen's blog: Index of Java Language, PHP Class,
App Engine Guide,Rhino Tutorial,QueScriptmy.opera.com, Web Server Tricks6502 Assembly Language
, programming guy, Javascript Laboratory ,jQuery Plugin Blog, App Engine Guide Blog,Examplet Blog,PHP Class Blog, QueScript Blog,Rhino Tutorial Blog,Web Server Trick Blog
Follow me on twitter
Comments
Voting
Votes Up
Votes Down
There are currently no comments for this snippet.