串口通讯编程中涉及到的字符串处理关键字及处理字符串对应函数

一 字符串处理关键字总结

作用	关键字
比较两个字符串。	StrComp
变换字符串。	StrConv
大小写变换。	Format, LCase, UCase
建立重复字符的字符串。	Space, String
计算字符串长度。	Len
设置字符串格式。	Format
重排字符串。	LSet, RSet
处理字符串。	InStr, Left, LTrim, Mid, Right, RTrim, Trim
设置字符串比较规则。	Option Compare
运用 ASCII 与 ANSI 值。	Asc, Chr

二 处理字符串对应函数：

InStr 函数

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

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

InStr 函数的语法具有下面的参数：

部分	说明
start	可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1	必要参数。接受搜索的字符串表达式。
string2	必要参数。被搜索的字符串表达式。
Compare	可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。

设置
compare 参数设置为：

常数	值	描述
vbUseCompareOption	-1	使用Option Compare 语句设置执行一个比较。
vbBinaryCompare	0	执行一个二进制比较。
vbTextCompare	1	执行一个按照原文的比较。
vbDatabaseCompare	2	仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

返回值

如果	InStr返回
string1 为零长度	0
string1 为 Null	Null
string2 为零长度	Start
string2 为 Null	Null
string2 找不到	0
在 string1 中找到string2	找到的位置
start > string2	0

说明
InStrB 函数作用于包含在字符串中的字节数据。所以
InStrB 返回的是字节位置，而不是字符位置。
使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   '

被搜索的字符串。

SearchChar ="P"   '

要查找字符串

"P"

。

'

从第四个字符开始，以文本比较的方式找起。返回值为

6

（小写

p

）。

'

小写

p 

和大写

P

在文本比较下是一样的。

MyPos = Instr(4, SearchString, SearchChar, 1)

'

从第一个字符开使，以二进制比较的方式找起。返回值为

9

（大写

P

）。

'

小写

p 

和大写

P

在二进制比较下是不一样的。

MyPos = Instr(1, SearchString, SearchChar,0)

'

缺省的比对方式为二进制比较（最后一个参数可省略）。

MyPos = Instr(SearchString, SearchChar)

'

返回

9

。

MyPos = Instr(1, SearchString, "W")

'

返回

0

。[/code]

Left 函数

返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。

语法
Left(string,
length)

Left 函数的语法有下面的命名参数：

部分	说明
string	必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。
length	必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。

Left 函数来得到某字符串最左边的几个字符。

Dim AnyString, MyStr
AnyString ="Hello World"   '

定义字符串。

MyStr = Left(AnyString, 1)

'

返回

"H"

。

MyStr = Left(AnyString, 7)

'

返回

"Hello W"

。

MyStr = Left(AnyString, 20)

'

返回

"Hello World"

。[/code]

Mid 函数

返回 Variant (String)，其中包含字符串中指定数量的字符。

语法
Mid(string,
start[, length])

Mid 函数的语法具有下面的命名参数：

部分	说明
string	必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start	必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length	可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"

建立一个字符串。

FirstWord = Mid(MyString, 1, 3)

'

返回

"Mid"

。

LastWord = Mid(MyString, 14, 4)

'

返回

"Demo"

。

MidWords = Mid(MyString, 5)

'

返回

"Funcion Demo"

。[/code]

Right 函数

返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。

语法
Right(string,
length)

Right 函数的语法具有下面的命名参数：

部分	说明
string	必要参数。字符串表达式，从中最右边的字符将被返回。如果 string 包含 Null，将返回 Null。
length	必要参数；为 Variant (Long)。为数值表达式，指出想返回多少字符。如果为0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。

Right 函数来返回某字符串右边算起的几个字符。

Dim AnyString, MyStr
AnyString ="Hello World"   '

定义字符串。

MyStr = Right(AnyString, 1)

'

返回

"d"

。

MyStr = Right(AnyString,6)

'

返回

" World"

。

MyStr = Right(AnyString, 20)

'

返回

"Hello World"

。[/code]