-
2018-02-28 11:58:12
vb6的字符截取mid,left,right在vb.net中的替代
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim str As String = "我爱变形金刚"
'从索引值为二的字符开始,取2个字符,同mid(str,2,2) 变形
Debug.Print(str.Substring(2, 2))
'从索引值为三的字符开始取到最后所有字符,同mid(str,3) 形金刚
Debug.Print(str.Substring(3))
'从索引值为零的字符开始,取3个字符字符,同left(str,3) 我爱变
Debug.Print(str.Substring(0, 3))
'从右边未尾开始,取3个字符,同right(str,3) 形金刚
Debug.Print(str.Substring(str.Length - 3))
End Sub
出处:http://blog.sina.com.cn/s/blog_49f7bc810102w0nx.html
更多相关内容 -
VB 播放MID音乐,基于Directx加速器.rar
2019-07-10 19:18:13VB6.0播放MID声音程序,基于Directx加速器,因此编译时需要准确好directx库文件供VB调用,否则出错。编译成功后,运行效果如截图所示,浏览到供播放的MID文件,双击即可播放声音。directx要和代码中调用的版本一致,... -
VB中MID如何使用
2019-01-19 15:06:56 -
VB.NET Mid函数的使用方法详细介绍
2022-01-04 14:23:48VB.NET Mid函数的使用方法详细介绍VB.NET Mid函数的使用方法详细介绍
——Mid函数从字符串中返回指定数量的字符。
格式:Mid(string, start[, length])
理解:
返回string中从start开始的后面的length长度的字符串参数解释:
参数 备注 string 必需参数,如果string包含Null,返回结果也将是Null。 start 必需参数,string中被取出部分的字符位置。 length 可选参数,表示要返回的字符数。 注:
start需注意的是如果start超过了string的字符数,Mid 返回零长度字符串 ("")。
length如果省略或length超过文本的字符数(包括start处的字符),将返回中从start到末尾的所有字符。实例操作:
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"
-
VB使用Directx技术播放MID音乐
2021-05-07 16:47:13内容索引:VB源码,多媒体技术,Directx,多媒体 VB使用Directx技术播放MID音乐,程序代码超级简单,它只能播放MID格式的文件,播放过程中显示进度条,显示播放时间,如果掌握了播放MID的大致思路,对了解播放MP3也就会... -
VB巧用Mid函数
2019-07-08 11:22:07VB在处理字符串的时候,常常会用到str1 = str1 & str2这种方法,就是将字符串str2加入到str1的尾部, 在字符串比较短的时候(长度<1万)的时候,执行速度还是很快的,当字符串比较长的时候,这种方法 就非常...VB在处理字符串的时候,常常会用到str1 = str1 & str2这种方法,就是将字符串str2加入到str1的尾部,
在字符串比较短的时候(长度<1万)的时候,执行速度还是很快的,当字符串比较长的时候,这种方法
就非常费时了,巧用Mid函数,可以使处理长字符串速度提高上千倍,以下是测试结果。Option Explicit
Private Declare Function GetTickCount Lib “kernel32” () As Long
Private Sub Command1_Click()
Dim i As Long
Dim str1 As String
Dim str2 As String
Dim Length As Long
str2 = “地势坤”
Dim starttime
starttime = GetTickCount
For i = 1 To 100000
str1 = str1 & str2
Next
Dim usetime
usetime = GetTickCount - starttime
Print usetime & “ms”
End SubPrivate Sub Command2_Click()
Dim i As Long
Dim str1 As String
Dim str2 As String
Dim Length As Long
str1 = String(10000000 * 3, Chr(0))
str2 = “天行健”
Dim starttime
starttime = GetTickCount
Length = 0
For i = 1 To 10000000
Mid(str1, Length + 1) = str2
Length = Length + Len(str2)
Next
Dim usetime
usetime = GetTickCount - starttime
Print usetime & “ms”
End Sub我电脑配置:Win7 64位,奔腾G4400,4G内存
-
简单的MP3、WAV、MID音频播放器程序,VB源代码.rar
2019-07-09 20:42:14简单的MP3、WAV、MID音频播放器程序,VB源代码,可能是最简单的播放程序了,只有两个控制按钮,VB初学者用来学习是个挺好的范例。 -
VB MID RIGHT LEFT 区别
2013-01-15 10:38:27VB MID RIGHT LEFT 区别 -
VB语言播放mid类音乐
2019-01-20 06:28:06语言是VB,里面有超酷的钢琴按键,播放mid时就像在玩某种音乐软件游戏一样有趣。如果觉得mid类型不太合适,您可以稍加修改代码。 -
在PHP中的vb6 Mid函数
2017-02-02 14:55:21<p>I'm developing a project ,written before in vb6, using PHP.</p> <p>I have variable called VLSALESITEMID as string <p>Then a select. (VGID) <p>Then <pre><code>VLSALESITEMID=VLSALESITEMID & ... -
vb mid函数
2012-06-02 16:15:53mid函数的应用的详细介绍,让你了解更多的关于字符串截取的应用 -
播放指定AVI-MID-WAV文件,Vb代码
2021-05-07 16:47:50内容索引:VB源码,多媒体技术,AVI,MID,WAV 播放指定AVI-MID-WAV文件,只是简单的播放这些文件,之前请把媒体文件放在程序目录下,修改代码内的路径。 -
VB 6.0 在字符串中用一子串替换另一子串.rar
2019-07-10 10:31:24VB 6.0 在字符串中用一子串替换另一子串,采用VB中内置的Replace函数来实现,类似这种的替换字符串方法,在平时使用十分广泛,在WEB编程的ASP/PHP/ASP.NET中,同样使用广泛。本示例中,主要是替换一个字符串中的指定... -
VB中Mid Right Left三个函数区别
2013-03-12 14:29:11把mid,right,left三个函数再重新整理一下 ============================= 设a="Visual Basic" mid(a,M,N) =>是从第M位开始取值, (包含M位),取多少位由后面的N... -
VB中Mid Right Left三个函
2014-04-30 00:25:20把mid,right,left三个函数再从头整理一下 ============================= 设a="Visual Basic" b=“is” =>是从第M位开始取值, (包含M位),取几许位由后面的N决定! 举例... -
vb mid函数的使用方法详细介绍
2017-11-14 15:14:20mid函数从字符串中返回指定数量的字符。 语法 Mid(string, start[, length]) 对语法的理解就是:返回string中从start开始的后面的length长度的字符串 string是必需的参数,如果string包含Null,返回结果也将是... -
VB中的InStr在C#中有什么表示?或者怎么编写一个InStr函数?Mid函数呢?
2016-01-15 10:28:14VB翻译成C#的问题,VB中的InStr在C#中有什么表示?或者怎么编写一个InStr函数?Mid函数呢? -
VB.NET Mid函数用法
2014-01-13 20:19:28VB.NET Mid函数一般用于返回原字符串中子串,比如说: Dim MyString, FirstWord, LastWord, MidWords MyString = "Mid Function Demo" 建立一个字符串。 FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。 ... -
通信与网络中的基于VB的PLC与计算机间串行通信实现
2020-11-05 05:50:59在工业控制领域中,PLC作为一种稳定可靠的控制器得到广泛的应用。但它也有自身的一些缺点,即数据的计算处理和管理能力较弱,不能给用户提供良好的界面等。而计算机恰好能弥补PLC的不足,它不但有很强的数据处理和... -
VB整源码判断字符串中某一字符是否大写.rar
2019-07-10 10:31:23VB编写完整源码判断字符串中某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧: If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) Label2.Caption = ... -
VB Mid函数作用
2017-03-30 15:01:45Mid就是从一个字符串中取子字符串,比如a="aabbcc",我们想取出"bb"就可以用Mid("aabbcc",3,2) -
vb基础函数用法
2019-01-21 16:28:54vb基础函数用法,collcetion,Erase,ReDim,instr函数等等关键字的用法 -
VB播放MP3/AVI/WAV文件的源码实例.rar
2019-07-10 19:18:11一个原生VB代码编写的播放MP3/AVI/WAV文件,内核是使用DirectShow组件中的某个功能,支持的播放格式还挺不少,可以支持MP3、Ogg、WAV、WMA、AVI等文件,播放时可调整音量、声道和播放速度,不过播放速度一般不要调整... -
怎么用vb语言中的mid函数怎么从字符串中截取不知道长度的一个数字呢?
2016-10-27 12:28:47怎么用vb语言中的mid函数怎么从字符串中截取不知道长度的一个数字呢?怎么用mid函数来截取这个字符串中的数字? -
vb中各关键字用法及意义.doc
2022-06-22 09:39:39vb中各关键字用法及意义.doc -
RSA加密算法在VB中的实现
2021-04-23 09:04:571 To Len(a) Step 4 w1 = mimedecode(Mid$(a, n, 1)) w2 = mimedecode(Mid$(a, n + 1, 1)) w3 = mimedecode(Mid$(a, n + 2, 1)) w4 = mimedecode(Mid$(a, n + 3, 1)) If w2 >= 0 Then retry = retry + Chr$(((w1 * 4... -
VB--mid函数
2019-06-03 14:25:41Mid 函数 从字符串中返回指定数目的字符。 Mid(string, start[, length]) ...如果 start 超过了 string 中字符的数目,Mid 将返回零长度字符串 ("")。 Length 要返回的字符数。如果省略或 ... -
任意字符的ASCII码转换工具,基于VB6的源代码
2021-05-07 06:53:05内容索引:VB源码,字符处理,ASCII,字符转换 任意字符的ASCII码转换工具,基于VB6的源代码,可以把任意字符(数字、字母、汉字)转化成ascii码,也可以把ascii码还原成... Mid("hello", 5, 1),这个意思是:取hello中 -
VB6.0_Help.rar
2020-11-18 00:43:13vb单独版本,编程爱好者的帮助挂件,全中文帮助版,软件安装独立与vb安装进行,程序安装后在vb中进行设置挂靠,即可使用 -
大家来找茬,VB游戏初学
2021-05-07 09:09:10我将在以后的版本做出改动。 文件说明: PIC 图片文件 DAT 数据文件 内 数据说明.txt 有关于数据的完整说明。 如果有任何问题可以发邮件给我 inzaghi_sf@ 或者 qq: 27502601 你可以随意对本程序进行修改和利用...