VB點(diǎn)虐 里有Split函數(shù)嗎?
10年積累的成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn),可以快速應(yīng)對(duì)客戶(hù)對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶(hù)得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你,你也不認(rèn)識(shí)我。但先建設(shè)網(wǎng)站后付款的網(wǎng)站建設(shè)流程,更有敘州免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
我的思路是,先尋找http://字符,然后向后尋找第一個(gè)在鏈接中肯定不會(huì)出現(xiàn)的字符,比如 ' " ; , 等等,截取中間這段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",發(fā)現(xiàn)在第19個(gè)字符處(一定要注意,VB點(diǎn)虐 第一個(gè)字符的索引值下標(biāo)為0,所以h是第20個(gè)字母,搜索所得到的結(jié)果就是19)
然后從19向后搜索異常字符( " ' ; , )之類(lèi),得到第二個(gè)搜索結(jié)果,將這兩個(gè)結(jié)果中間的部分截取就是鏈接啦
VB.NET編程Mid函數(shù)一般用于返回原字符串中子串,比如說(shuō):
Dim?MyString,?FirstWord,?LastWord,?MidWords??
MyString?=?"Mid?Function?Demo"?建立一個(gè)字符串。??
FirstWord?=?Mid(MyString,?1,?3)?'?返回?"Mid"。??
LastWord?=?Mid(MyString,?14,?4)?'?返回?"Demo"。??
MidMidWords?=?Mid(MyString,?5)?'?返回?"Funcion
具體函數(shù)說(shuō)明如下:返回 Variant (String),其中包含字符串中指定數(shù)量的字符。
mid函數(shù)的語(yǔ)法:
Mid(string,?start[,?length])
mid函數(shù)的參數(shù):
string 必要參數(shù)。字符串表達(dá)式,從中返回字符。如果 string 包含 Null,將返回 Null;
start 必要參數(shù)。為 Long。string 中被取出部分的字符位置。如果 start 超過(guò) string 的字符數(shù),VB.NET Mid函數(shù)返回零長(zhǎng)度字符串 ("");
length 可選參數(shù);為 Variant (Long)。要返回的字符數(shù)。如果省略或 length 超過(guò)文本的字符數(shù)(包括 start 處的字符),將返回字符串中從 start 到尾端的所有字符。
對(duì)RichTextBox沒(méi)什么經(jīng)驗(yàn),對(duì)Rtf也不熟悉,勉強(qiáng)實(shí)現(xiàn)了你要的功能,可能方法不是太好
Dim l As Integer = 1 '要操作的行索引,從0開(kāi)始
Dim index = RichTextBox1.GetFirstCharIndexFromLine(l) '獲取行的第一個(gè)字符的索引
RichTextBox1.Select(index, RichTextBox1.Lines(l).Length) '選中該行
replace有重載方法,可以替換1~任意可能個(gè)
別用string的replace,直接用replace