查找替换所选字符

发表日期：2006-2-27

->FunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)
DimvSearchLineAsString,foundAsInteger

found=InStr(SearchLine,SearchFor):vSearchLine=SearchLine
Iffound<>0Then
vSearchLine=""
Iffound>1ThenvSearchLine=Left(SearchLine,found-1)
vSearchLine=vSearchLine ReplaceWith
Iffound Len(SearchFor)-1<Len(SearchLine)Then_
vSearchLine=vSearchLine Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor) 1)
EndIf
sReplace=vSearchLine

EndFunction->

购买网站空间(支持ASP/.NET/PHP)：送域名、送邮箱、更送1G U盘

上一篇：VB中如何实现文本查找功能人气:2692
下一篇：翻转一个字符串人气:4358

浏览全部Visual Basic的内容 Dreamweaver插件下载常用网页广告代码全集

最新网站源码	最新软件下载
2008-8-21 Nucleus v3.33 多国语言版 2008-8-21 HDWiki v4.0 bulid 080821 UTF-8 2008-8-21 明科在线客服系统 v6.0 2008-8-21 KesionCMS v5.0.2 正式版 utf-8 2008-8-21 KesionEshop v5.0.2 正式版 utf-8 2008-8-21 HDWiki v4.0 bulid 080821 GBK 2008-8-21 新文互动酷站展示系统 v1.5 2008-8-21 Punbb v1.2.20 多国语言版 2008-8-21 QQ头像网 beta	2008-8-16 iLaba Player(小喇叭播放器) v2. 2008-8-16 DoubleClickFix 鼠标双击修正工具 2008-8-16 CrystalCPUID 4.15.2.451 2008-8-16 VeryCD 电驴(easyMule) 1.0.4 Bu 2008-8-16 uTorrent 1.8 Build 11813 - Sta 2008-8-16 比特精灵(BitSpirit) v3.3.2.287 2008-8-16 StayInTune音叉 v1.0 破解版 2008-8-16 iChing《周易》汉化补丁 v1.0 2008-8-16 Starmap星空图v1.0汉化破解版

发表评论
姓　名:	验证码:
内　容:

[ 汉字翻译拼音 ] [ 广告代码 ] [ 符号对照表 ] [ 进制转换 ] [ 经典小工具 ] [ 个税计算 ] [ 汉字简繁转换 ] [ 普通单位换算 ] [ 公制单位换算 ]

[ 生辰老黄历 ] [ 国内电话区号 ] [ 国家代码与域名缩写 ] [ 文字加密解密 ] [ 健康查询 ] [ 万年历 ] [ 手机号码查询 ] [ ip搜索 ] [ Google PR查询 ]