重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB点虐 里有Split函数吗?
10年积累的成都做网站、成都网站设计经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先建设网站后付款的网站建设流程,更有叙州免费网站建设让你可以放心的选择与我们合作。
我的思路是,先寻找http://字符,然后向后寻找第一个在链接中肯定不会出现的字符,比如 ' " ; , 等等,截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处(一定要注意,VB点虐 第一个字符的索引值下标为0,所以h是第20个字母,搜索所得到的结果就是19)
然后从19向后搜索异常字符( " ' ; , )之类,得到第二个搜索结果,将这两个结果中间的部分截取就是链接啦
VB.NET编程Mid函数一般用于返回原字符串中子串,比如说:
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidMidWords = Mid(MyString, 5) ' 返回 "Funcion
具体函数说明如下:返回 Variant (String),其中包含字符串中指定数量的字符。
mid函数的语法:
Mid(string, start[, length])
mid函数的参数:
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null;
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,VB.NET Mid函数返回零长度字符串 ("");
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。
对RichTextBox没什么经验,对Rtf也不熟悉,勉强实现了你要的功能,可能方法不是太好
Dim l As Integer = 1 '要操作的行索引,从0开始
Dim index = RichTextBox1.GetFirstCharIndexFromLine(l) '获取行的第一个字符的索引
RichTextBox1.Select(index, RichTextBox1.Lines(l).Length) '选中该行
replace有重载方法,可以替换1~任意可能个
别用string的replace,直接用replace