|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『楼 主』:
如何用 vbs 将 test.txt 里的每一行首字母变成大写?
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 楼』:
稍作修改即可，代码如下：
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
|
scriptlover
Be with script forever!! |
|
|
2007-5-2 11:05 |
|
|
stornager
中级用户
scriptlover
积分 328
发帖 131
注册 2007-3-25
状态 离线
|
『第
3 楼』:
想请教 huzixuan 兄：file.atendofstream <> true和a =a&str&vbcrlf
这两句为何要这样写？？？
）：）：
|
scriptlover
Be with script forever!! |
|
|
2007-5-2 11:11 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
4 楼』:
file.atendofstream <> true
如果文件指针指向 文件尾 那么就退出 do...loop 循环
说的不是很严谨
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-5-2 13:52 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
5 楼』:
2 楼 stornager 兄,请问如果 test.txt 里字符长度不一样如下:
test.txt
a
ab
abc
test 该如何写这个 vbs 的代码?
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-5-2 13:59 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
先全部lcase然后把第一个ucase下合并……这个和长度有什么关系...
|
|
|
2007-5-2 15:27 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
7 楼』:
strA="GdSDFfsdfsAGSDdg"
strA = UCase(Left(strA,1)) & LCase(Mid(strA,2))
MsgBox strA
|
|
|
2007-5-2 18:04 |
|
|
huzixuan
高级用户
积分 537
发帖 219
注册 2006-10-31
来自 芜湖
状态 离线
|
『第
8 楼』:
饿,受宠若惊啊.
刚发一个短信就引来兄的帮助. 谢谢!
|
江湖远
碧空长
路茫茫
一个人漫无目的的奔跑,风,刺骨的冷.... |
|
|
2007-5-2 18:11 |
|
