标题: 如何用 vbs 将 test.txt 里的每一行首字母变成大写? [打印本页]
作者: huzixuan 时间: 2007-5-2 09:52 标题: 如何用 vbs 将 test.txt 里的每一行首字母变成大写?
test.txt 里有
test
good
then
file
如何用 vbs 将 test.txt 里的每一行首字母变成大写?good
then
file
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
我写的该怎样改?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
作者: stornager 时间: 2007-5-2 11:05
稍作修改即可，代码如下：
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
作者: stornager 时间: 2007-5-2 11:11
想请教 huzixuan 兄：file.atendofstream <> true和a =a&str&vbcrlf
这两句为何要这样写？？？
）：）：
作者: huzixuan 时间: 2007-5-2 13:52
file.atendofstream <> true
如果文件指针指向 文件尾 那么就退出 do...loop 循环
说的不是很严谨
作者: huzixuan 时间: 2007-5-2 13:59
2 楼 stornager 兄,请问如果 test.txt 里字符长度不一样如下:
test.txt
a
ab
abc
test
该如何写这个 vbs 的代码?ab
abc
test
作者: slore 时间: 2007-5-2 15:27
先全部lcase然后把第一个ucase下合并……这个和长度有什么关系...
作者: slore 时间: 2007-5-2 18:04
strA="GdSDFfsdfsAGSDdg"
strA = UCase(Left(strA,1)) & LCase(Mid(strA,2))
MsgBox strA
作者: huzixuan 时间: 2007-5-2 18:11
饿,受宠若惊啊.
刚发一个短信就引来兄的帮助. 谢谢!