中国DOS联盟

在 批处理 里我们这样写

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

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

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

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

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