如何显示法文字母? [英] How to display french letters?
本文介绍了如何显示法文字母?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<head>
<script language = "VBScript">
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
Sub Window_onLoad
Set dict = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile ("fr.yml", 1)
row = 0
Do Until file.AtEndOfStream
'Msgbox(file.Readline)
line = file.Readline
dict.Add row, line
row = row + 1
Loop
nnn.innerHTML = dict(15)
hhh.innerHTML = "prêt àprêt à"
End Sub
</script>
<body>
<p id="nnn">éprêt à</p>
<p id="hhh">éprêt à</p>
</body>
在此代码中，<p id="nnn">像这样显示Terminé，而<p id="hhh">像这样精确显示prêt àprêt à.
In this code the <p id="nnn"> shows Terminé like this, and <p id="hhh"> shows prêt àprêt à like this exactly.
我的fr.yml文件的第16行是Terminé.
My fr.yml file has 16th line Terminé.
推荐答案
您的输入文件(fr.yml)似乎是UTF-8编码的. FileSystemObject方法无法处理该编码，因此您需要使用ADODB.Stream，如@ Ekkehard.Horner建议的那样:
Your input file (fr.yml) appears to be UTF-8 encoded. FileSystemObject methods can't handle that encoding, so you need to use an ADODB.Stream, as @Ekkehard.Horner suggested:
Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 2 'text
stream.Charset = "utf-8"
stream.LoadFromFile "fr.yml"
For Each line In Split(stream.ReadText, vbNewLine)
dict.Add row, line
row = row + 1
Next
stream.Close
这篇关于如何显示法文字母?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
