标题: [VBS]如何把韩文字符输出到文本文件里 [打印本页]

---

作者: kich     时间: 2007-3-24 09:07    标题: [VBS]如何把韩文字符输出到文本文件里

有这样的文件：

01 이정현 - 00001.txt
02 이정현 - GX 339-4.txt
03 이정현 - Bird.txt
04 이정현 - 바꿔.txt

如何输出？输出到List.txt里！
我的代码，不知道为什么不行！

Dim FSO,s
Set FSO=CreateObject("Scripting.FileSystemObject")
Set AllF=FSO.GetFolder(fso.GetParentFolderName (WScript.ScriptFullName ))

For Each file In AllF.Files
   s=s&file.name&VbCrLf

Next

Set FW=FSO.CreateTextFile("List.txt",1)
    MsgBox s
    FW.Write s
    FW.Close
Set FW=Nothing

=======
s变量可以正确地弹出来，但是就没办法写入！想请教为什么！！
如何解决呢？

本想上传附件来方便一点的，但没办法上传了！哎！

---

作者: zhclvip     时间: 2007-3-24 11:02
Set FSO=CreateObject("Scripting.FileSystemObject")
Set files=FSO.OpenTextFile("data.txt",1,False,-1)
msg=files.ReadAll
files.Close
Set files=FSO.OpenTextFile("OUT.txt",2,True,-1)
files.Write msg
files.Close
Msgbox msg,0,"Unicode"

---

作者: zhclvip     时间: 2007-3-24 11:05
注意的是，韩文要保存在data.txt文件中，以UTF编码格式保存。

---

作者: jmz573515     时间: 2007-3-24 11:28
怪不得怎么试也不行...
高人啊，佩服！

[ Last edited by jmz573515 on 2007-3-23 at 10:30 PM ]

---

作者: kich     时间: 2007-3-24 11:34
请问，保存成UFT格式的，就是那多加一个设置成-1吗？

太感谢了！

我生成的文本文件，看上去，是黑粑粑，但用Word打开就是韩文了，正常吗？

---

作者: jmz573515     时间: 2007-3-24 12:26
正常,你把你的记事本时的字体改一改就行了.

---

作者: kich     时间: 2007-3-26 07:27
感谢贵人！！