中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-04 02:22

共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » [已结]如何用 VBS 来读取文本内容,来判断字符数量?

可打印版本　803 / 3

第1楼　huzixuan	发表于 2007-04-12 07:18
高级用户　发帖 219　积分 537　来自芜湖
[已结]如何用 VBS 来读取文本内容,来判断字符数量? 在批处理里我们这样写 @echo off setlocal enabledelayedexpansion set a=0 for /f "delims=" %%i in (str.txt) do ( set str=%%i) :result set s1=!str:~%a%,1! if "%s1%"=="" ( echo !a! ) else ( set /a a+=1 goto result ) pause 在 vbs 里,我们用 len 来返回字符数 b="123456789" msgbox(len(b)) 那么如何用 vbs 来读取文本内容并判断字符数量呢?? 感谢! [ Last edited by huzixuan on 2007-4-12 at 07:26 AM ]

第2楼　kich	发表于 2007-04-12 07:24
中级用户　发帖 168　积分 397
Set fso=CreateObject("Scripting.FileSystemObject") set objF=fso.OpenTextFile("C:\1.txt") TheText=objF.ReadAll msgbox len(Trim(TheText))

第3楼　slore	发表于 2007-04-12 07:49
铂金会员　发帖 2,478　积分 5,212
Originally posted by kich at 2007-4-11 18:24: Set fso=CreateObject("Scripting.FileSystemObject") set objF=fso.OpenTextFile("C:\1.txt") TheText=objF.ReadAll msgbox len(Trim(TheText)) 没有close没有set nothing 为什么用TRIM?空格或者TAB想保留也不行?

第4楼　kich	发表于 2007-04-12 07:56
中级用户　发帖 168　积分 397
哦，不好意思,那把改进一下吧!只是随便发发的!! ================= Set fso=CreateObject("Scripting.FileSystemObject") set objF=fso.OpenTextFile("C:\1.txt") TheText=objF.ReadAll msgbox len(TheText) objF.Close set objF=nothing set fso=nothing 其实用Trim只是删除首尾多余的空格嘛,很多人也不要这方面吧!! 我觉得是!! 呵呵

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023