Vbscript 如何显示法语字母？ dim fso:set fso=CreateObject（“Scripting.FileSystemObject”） 子窗口加载 Set dict=CreateObject（“Scripting.Dictionary”） Set file=fso.OpenTextFile（“fr.yml”，1） 行=0 直到file.AtEndOfStream 'Msgbox（file.Readline） line=file.Readline 添加行、行 行=行+1 环 nnn.innerHTML=dict（15） hhh.innerHTML=“prêtáprêtá” 端接头 prêtá prêtá

在这段代码中，

像这样显示

termÃ

，而

正好像这样显示

prêtápr

我的fr.yml文件有第16行

termine

您的输入文件（

fr.yml

）似乎是UTF-8编码的

FileSystemObject

方法无法处理该编码，因此您需要使用

ADODB.Stream

，如@Ekkehard.Horner建议的：

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

您的输入文件（

fr.yml

）似乎是UTF-8编码的

FileSystemObject

方法无法处理该编码，因此您需要使用

ADODB.Stream

，如@Ekkehard.Horner建议的：

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

---

我自己解决了这个问题，在

OpenTextFile（）

中添加了一个参数

---

参考

我自己解决了这个问题，在

OpenTextFile（）

中添加了一个参数

---

参考

您的代码工作正常。谢谢你。但后来我自己找到了问题的答案。由于我的错误很小，我宁愿用我的。无论如何谢谢你。你的代码也很好用，你的代码很好用。谢谢你。但后来我自己找到了问题的答案。由于我的错误很小，我宁愿用我的。无论如何谢谢你。你的代码也行。