欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

数字和文本怎么作对比

更新时间: 2014-01-05 00:56:41 责任编辑: Author_N1

 

数字和文本如何作对比?
id段是自动编号,内容例如为:22
然后content字段是备注类型,内容例如为:3,4,67,1

请问这2个字段如何判断他们不同?
如何做对比?
--参考方法--
函数 语法 功能 
Len Len(string
--参考方法--
varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。 
Trim Trim(string) 将字符串前后的空格去掉 
Ltrim Ltrim(string) 将字符串前面的空格去掉 
Rtrim Rtrim(string) 将字符串后面的空格去掉 
函数 语法 功能 
Len Len(string
--参考方法--
varname) 返回字符串内字符的数目,或是存储一变量所需的字节数。 
Trim Trim(string) 将字符串前后的空格去掉 
Ltrim Ltrim(string) 将字符串前面的空格去掉 
Rtrim Rtrim(string) 将字符串后面的空格去掉 
Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串,如果省略第三个参数表示从start字符开始到字符串结尾的字符串 
Left Left(string,length) 从string字符串的左边取得length长度的字符串 
Right Right(string,length) 从string字符串的右边取得length长度的字符串 
LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母 
UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母 
StrComp StrComp(string1,string2[,compare]) 返回string1字符串与string2字符串的比较结果,如果两个字符串相同,则返回0,如果小于则返回-1,如果大于则返回1 
InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置 
Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组,其中delimiter用于标识子字符串界限。如果省略,使用空格("")作为分隔符。 
count 返回的子字符串数目,-1 指示返回所有子字符串。 
start为 1 执行文本比较;如果为 0 或者省略执行二进制比较。

Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串,其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)。 

1、Len函数示例: 
下面的示例利用 Len 函数返回字符串中的字符数目: 
Dim MyString 
MyString = Len("VBSCRIPT") ''MyString 包含 82、Trim、Ltrim、Rtrim函数示例: 
下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格: 
Dim MyVar 
MyVar = LTrim(" vbscript ") ''MyVar 包含 "vbscript "。 
MyVar = RTrim(" vbscript ") ''MyVar 包含 " vbscript"。 
MyVar = Trim(" vbscript ") ''MyVar 包含"vbscript"。 
3、Mid函数示例: 
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符: 
Dim MyVar 
MyVar = Mid("VB脚本is fun!", 4, 6) ''MyVar 包含 "Script"。 
4、Left函数示例: 
下面的示例利用Left 函数返回MyString 的左边三个字母: 
Dim MyString, LeftString 
MyString = "VBSCript" 
LeftString = Left(MyString, 3) ''LeftString 包含 "VBS 
5、Right函数示例: 
下面的示例利用 Right 函数从字符串右边返回指定数目的字符: 
Dim AnyString, MyStr 
AnyString = "Hello World" ''定义字符串。 
MyStr = Right(AnyString, 1) ''返回 "d"。 
MyStr = Right(AnyString, 6) '' 返回 " World"。 
MyStr = Right(AnyString, 20) '' 返回 "Hello World"。

6、LCase函数示例: 
下面的示例利用 LCase 函数把大写字母转换为小写字母: 
Dim MyString 
Dim LCaseString 
MyString = "VBSCript" 
LCaseString = LCase(MyString) '' LCaseString 包含 "vbscript"。

7、 UCase函数示例:
下面的示例利用 UCase 函数返回字符串的大写形式: 
Dim MyWord 
MyWord = UCase("Hello World") '' 返回"HELLO WORLD"。 
8、StrComp函数示例: 
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较;如果第三个参数为 0 或者省略执行二进制比较。 
Dim MyStr1, MyStr2, MyComp 
MyStr1 = "ABCD": MyStr2 = "abcd" ''定义变量。 
MyComp = StrComp(MyStr1, MyStr2, 1) '' 返回 0。 
MyComp = StrComp(MyStr1, MyStr2, 0) '' 返回 -1。 
MyComp = StrComp(MyStr2, MyStr1) '' 返回 1。 
9、InStr示例: 
下面的示例利用 InStr 搜索字符串: 
Dim SearchString, SearchChar, MyPos 
SearchString ="XXpXXpXXPXXP"??? 
SearchChar = "P"?? 
MyPos = Instr(SearchString, SearchChar)???''返回 9. 
注意:返回的不是一个字符串在另一个字符串中第一次出现的字符位置,而是字节位置。 
10、Split函数示例: 
Dim MyString, MyArray, Msg 
MyString = "VBScriptXisXfun!" 
MyArray = Split(MyString, "x",-1,1) 
'' MyArray(0) contains "VBScript". 
'' MyArray(1) contains "is". 
'' MyArray(2) contains "fun!". 
Response.Write(MyArray(0)) 
11、Replace函数示例: 
Replace("ABCD", "BC", "12") ''得到A12D 
--参考方法--
要比什么?
a = Split(Tirm(rs("content")), ",")
For i = 0 To UBound(a)
   If a(i) = rs("id") Then
      ...
   End If
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:41
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1672/
本文WWW.DOC100.NET DOC100.NET版权所有。