vbs读取txt的问题

来源：百度知道 编辑：UC知道 时间：2024/07/06 19:45:02
已知文档111.txt，第一行内容是一字母开头的一个单词，但是我不知道这个单词什么。但是我知道这个干单词后面有个空格和另一个单词。
请问如何读取这个单词，还有他后面的单词。请加上说明，我好学习下 谢谢
还有vbs如何获取本地账户名。并且把获取到的用户名设置成函数

Dim fso,file,msg,a rem 定义变量
Set fso=CreateObject("Scripting.FileSystemObject") rem 引用对象 该对象提供对计算机文件系统的访问
Set file=fso.OpenTextFile("z:\1.txt",1,True) rem 使用OpenTextFile 方法 读取文本内容
Do While Not file.AtEndOfStream
rem AtEndOfStream属性如果文件指针正好位于 TextStream 文件中的结尾，则rem 返回true，否则返回 false
rem（Do While Not file.AtEndOfStream 也就是说循环读取文本文件直到文件的结尾）
msg=file.ReadLine rem 将读到的行内容赋值给变量msg
a=split(msg," ") rem split函数 以一个空格为界分离该字符串变量
Loop
file.Close ' 关闭该引用对象
set file=Nothing rem 释放对象
set fso=Nothing

msgbox a(0) rem 弹出对话框 显示第一个单词
msgbox a(1) rem 弹出对话框 显示第二个单词

dim wsnet
set wsnet=wscript.createobject("wscript.network") rem 引用对象
msgbox "用户名：" & wsnet.username rem 对象属性

VBS???? 用VB 倒是很简单