vb字符串函数长度和字符串数有什么区别

来源：蜘蛛抓取(WebSpider) 时间：2012-05-28 08:03 标签： vb字符串函数
2240人阅读
vb6(vba)（4）
'指定长度的祖母数字组合Public Function RandomFix(N As Long) As String
R = R + Chr(Int(Rnd() * 26) + 65) '生成一个大写字母
For I = 2 To N 'N是指定长度
T = Int(Rnd() * 3)
Select Case T
R = R + Chr(Int(Rnd() * 26) + 65) '生成一个大写字母
'R = R + Chr(Int(Rnd() * 26) + 97) '生成一个小写字母
R = R + Chr(Int(Rnd() * 10) + 48) '生成一个数字
R = R + Chr(Int(Rnd() * 10) + 48) '生成一个数字
End Select
RandomFix = REnd Function
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：248049次
积分：2975
积分：2975
排名：第7988名
原创：45篇
转载：32篇
评论：42条
(1)(5)(1)(1)(1)(1)(1)(1)(1)(2)(2)(2)(1)(1)(1)(2)(2)(1)(1)(1)(3)(3)(1)(1)(3)(1)(2)(3)(5)(1)(3)(4)(1)(3)(14)博客访问： 483961
博文数量： 150
博客积分： 3044
博客等级： 中校
技术积分： 2087
注册时间：
IT168企业级官微
微信号：IT168qiye
系统架构师大会
微信号：SACC2013
VBscript中的字符串函数
在VBscript中，系统提供了大量的字符串函数来处理有关字符串的事情。在 Javascript 中，系统为String对象提供了许多方法，而字符串变量可以不用附加说明就使用这些方法，使对字符串的处理能力更加强大。下面我们分批介绍这些函数和方法。
目标任务1& 演示子字符串的截取，字符串的截空，子串的定位等。
关键字 left, right, mid, space, trim, instr, len
dim Mystr, Myword,Mypos, BRMystr = "The built-in objects are special because they are built into ASP pages and do not need to be created before you can use them in scripts."BR = ""document.write( "Mystr=" &chr(34) & Mystr & chr(34) &BR)document.write("字符串Mystr的长度是" & len(Mystr) & BR)document.write("7位左子串是" & left(Mystr,7) &BR)document.write("8位左子串是" & right(Mystr,8) &BR)document.write("从第5位开始的12个字符是" & mid(Mystr, 5, 12) &BR)Myword = space(3) & "hello" & space(2)document.write(chr(34) & Myword &chr(34))document.write("这个字符串的的长度是" & len(Myword) &BR)document.write("截去前导空格后为：" & chr(34) &Ltrim(Myword)&chr(34) &BR)Myword = "OBJECT"document.write ("The Myword =" & chr(34)&Myword&chr(34) )Mypos = Instr(Mystr,Myword)if Mypos=0 thendocument.write(" Myword不是它的子串")elsedocument.write(Myword & "是子串，第一个开始于" & Mypos)end ifdocument.write BRMyword = LCase(Myword)Mypos = Instr(Mystr,Myword)if Mypos=0 thendocument.write(" Myword不是它的子串"&BR)elsedocument.write(Myword & "是子串，第一个开始于" & Mypos)end if
观看代码的
这段代码演示了VBscript中的许多字符串函数的用法，用左子串left，右子串right，任意子串mid，生成空格字符串space，截去前导空格Ltrim，截去尾部空格Rtirm，截去前后空格tirn，字符串长度len，判断子字符串的存在性和出现的位置Instr。大小写转换Ucase 和Lcase，把ASCII码转换为字符的函数chr。
mid函数从字符串中返回指定数目的字符，语法：Mid(string, start[, length])InStr函数返回子串在主字符串中第一次出现的位置，如子串不存在则返回0。语法：&&& InStr([start, ]string1, string2[, compare])省略开始位置则从开始，compare=0 or 1，表示有二进制比较（0）或进行文本比较（1），缺省为二进制比较。详见语法参考。
其它函数的语法从例程中一目了然，不再赘述。
目标任务2&&演示用spilt函数分割字符串
关键字& split
Private Sub CommandButton1_Click()Dim Mystr, Myword, Mypos, BRMystr = "192.168.61.18:/usr/eas51:/opt/IBM"MyString = Split(Mystr, ":", -1, 1)For i = 0 To UBound(MyString)TextBox1.Text = TextBox1.Text + MyString(i) & vbCrLfNext
split函数的功能是按照给定的分割符切割字符串，结果返回给一个数组。语法：&&& 数组 = split(字符串，分割符，count，compary）count是要求返回的子串个数，-1表示全部；compary=0|1，表示执行二进制|文本比较。
uBound(数组)返回数组的上界。
目标任务3& 演示字符串逆转函数strReverse
关键字 strReverse
sub sdemo2&&&& dim BT,yourin,yourout& BT = ""& yourin = InputBox("请任意输入一个字符串，中文也可以")& yourout = strReverse(yourin)& MsgBox(yourout)End sub
strReverse函数返回按相反顺序排列的字符串，对中文也可以用。
目标任务4& 演示字符串的替换和比较
关键字 replace, strcomp, string
sub sdemo3&&&&dim BT,olrstr, newstrBT = ""oldstr= "Hello"newstr=string(3,"-")&oldstr&string(3,"-")MsgBox(newstr)newstr = replace(newstr, oldstr, Ucase(oldstr)&" World")MsgBox(newstr)newstr = Ucase(oldstr)for i=0 to 1result =strcomp(newstr, oldstr,i)if result=0 thenMsgBox(newstr &"与"&oldstr& "相等 with "&i)elseMsgBox(newstr &"与"&oldstr& "不相等 with "&i)End ifNextEnd sub
String(个数，单个字符)返回有相同字符组成的字符串。接着把Hello替换成大写并显示出来。
replace函数的语法：&&& Replace(expression, find, replacewith)expression是待搜索文本, find是要查找的子串, replacewith是用来替换的子串。更详细的语法请查阅相关文章。
最后一段演示字符串比较函数&&& Strcomp(str1,str2,i)str1和str2是两个被比较的字符串，i=0或1表示执行二进制（0）或文本（1）进行比较。i=1时不区分大小写，在程序的消息框中报告了这一点，请读者在运行下面的sdemo3时注意阅读。
阅读(963) | 评论(0) | 转发(1) |
相关热门文章
给主人留下些什么吧！~~
请登录后评论。vb中的字符串，最长可以是多长？_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：92,944贴子：
vb中的字符串，最长可以是多长？收藏
2G = =？再说太长的文本用数组多好 = =
变长字符串最多可包含大约 20 亿 ( 2^31)个字符。
定长字符串可包含 1 到大约 64K ( 2^16 ) 个字符。
呃。。众说纷纭。。。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或vb6 判断字符串的字节长度_百度知道
vb6 判断字符串的字节长度
有一个text1，我想判断它的长度，输出到Label1本来是用Len()的，但是Len()判断的汉字长度也是1请问，怎么做才能获取一个字符串的字节长度(汉字是2订弧斥旧俪搅筹些船氓，数字和字母是1)。
提问者采纳
LenB()函数
提问者评价
哇~，还有这个函数啊。。
其他类似问题
为您推荐：
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb字符串函数 的文章

 

随机推荐