中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何用 vbs 将 test.txt 里的每一行首字母变成大写?

作者:

标题: 如何用 vbs 将 test.txt 里的每一行首字母变成大写?

上一主题 | 下一主题

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『楼主』: 如何用 vbs 将 test.txt 里的每一行首字母变成大写? 使用 LLM 解释/回答一下

test.txt 里有



test

good

then

file

如何用 vbs 将 test.txt 里的每一行首字母变成大写?



Set fso = createobject("scripting.filesystemobject")

set file = fso.opentextfile("test.txt",1)

do while file.atendofstream <> true

str = file.readline

str = ucase(left(str,1))

a =a&str&vbcrlf

loop

msgbox a

我写的该怎样改?

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-5-2 09:52

查看资料发短消息网志

编辑帖子回复引用回复

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

稍作修改即可，代码如下：
Set fso = createobject("scripting.filesystemobject")
set file = fso.opentextfile("test.txt",1)
do while file.atendofstream <> true
str = file.readline
str = ucase(left(str,1))＆right(str,3)
a =a&str&vbcrlf
loop
msgbox a

此帖被 +1 点积分

点击查看详情

scriptlover
Be with script forever!!

2007-5-2 11:05

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

想请教 huzixuan 兄：file.atendofstream <> true和a =a&str&vbcrlf
这两句为何要这样写？？？

）：）：

scriptlover
Be with script forever!!