VBScript 文本属性
最后修改于 2025 年 4 月 9 日
VBScript 中的 Text 属性用于获取或设置各种对象的文本内容。它通常在文本框和标签等 UI 控件中可用。该属性提供对字符串数据的访问，以便进行操作和显示。理解 Text 对于交互式脚本至关重要。
Text 与 Value 的不同之处在于它始终处理字符串表示形式。它广泛用于表单和用户界面。本教程将通过实际示例介绍 Text，以演示其在不同上下文中的用法。
文本属性概述
Text 属性表示对象的可见字符串内容。在大多数实现中，它是可读写的。该属性可用于 HTML DOM 元素和 Windows Script Host 控件。
主要功能包括自动字符串转换和直接内容访问。它在赋值时不对其进行验证。Text 可用于简单的字符串和格式化内容。理解此属性有助于创建交互式脚本。
基本文本框操作
此示例演示了 Text 属性与输入框的基本用法。它展示了如何获取和设置文本内容。脚本通过该属性与用户输入进行交互。
Dim userInput
userInput = InputBox("Enter your name:")
MsgBox "You entered: " & userInput, vbInformation, "Result"
' Set default text in second input
userInput = InputBox("Confirm your name:", "Confirmation", "John Doe")
MsgBox "Final value: " & userInput
该脚本使用 InputBox，它有一个隐式的 Text 属性。第一个调用获取用户输入。第二个调用演示设置默认文本。该属性处理所有字符串交互。
HTML DOM 文本操作
此示例展示了 Text 属性与 HTML DOM 元素的用法。它演示了读取和修改元素内容。脚本与网页的元素进行交互。
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "about:blank"
Do While IE.Busy
WScript.Sleep 100
Loop
IE.Document.body.innerHTML = "<input type='text' id='txtBox' value='Initial'>"
IE.Document.getElementById("txtBox").Text = "New Value"
MsgBox "Text box contains: " & IE.Document.getElementById("txtBox").Text
IE.Quit
该脚本创建了一个 IE 实例并添加了一个文本框。它修改了 Text 属性，然后将其读回。这表明了通过 VBScript 进行 DOM 交互。
FileSystemObject TextStream
此示例演示了 Text 属性与文件操作。它展示了通过 TextStream 读取文件内容。该属性提供了对文件内容的访问。
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("example.txt", True)
file.WriteLine "Sample text content"
file.Close
Set file = fso.OpenTextFile("example.txt", 1)
content = file.ReadAll
MsgBox "File contains: " & content
file.Close
Set fso = Nothing
该脚本创建一个文件并向其中写入文本。然后它使用 ReadAll 读取内容，该方法会填充 Text 属性的等价物。这表明了文件内容的处理。
WScript Echo 文本输出
此示例展示了将 Text 属性的等价物与 WScript.Echo 一起使用。它演示了文本内容的控制台输出。该方法自动处理字符串转换。
Dim greeting greeting = "Hello, World!" WScript.Echo greeting Dim numText numText = 123.45 WScript.Echo "Number as text: " & numText
该脚本直接将文本输出到控制台。它展示了直接字符串输出和数字到文本的转换。WScript.Echo 使用 Text 表示形式。
Dictionary 对象文本转换
此示例演示了 Dictionary 对象隐式使用 Text 属性。它展示了 VBScript 如何处理集合对象的文本转换。
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "name", "John"
dict.Add "age", 30
textRep = "Dictionary contents: " & vbCrLf
For Each key In dict.Keys
textRep = textRep & key & ": " & dict(key) & vbCrLf
Next
MsgBox textRep
Set dict = Nothing
该脚本创建一个字典并将其内容转换为文本。每个值都会自动转换为其文本表示形式。这表明了集合与文本的处理。
来源
在本文中，我们探讨了 VBScript 中的 Text 属性，介绍了其用法和实际应用。从简单的对话框到文件操作和 DOM 操作，这些示例都展示了文本处理。有了这些知识，您就可以通过强大的文本处理功能来增强您的脚本。