189 8069 5689
Dim str0 As String, idx As Long, str1 As String, str2 As String
成都创新互联是一家集网站建设,蜀山企业网站建设,蜀山品牌网站建设,网站定制,蜀山网站建设报价,网络营销,网络优化,蜀山网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
str0 = "122012312｝R4561_456}7894321}1234123123}"
idx = str0.IndexOf("}")
Do While idx = 0
str1 = str0.Substring(0, idx)
str2 = str0.Substring(idx + 1)
'在文本框中添加显示str1、str2,代码略
str0 = str2
idx = str0.IndexOf("}")
Loop
VB.net里有Split函数吗？
我的思路是，先寻找http://字符，然后向后寻找第一个在链接中肯定不会出现的字符，比如 ' " ; , 等等，截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处（一定要注意，VB.net第一个字符的索引值下标为0，所以h是第20个字母，搜索所得到的结果就是19）
然后从19向后搜索异常字符（ " ' ; , ）之类，得到第二个搜索结果，将这两个结果中间的部分截取就是链接啦
一个字符一个字符的判读，判读是不是汉字，如果是，就取出来，如果不是则不取是汉字的判断程序如下Private Sub Form_Load()
Dim InputStr As String
InputStr = InputBox("请输入字符串")
If Asc(InputStr) 0 Then
gbascii = AscB(StrConv(InputStr, vbFromUnicode))
'区位码在16区之后的为汉字
If gbascii - 160 15 Then
MsgBox "是汉字,Label1不显示此字符串"
Else
MsgBox "是全角符号，Label1不显示此字符串"
End If
Else
'MsgBox "是半角英文或数字"
Label1.Caption = InputStr
End If
End Sub
dim
str
as
string,
a
as
string,
b
as
string,
c
as
string,
d
as
string
str
=
"123f,456ggdf,ab123c,e954fg"
a
=
split(str,
",")(0)
'提取第一个逗号之前的字符串
b
=
split(str,
",")(1)
'提取第一个逗号与第二个逗号之间的字符串
c
=
split(str,
",")(2)
'提取第二个逗号与第三个逗号之间的字符串
d
=
split(str,
",")(4)
'提取第三个逗号之后的字符串