jake shimabukuro牌子:几个ASP确认问题
来源:百度文库 编辑:高校问答 时间:2024/07/08 10:35:11
2,一个数值为123456789,如何提取我需要的顺数第6个数字,也就是6
3,假如我表单A项,是个数值变量,用户填写的任意数值,如何去判断数字是否含有子数8同时显示出第几位呢?
希望有人详细解答,答出有加分哦,谢谢各位
1、<%x=clng(request.form("a")) 'clng()函数可以把数值前面的0都去掉
y=len(x) 'y即为A项数值的位数%>
2、<%x=1234567890
y=mid(x,6,1) '一即为第6个数字%>
3、<%x=request.form("a")
y=instr(x,"8") 'y即为A项中第一次8出现的位置。%>
1)
sub()
dim m
dim x,y,i
x=1
y=10
document.write("请输入一个整数:")
m=inputbox("输入整数")
for i= 0 to m
if i%y==0
x=x*10
y=y*10
end if
loop
end sub
最后x是几就是几位数
2,3题就不做了
给个参考:
第6讲:VBScript的内部函数(一)
6.1 VBScript内部函数的类型
n 字符串操作函数(本讲重点)
n 数据转换函数
n 数学函数
n 时间和日期函数
n 布尔函数
6.2 Asc函数
n 语法及其说明
Asc(String)(返回字符串的第一个字母对应的ASCII字符代码,String为任意有效的字符串表达式,若String为空,则将发生运行错误)
n 实例
Asc(“Apple”)将返回字母A的ASCII字符码,即65(同一字母的大小写其ASCII不一样,切记!)
6.3 Chr函数
n 语法及其说明
Chr(CharCode)(CharCode必须是能标识字符的数字)
n 实例
Din MyChar
MyChar=Chr(66)‘返回值B
MyChar=Chr(98)‘返回值b
MyChar=Chr(63)‘返回值?
MyChar=Chr(38)‘返回值&
表5-1 常用的字符串常量
常量
值
描述
VbCr
Chr(13)
回车符
vbCrLf
Chr(13) & Chr(10)
回车符与换行符
VbLf
Chr(10)
换行符
VbNullChar
Chr(0)
值为0的字符
vbNullString
值为0的字符串
与零长度字符串(“”)不同;用于调用外部过程
6.4 InStr函数
n 语法及其说明
InStr(〔Start,〕String1,String2〔,Compare〕)
² Start:可选项,数值表达式,用于设置每次搜索的开始位置,若省略,将从第一个字符的位置开始搜索,若Start包含Null,则肯定出现脚本报错,若指定Compare参数,则必须有Start参数;
² String1:必选项,接受搜索的字符串表达式;
² String2:必选项,接受搜索的字符串表达式;
² Compare:可选项,指示在计算子字符串时使用的比较类型的数值(相关数值参见表5-2、5-3)
表5-2 InStr函数的Compare参数的值
常数
值
描述
VbBinaryCompare
0
执行二进制比较
VbTextCompare
1
执行文本比较
表5-3 InStr函数的返回值
条件
返回值
String1为零长度
0
String1为Null
Null
String2为零长度
Start
String2为Null
Null
String2没有找到
0
在String1中找到String2
找到匹配字符串的位置
Start >Len(String2)
0
n 实例
Dim SearchString,SearchChar,Position(定义变量)
SearchString=“This is my homepage”(接受搜索的字符串)
SearchChar=“h”(指定目标搜索字符串)
Position=InStr(4,SearchString,SearchChar,1)(从SearchString的第4个字符开始搜索SearchChar,进行文本比较,该语句的返回值为12)
Position=InStr(1,SearchString,SearchChar,0)(从SearchString的第1个字符开始搜索SearchChar,进行二进制比较,该语句的返回值为2)
Position=InStr(SearchString,SearchChar)(省略了可选参数,表示从SearchString的第1个字符开始搜索SearchChar,进行二进制比较,该语句的返回值为2)
Position=InStr(1,SearchString,“S”)(从SearchString的第1个字符开始进行二进制的比较,搜索字符“S”,该语句的返回值为0,因为字符串“S”没有找到)
6.5 InStrRev函数
n 语法及其说明
InStrRev(String1,String2〔,Start〔,Copmare〕〕)(InStrRev函数与InStr函数的功能类似,不同之处在于InStrRev函数是从字符串尾部开始进行搜索,而InStr函数是从字符串首部开始搜索)
² String1:必选项,接受搜索的字符串表达式;
² String2:必选项,被搜索的字符串表达式;
² Start:可选项,数值表达式,用于设置每次搜索的开始位置,若省略,则默认值为-1,表示从最后一个位置的字符开始搜索,若Start包含Null,则出现错误;
² Compare:可选项,在计算子字符串时,指示要使用的比较类型的数值,若省略,将执行二进制比较,相关参数参见表5-4、5-5;
表5-4 InStrRev函数的Compare参数的值
常数
值
描述
VbBinaryCompare
0
执行二进制比较
VbDatabaseCompare
2
执行基于包含在数据库中的信息的比较
表5-5 InStrRev函数的返回值
条件
返回值
String1为零长度
0
String1为Null
Null
String2为零长度
Start
String2为Null
Null
String2没有找到
0
在String1中找到String2
找到匹配字符串的位置
Start >Len(String2)
0
n 实例
Dim SearchString,SearchChar,Position(定义变量)
SearchString=“This is my homepage”(接受搜索的字符串)
SearchChar=“h”(指定目标搜索字符串)
Position=InStrRev(SearchString,SearchChar,12,0)(从SearchString结尾的第12个字符开始搜索SearchChar,比较类型是二进制比较,该语句的返回值为12)
Position=InStrRev(SearchString,SearchChar,-1,1)(从SearchString的结尾开始搜索SearchChar,比较类型为文本比较,该语句的返回值为12)
Position=InStrRev(SearchString,SearchChar,6)(从SearchString结尾的第6个字符开始搜索SearchChar,比较类型省略,表示默认的二进制比较,该语句的返回值为2)
6.6 LCase函数
n 语法及其说明
LCase(String)(将大写字母转换成小写字母,若String本身即为小写字母或非字母字符,函数的返回值不变;若String为Null,则函数返回值为Null)
n 实例
LCase(“TSINGHUAGYC”)=“tsinghuagyc”
LCase(“abcd”)=“abcd”
LCase(“AbCd”)=“abcd”
6.7 UCase函数
n 语法及其说明
UCase(String)(将小写字母转换成大写字母,其它转换规则与LCase函数类似)
n 实例
UCase(“Apple”)=“APPLE”
UCase(“abcd”)=“ABCD”
6.8 Left函数
n 语法及其说明
Left(String,Length)(返回指定数目的,从字符串左边算起的字符)
² String:字符串表达式,其最左边的字符被返回,若String参数中包含Null,则返回Null;
² Length:数值表达式,指定要返回的字符数目,如果Length=0,则返回零长度的字符串(“”),如果Length大于或等于String的总字符数,则返回整个字符串;
n 实例
Left(“VBScript”,5)=“VBScr”
Left(“Federal Education”,10)=“Federal Ed”(注意:空格也是字符)
Left(“abcd”,12)=“abcd”
6.9 Right函数
n 语法及其说明
Right(String,Length)(从字符串右边返回指定数目的字符)
² String:字符串表达式,其最右边的字符被返回,若String参数中包含Null,则返回Null;
² Length:数值表达式,指定要返回的字符数目,如果Length=0,则返回零长度的字符串(“”),如果Length大于或等于String的总字符数,则返回整个字符串;
n 实例
Right(“VBScript”,5)=“cript”
Right(“Federal Education”,11)=“l Education”(注意:空格也是字符)
Right(“abcd”,12)=“abcd”
6.10 Mid函数
n 语法及其说明
Mid(String,Start〔,Length〕)(从字符串中返回指定数目的字符)
² String:字符串表达式,其最右边的字符被返回,若String参数中包含Null,则返回Null;
² Start:String中被提取的字符部分的开始位置,若Start超过了String中字符的数目,Mid将返回零长度的字符串(“”);
² Length:要返回的字符数,如果省略或Length超过文本的字符数(包括Start处的字符),将返回字符串中从Start到字符串结束的所有字符;
n 实例
Mid(“She is a Good Girl!!!!”,8,18)=“a Good Girl!!!!”(空格也属于字符)
Mid(“abcd”,5,2)=“”(Start的值大于字符个数)
Mid(“abcd”,2)=“bcd”(Length省略)
Mid(“abcdef”,3,10)=“cdef”(Length的值超过字符个数)
6.11 Len函数
n 语法及其说明
Len(String | VarName)(返回字符串内字符的数目)
² String:任意有效的字符串表达式,如果String参数包含Null,则Len函数的返回值为Null;
² VarNme:任意有效的变量名,如果VarName参数包含Null,则Len函数的返回值为Null;
n 实例
Len(“When a Girl Loves a Man!”)=24
Dim MyVarChar
If Len(MyVarChar)>50 Then MsgBox “请输入正确的用户名!!”
6.12 Ltrim、Rtrim和Trim函数
n 语法及其说明
² Ltrim函数返回不带前导空格的字符串,其语法为Ltrim(String);
² Rtrim函数返回不带后续空格的字符串,其语法为Rtrim(String);
² Trim函数返回不带前导与后续空格的字符串,其语法为Trim(String);
n 实例
Ltrim(“ abcd”)=“abcd”
Rtrim(“abcd ”)=“abcd”
Trim(“ abcd ”)=“abcd”
6.13 StrComp函数
n 语法及其说明
StrComp(String1,String2〔,Compare〕)(返回一个表明字符串比较结果的值)
² String1:必选项,任意有效的字符串表达式;
² String2:必选项,任意有效的字符串表达式;
² Compare:可选项,指示在计算字符串时使用的比较类型的数值,若省略,则执行二进制比较,相关数值见5-6、5-7;
表5-6 StrComp函数中Compare的参数值
常数
值
描述
VbBinaryCompare
0
执行二进制比较
VbTextCompare
1
执行文本比较
表5-7 StrComp函数的返回值
条件
返回值
String1小于String2
-1
String1大于String2
0
String1等于String2
1
String1或String2为Null
Null
n 实例
Dim Str1,Str2,MyChar
Str1=“VBScript”
Str2=“vbscript”
MyChar=StrComp(Str1,Str2,1)(返回0)
MyChar=StrComp(Str1,Str2,0)(返回-1)
MyChar=StrComp(Str1,Str2)(返回1)
6.14 StrReverse函数
n 语法及其说明
StrReverse(String)(返回一个与指定字符串顺序相反的字符串,String为进行字符串反向的字符串,若String为零长度字符串“”,则函数的返回值为“”,若String为Null,则函数在执行时出现错误)
n 实例
StrReverse(“guoyongcan”)=“nacgnoyoug”
StrReverse(“abcd”)=“dcba”
6.15 String函数
n 语法及其说明
String(Number,Char|ASCII)(返回一个字符串,字符串的组成为将Char/CharASCII重复Number次)
² String:关键字,必选;
² Number:必选,表示重复的次数;
² Char|ASCII:必选,字符或字符的ASCII码;
n 实例
String(5,“A”)=“AAAAA”
String(5,65)=“AAAAA”(字母A的ASCII码为65)
String(5,“abcd”)=“aaaaa”(若Char为字符串,函数的返回值同样为Char的第一个字母)
6.16 Space函数
n 语法及其说明
Space(Number)(返回由指定数目的空格组成的字符串)
² Space:必选关键字;
² Number:必选,表示空格的个数;
n 实例
Dim Char,MyChar
Char=Space(5)
MyChar=“新北京”& Char &“新奥运”
6.17 Replace函数
n 语法及其说明
Replace(Expression,Find,ReplaceWith〔,Compare〔,Count〔,Start〕〕〕)(返回字符串,其中指定数目的某子字符串被替换为另一个子字符串)
² Expression:必选项,字符串表达式,需包含要替代的子字符串;
² Find:必选项,被搜索的子字符串;
² ReplaceWith:必选项,用于替换的字符串;
² Start:可选项,Expression中开始搜索子字符串的位置,若省略,其默认值为1;
² Count:可选项,执行子字符串替换的数目,若省略,默认值为-1,表示进行所有可能的替换,在和Start关联时必须用;
² Compare:可选项,指示在计算子字符串时使用的比较类型的数值,若省略,缺省值为0,即进行二进制比较,相关参数见表5-8、5-9;
表5-8 Replace函数中的Compare参数的可选值
常数
值
描述
VbBinaryCompare
0
执行二进制比较
VbTextCompare
1
执行文本比较
表5-9 Replace函数的返回值
条件
返回值
Expression为零长度
零长度字符串(“”)
Expression为Null
错误
Find为零长度
Expression的副本
Replacewith为零长度
Expression副本,其中删除了所有由Find参数指定的内容
Start>Len(Expression)
零长度字符串(“”)
Count为0
Expression的副本
n 实例
Replace(“ABCeabce”,“e”,“D”)=“ABCDabcD”
Replace(“ABCeabce”,“e”,“D”,5,-1,1)=“abcD”
兄弟你好,我现在也正在学asp的,我的回答你不要见笑
我只是路过的,看到你的问题
我记得vbscript有几个函数是专门的字符串函数
是什么,我忘记了,我在网吧上网,你回去看下asp的书,或者你去看下
<<迈致科的asp教程>>
反正你说的问题,通过vb的那几个函数都可以做到的
其实这种问题我感觉就是纯数学问题
你可以除10的倍数,然后判断他的值小于一时,在得出一共除了几次就可以了