十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim str1 As String = "112113114111"
创新互联长期为上1000家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为山丹企业提供专业的成都网站设计、网站建设,山丹网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。
Dim str2 As String = "11"
Dim count As Integer = 0
For i As Integer = 0 To str1.Length - 1
Dim f As Integer = str1.IndexOf(str2, i)
If f -1 Then
MsgBox("str2出现在str1的" f "个字符位置")
i = f
count += 1
End If
Next
MsgBox("统计出str1中共有" count "个str2!")
'这个当然可以,用mid 取字符串的位置长度
Dim str As String = "16461了工有6149夺中46146好31"
Label1.Text = Mid(str, str.Length - 3, 3) '取字符串最后3位数
Label2.Text = Mid(str, 1, 3) '取字符串前面3位数
使用VB提供的取子串函数Mid(S,k,n);
函数Mid(S,k,n)的功能,从指定的字符串表达式S的第k位开始取连续的n个字符。
例如:S = "1234567890",Mid(S,1,3) ,返回"123"
例如:S = "1234567890",Mid(S,3,7) ,返回"3456789"
等等;
结合VB的IF语句,就可以实现你的要求;
If Mid("1234567890",1,3) = "123" Then
MsgBox("正确")
Else
MsgBox("错误")
End If
string.LastIndexOf(搜索的字符串, 位置)
位置 = 已经选中的字符串在整个文本中的Index序号
void rtf_Click(object s, EventArgs e)
{
MessageBox.Show(rtf.SelectionStart.ToString());
}
Instr函数 instr(,字符串1,字符串2) 其中,start为起始位置,默认为1可忽略;字符串1为长串,字符串2为短串。功能为在长串中查找短串出现的位置。