重慶分公司,新征程啟航
為企業(yè)提供網(wǎng)站建設(shè)、域名注冊、服務(wù)器等服務(wù)
為企業(yè)提供網(wǎng)站建設(shè)、域名注冊、服務(wù)器等服務(wù)
Dim str1 As String = "112113114111"
創(chuàng)新互聯(lián)長期為上1000家客戶提供的網(wǎng)站建設(shè)服務(wù),團隊從業(yè)經(jīng)驗10年,關(guān)注不同地域、不同群體,并針對不同對象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為山丹企業(yè)提供專業(yè)的成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè),山丹網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
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出現(xiàn)在str1的" f "個字符位置")
i = f
count += 1
End If
Next
MsgBox("統(tǒng)計出str1中共有" count "個str2!")
'這個當然可以,用mid?取字符串的位置長度
Dim?str?As?String?=?"16461了工有6149奪中46146好31"
Label1.Text?=?Mid(str,?str.Length?-?3,?3)?'取字符串最后3位數(shù)
Label2.Text?=?Mid(str,?1,?3)?'取字符串前面3位數(shù)
使用VB提供的取子串函數(shù)Mid(S,k,n);
函數(shù)Mid(S,k,n)的功能,從指定的字符串表達式S的第k位開始取連續(xù)的n個字符。
例如:S = "1234567890",Mid(S,1,3) ,返回"123"
例如:S = "1234567890",Mid(S,3,7) ,返回"3456789"
等等;
結(jié)合VB的IF語句,就可以實現(xiàn)你的要求;
If Mid("1234567890",1,3) = "123" Then
MsgBox("正確")
Else
MsgBox("錯誤")
End If
string.LastIndexOf(搜索的字符串, 位置)
位置 = 已經(jīng)選中的字符串在整個文本中的Index序號
void rtf_Click(object s, EventArgs e)
{
MessageBox.Show(rtf.SelectionStart.ToString());
}
Instr函數(shù) instr(,字符串1,字符串2) 其中,start為起始位置,默認為1可忽略;字符串1為長串,字符串2為短串。功能為在長串中查找短串出現(xiàn)的位置。