中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 11:08 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 如何用 vbs 将 test.txt 里的每一行首字母变成大写?
可打印版本 　929 / 7
第1楼　huzixuan 发表于 2007-05-02 09:52
高级用户　发帖 219　积分 537　来自 芜湖
如何用 vbs 将 test.txt 里的每一行首字母变成大写?
test.txt 里有



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



我写的该怎样改?
第2楼　stornager 发表于 2007-05-02 11:05
中级用户　发帖 131　积分 328
稍作修改即可，代码如下：
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
第3楼　stornager 发表于 2007-05-02 11:11
中级用户　发帖 131　积分 328
想请教 huzixuan 兄：file.atendofstream <> true和a =a&str&vbcrlf
这两句为何要这样写？？？

）：）：
第4楼　huzixuan 发表于 2007-05-02 13:52
高级用户　发帖 219　积分 537　来自 芜湖
file.atendofstream <> true
如果文件指针指向 文件尾 那么就退出 do...loop 循环

说的不是很严谨
第5楼　huzixuan 发表于 2007-05-02 13:59
高级用户　发帖 219　积分 537　来自 芜湖
2 楼 stornager 兄,请问如果 test.txt 里字符长度不一样如下:
test.txt

该如何写这个 vbs 的代码?
第6楼　slore 发表于 2007-05-02 15:27
铂金会员　发帖 2,478　积分 5,212
先全部lcase然后把第一个ucase下合并……这个和长度有什么关系...
第7楼　slore 发表于 2007-05-02 18:04
铂金会员　发帖 2,478　积分 5,212
strA="GdSDFfsdfsAGSDdg"
strA = UCase(Left(strA,1)) & LCase(Mid(strA,2))
MsgBox strA
第8楼　huzixuan 发表于 2007-05-02 18:11
高级用户　发帖 219　积分 537　来自 芜湖
饿,受宠若惊啊.
刚发一个短信就引来兄的帮助. 谢谢!
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023