中国DOS联盟

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

我写的该怎样改?

稍作修改即可，代码如下：
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

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

）：）：

file.atendofstream <> true
如果文件指针指向 文件尾 那么就退出 do...loop 循环

说的不是很严谨

2 楼 stornager 兄,请问如果 test.txt 里字符长度不一样如下:
test.txt

a

ab

abc

test

该如何写这个 vbs 的代码?

先全部lcase然后把第一个ucase下合并……这个和长度有什么关系...

strA="GdSDFfsdfsAGSDdg"
strA = UCase(Left(strA,1)) & LCase(Mid(strA,2))
MsgBox strA

饿,受宠若惊啊.
刚发一个短信就引来兄的帮助. 谢谢!