中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-03 20:33

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » [VBS]如何把韩文字符输出到文本文件里

可打印版本　1,062 / 6

第1楼　kich	发表于 2007-03-24 09:07
中级用户　发帖 168　积分 397
[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变量可以正确地弹出来，但是就没办法写入！想请教为什么！！如何解决呢？本想上传附件来方便一点的，但没办法上传了！哎！

第2楼　zhclvip	发表于 2007-03-24 11:02
初级用户　发帖 50　积分 138
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"

第3楼　zhclvip	发表于 2007-03-24 11:05
初级用户　发帖 50　积分 138
注意的是，韩文要保存在data.txt文件中，以UTF编码格式保存。

第4楼　jmz573515	发表于 2007-03-24 11:28
银牌会员　发帖 464　积分 1,212
怪不得怎么试也不行... 高人啊，佩服！ [ Last edited by jmz573515 on 2007-3-23 at 10:30 PM ]

第5楼　kich	发表于 2007-03-24 11:34
中级用户　发帖 168　积分 397
请问，保存成UFT格式的，就是那多加一个设置成-1吗？太感谢了！我生成的文本文件，看上去，是黑粑粑，但用Word打开就是韩文了，正常吗？

第6楼　jmz573515	发表于 2007-03-24 12:26
银牌会员　发帖 464　积分 1,212
正常,你把你的记事本时的字体改一改就行了.

第7楼　kich	发表于 2007-03-26 07:27
中级用户　发帖 168　积分 397
感谢贵人！！

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023