标题: [已结]如何用 VBS 来读取文本内容,来判断字符数量? [打印本页]
作者: huzixuan 时间: 2007-4-12 07:18 标题: [已结]如何用 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 里,我们用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
len 来返回字符数
b="123456789"
msgbox(len(b))
那么如何用 vbs 来读取文本内容并判断字符数量呢??msgbox(len(b))
感谢!
[ Last edited by huzixuan on 2007-4-12 at 07:26 AM ]
作者: kich 时间: 2007-4-12 07:24
Set fso=CreateObject("Scripting.FileSystemObject")
set objF=fso.OpenTextFile("C:\1.txt")
TheText=objF.ReadAll
msgbox len(Trim(TheText))
作者: slore 时间: 2007-4-12 07:49
| Quote: | |
|
没有close没有set nothing
为什么用TRIM?空格或者TAB想保留也不行?
作者: kich 时间: 2007-4-12 07:56
哦，不好意思,那把改进一下吧!只是随便发发的!!
=================
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只是删除首尾多余的空格嘛,很多人也不要这方面吧!!
我觉得是!!
呵呵