中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

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

作者:

标题: [已结]如何用 VBS 来读取文本内容,来判断字符数量?

上一主题 | 下一主题

huzixuan
高级用户

积分 537
发帖 219
注册 2006-10-31
来自芜湖
状态离线

『楼主』: [已结]如何用 VBS 来读取文本内容,来判断字符数量? 使用 LLM 解释/回答一下

在批处理里我们这样写


@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 ]

江湖远
碧空长
路茫茫

一个人漫无目的的奔跑,风,刺骨的冷....

2007-4-12 07:18

查看资料发短消息网志

编辑帖子回复引用回复

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

Set fso=CreateObject("Scripting.FileSystemObject")
set objF=fso.OpenTextFile("C:\1.txt")
TheText=objF.ReadAll
msgbox len(Trim(TheText))

此帖被 +4 点积分

点击查看详情

2007-4-12 07:24

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

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想保留也不行?

2007-4-12 07:49

查看资料发短消息网志

编辑帖子回复引用回复

kich
中级用户

积分 397
发帖 168
注册 2006-10-8
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

哦，不好意思,那把改进一下吧!只是随便发发的!!

=================
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只是删除首尾多余的空格嘛,很多人也不要这方面吧!!
我觉得是!!
呵呵

2007-4-12 07:56

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: