With 语句

对一个对象执行一系列的语句。

1 With object
2     statements
3 End With

1 With MyLabel
2   .Height = 2000
3   .Width = 2000
4   .Caption = "这是MyLabel"
5 End With

注意  一旦进入了 With 块，object是不可改变的。因此，不能使用一个With语句去改变若干对象的值。

来自 https://www.cnblogs.com/dahui4266/archive/2012/04/04/2431604.html

来自 http://blog.chinaunix.net/uid-26212859-id-3335357.html

来自  https://www.idcnote.com/php/biji/5436.html

vbs 中with end with的用法

一, 概述

VBScript是一种微软公司开发的脚本语言，主要用于Windows平台上的系统管理和自动化任务。其中，with end with是

VBScript中的一个关键字，用于简化代码编写和提高可读性

二, with end with的基本语法

with object

        statement1

        statement2

end with

其中，obiect可以是任何对象(如变量、数组、集合等)，用于指定需要执行操作的对象;statement1和statement2则

是需要执行的语句块

三, with end with的三用

1.简化代码编写: 使用with end with可以简化代码编写，避免重复输入对象名称

2.提高可读性: 使用with end with可以使代码更加易读，减少冗余代码

四、使用示例

以下是一些常见的使用示例:

1.使用with end with操作变量

Dim myVar

myVar = "Hello, world!

With myVar

        .ToUpper()

        .Replace("WORLD"，"Universe")

End With

在这个示例中，我们首先定义了一人名为myVar的变量，并将其赋值为"Hello,world!"。然后，在With myVar语句块

中，我们对该变量进行了两个操作: ToUpper0和Replace0。由于我们在With语句块中指定了对象为myVar，因此在后

续语句中无需再次输入myVar。

2.使用with end with操作集合

Dim myCollection

Set myCollection = CreateObject("System.Collections.ArrayList"

With myCollection

        .Add("Item 1"

        .Add("item 2")

        .Add("item 3")

End With

在这人示例中，我们首先创建了一个名为myCollection的集合，并使用CreateObiect函数将其实例化为一个ArrayList

对象。然后，在With myCollection语句块中，我们对该集合进行了三次操作: 分别将"tem 1"ltem 2"和"tem 3"添

加到集合中。由于我们在With语块中指定了对象为myCollection，因此在后续语句中无需再次输入myCollection.

3.使用with end with操作文件系统对象:

Dim fso, myFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set myFile = fso.CreateTextFile("C: \test.txt", True)

With myFile

        .WriteLine "Line 1

        .WriteLine "Line 2"

End With

在这个示例中，我们首先创建了一个名为fso的文件系统对象，并使用CreateObject0函数将其实例化为一个

FileSystemObject对象。然后，我们使用该对象的CreateTextFile0方法创建了一个名为test.txt的文本文件，并将其赋值

给变量myFile。接下来，在With myFile语句块中，我们对该文本文件进行了两次操作: 分别向其中写入了"Line

1"和"Line 2"两行文本。由于我们在With语句块中指定了对象为myFile，因此在后续语句中无需再次输入myFile.

五、注意事项

1.with end with语句块中的操作必须是针对同一个对象的。

2.在with end with语句块中，可以使用""来代替对象名称，从而简化代码编写。

3.在with end with语句块外部修改对象属性或方法不会影响到with end with语句块内部的操作

六、总结

with end with是VBScript中用于简化代码编写和提高可读性的一人关键字。通过指定需要执行操作的对象，在with end

with语句块中可以对该对象进行多次操作，从而避免重复输入对象名称，并提高代码的可读性。需要注意的是，在with

end with语句块中的操作必须是针对同一个对象的，并且在with end with语句块外部修改对象属性或方法不会影响到

with end with语句块内部的操作

来自  https://wenku.baidu.com/view/39cdf55e80c4bb4cf7ec4afe04a1b0717fd5b380.html?_wkts_=1693907566315&bdQuery=vbscript+with