【烟花原创】VBA零基础之第167篇VBA函数之字符串（三）

6>Instr函数

返回 Variant(Long)，指定一个字符串在另一字符串中最先出现的位置。

语法：InStr([start,]string1, string2[, compare])

start 可选参数，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了compare 参数，则一定要有 start参数。

string1 必要参数。接受搜索的字符串表达式。

string2 必要参数。被搜索的字符串表达式。

Compare 可选参数。指定字符串比较模式。如果 compare 是 Null，将发生错误。如果省略compare，OptionCompare 的设置将决定比较的类型。

可赋值如下：

vbBinaryCompare 0 执行一个二进制比较。

vbTextCompare 1 执行一个按照原文的比较。

vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

示例：

注意：

之前在论坛答题时，看到有用instr来做查询时直接用的If instr(str1,str2)判断导致产生错误的结果（str2为空）。

该函数无土豪版。

7>Space函数

返回特定数目空格的Variant (String)。

语法：Space(number)

number 参数为需要产生的空格数量。

Space 函数在格式输出或清除固定长度字符串数据时很有用。

示例：

Msgbox len(space$(100))

8>Strings函数

返回 Variant(String)，其中包含指定长度重复字符的字符串。

语法：String(number,character)

number 必要参数，字符串重复的次数。如果 number 包含 Null，将返回 Null。

character 必要参数，为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。

说明：

如果指定 character的数值大于 255，String 会按下面的公式将其转为有效的字符码：

character Mod 256

示例：

注意demo3中的str2如果用msgbox输出的话会与本地窗口的看到有所不同。