中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『楼主』: [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变量可以正确地弹出来，但是就没办法写入！想请教为什么！！
如何解决呢？

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

2007-3-24 09:07

zhclvip
初级用户

积分 138
发帖 50
注册 2007-1-23
状态离线

『第 2 楼』:

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"

此帖被 +8 点积分

点击查看详情

2007-3-24 11:02

zhclvip
初级用户

积分 138
发帖 50
注册 2007-1-23
状态离线

『第 3 楼』:

注意的是，韩文要保存在data.txt文件中，以UTF编码格式保存。

此帖被 +8 点积分

点击查看详情

2007-3-24 11:05

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 4 楼』:

怪不得怎么试也不行...
高人啊，佩服！

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

2007-3-24 11:28

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『第 5 楼』:

请问，保存成UFT格式的，就是那多加一个设置成-1吗？

太感谢了！

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

2007-3-24 11:34

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 6 楼』:

正常,你把你的记事本时的字体改一改就行了.

2007-3-24 12:26

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『第 7 楼』:

感谢贵人！！

2007-3-26 07:27

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: