首页 > 代码库 > 串口通讯编程中涉及到的字符串处理关键字及处理字符串对应函数

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

2024-07-16 01:01:01   211人阅读

一   字符串处理关键字总结

作用关键字
比较两个字符串。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 语句设置执行一个比较。
vbBinaryCompare0执行一个二进制比较。
vbTextCompare1执行一个按照原文的比较。
vbDatabaseCompare2仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

返回值

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

说明

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。

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"。

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"。

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"。


联系
我们