VB5里面实现VB6的InstrRev()和Split()一样的替换函数

2016-02-19 15:46 48 1 收藏

今天图老师小编给大家展示的是VB5里面实现VB6的InstrRev()和Split()一样的替换函数,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

【 tulaoshi.com - 编程语言 】

  

Private Function split_vb5(ByVal sstr As String, spstr As String) As VariantDim starstr, lenstr, cur As IntegerDim backstr() As Stringstarstr = InStr(sstr, spstr)cur = starstr + 1lenstr = Len(sstr)ReDim backstr(0)backstr(0) = Left(sstr, starstr - 1)For x = starstr + 1 To lenstr  If Mid(sstr, x, 1) = spstr Then    ReDim Preserve backstr(UBound(backstr) + 1)    backstr(UBound(backstr)) = Mid(sstr, cur, x - cur)    cur = x + 1    Debug.Print backstr(UBound(backstr))  End IfNextsplit_vb5 = backstr()End Function

  '****************************** 

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  

Private Function InStrRev_vb5(ByVal start As Integer, ByVal str1 As String, ByVal str2 As String)str1 = revstr(str1)str2 = revstr(str2)start=Len(str1)-startInStrRev_vb5 = Len(str1) - InStr(start, str1, str2)End FunctionPrivate Function revstr(str As String) As StringDim x, lenstr As Integerlenstr = Len(str)For x = lenstr To 1 Step -1 revstr = revstr & Mid(str, x, 1)NextEnd Function

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1610353.html

延伸阅读
你想拥有自己的电子家庭影集吗?其实用VB就能实现。方法如下: 准备:家庭普通照片经扫描后储存。 构想:照片一张接一张出现在屏幕中间,出现时的方式采取动态切换,上方一行标题从左向右移过,标题与照片的背景色随机变化。 关键:调用Bitblt Windows API函数实现照片的动态切换。 内容:工程由Forml和modluel构成。 ...
在VB6的报表使用过程中,我们会发现这样的一个问题,那就是报表中的数据只能读一次,不管你的库中字段增加也好,删除也好,以及让它显示新的查询结果等,它都不会记变。经过查资料才搞清楚,原来是DataEnvironment的问题.原来,只要Command对象中含有数据记录集合,它就不会重新执行SQL语句,就算是把新的查询语句给DataEnvironment后它也不会执行,解决...
用VB6编写强力的windows隐藏引擎 编程爱好者一定经常见到能够隐藏桌面项目和状态栏等的软件,其中最著名的就是Hide-It。其实我们能够编写一个功能更加强大的即时超级隐藏引擎,它不仅可以隐藏桌面项目、开始按钮、状态栏、时钟栏,而且可以隐藏任何软件的按钮、菜单、工具栏、文本框、状态栏等等,只要是能够看见的独立部分——当然也可以...
标签: ASP
  最近在单位做的一个项目里需要有文件上传的功能,正好手头一本书的附赠光盘里有一个上传组件,心中大喜。可惜随之便发现这是一个试用版,不给钱就只能用50次,太小气了!!好在头头催得不紧,时间充裕,干脆自己试着做一个,既可长经验值,又能长成就感,不试白不试!以下介绍的便是俺折腾了两天半捣鼓出来的一个只能说是雏形的玩意,区...
VisualBasic5.0(VB5)是一个功能强大的工具,它有一大特点就是易学易用,下面我们就通过写一个“趣味撞球”的程序来初步体会一下。 首先启动VB5,新建一个标准的EXE工程。此时可以看到,工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放,拖动鼠标把Form1的面积改为适当大小,比如6930×4320。再在属性框中把Form1的ScaleMode属...

经验教程

573

收藏

94
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部