重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
思路:
在昌江等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供网站设计制作、成都网站设计 网站设计制作按需定制,公司网站建设,企业网站建设,品牌网站制作,营销型网站,成都外贸网站建设,昌江网站建设费用合理。
1,使用ListBox1控件来存放搜索到的文件名,然后ListBox1.SelectedItem就可以返回选中项的文本;
2,利用获得的选中项文本(即文件与路径),使用打开文本文件的方法,读取内容显示在文本框里。
一,出错后继续运行程序,可以使用On Error Resume Next.
二,要能点了又可以使用,就要看代码了,应该是你的代码问题
你在代码后面都fileclose(1)了,前面又没有open当然会报错,你把open放到do while前面,就OK了呀。
dim str1 ,str2 as string
dim n as integer
str2=inputbox("请输入要查找的字符:")
for n=1 to len(textbox1.text)
str1=mid(textbox1.text,n,1)
if str2=str1 then
msgbox("找到啦!")
exit for
end if
next
if n=len(textbox1.text)+1 then
msgbox("没有你要找的字符!")
end if
VB.net里有Split函数吗?
我的思路是,先寻找http://字符,然后向后寻找第一个在链接中肯定不会出现的字符,比如 ' " ; , 等等,截取中间这段就行啦
比如
doiicfur utiyo:('')bur;
先查找"http://",发现在第19个字符处(一定要注意,VB.net第一个字符的索引值下标为0,所以h是第20个字母,搜索所得到的结果就是19)
然后从19向后搜索异常字符( " ' ; , )之类,得到第二个搜索结果,将这两个结果中间的部分截取就是链接啦
string.LastIndexOf(搜索的字符串, 位置)
位置 = 已经选中的字符串在整个文本中的Index序号