VBA重排字符串——LSet语句与RSet语句

最新推荐文章于 2024-01-29 18:02:38 发布

csdndscs

最新推荐文章于 2024-01-29 18:02:38 发布

阅读量753

点赞数

VBA 专栏收录该内容

36 篇文章

订阅专栏

LSet 语句

在一字符串变量中将一字符串往左对齐，或是将一用户定义类型变量复制到另一用户自定义类型变量。

语法

LSet stringvar = string

LSet varname1 = varname2

LSet 语句的语法有下面这些部分：

部分	说明
stringvar	必要参数。字符串变量名称。
string	必要参数。在 stringvar 内想往左对齐的字符串表达式。
Varname1	必要参数。用户自定义类型变量名，内容将复制进来。
Varname2	必要参数。用户自定义类型变量名，内容将复制出去。

说明

Lset 会将 stringvar 中空余的字符以空白替换。

如果 string 比 stringvar 还长，Lset 只在 stringvar 中放置最左边几个字符，且长度为 stringvar 的长度。

警告不能使用 Lset 将一用户自定义类型变量复制到另一用户自定义类型变量。将一个数据类型的数据复制到留给另一数据类型的空间，可能会造成不可预料的结果。

当从一用户自定义类型复制一变量给其他变量时，此变量的二进制数据会从一个变量复制到另一个变量的内存空间中，但并不关心为元素指定的数据类型。

LSet 语句示例

本示例使用 LSet 语句，将某字符串插入到另一字符串的最左边。虽然 LSet 也能用来复制一个用户自定义类型变量的内容到另一个不一定完全一样，但却兼容的用户自定义类型变量中，但并不建议使用这种方法。因为不同操作系统间对数据结构的做法不同，使用 LSet 的程序并不能保证有很好的移植性。

Dim MyString
MyString = "0123456789"    ' 设置字符串初值。
Lset MyString = "<-Left"    ' MyString 的内容为 "<-Left    "。

RSet 语句

在一字符串变量中将一字符串往右对齐。

语法

RSet stringvar = string

RSet 语句的语法有下面这些部分：

部分	说明
stringvar	必要参数。为字符串变量名。
String	必要参数。在 stringvar 内想往右对齐的字符串表达式。

说明

如果 stringvar 比 string 长，Rset 会将 stringvar 中空余的字符以空白代替，直至字符串开头。

注意 RSet 不能用于用户定义类型。

RSet 语句示例

本示例使用 RSet 语句将某字符串插入到另一字符串的最右边。

Dim MyString
MyString = "0123456789"    ' 设置字符串初值。
Rset MyString = "Right->"    ' MyString 的内容为 "   Right->"。

source:VBA Help