龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

查找替换所选字符

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：
->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->
->

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

内部结构 常 磁盘空间 前导 优酷视频 window.open excel生成报表 访问变慢 判断图片 sdcard路径 跟踪标记 StructHack 阵列 矩阵转置 子页面 chsh $().each 设置字符集 雅虎 time模块 dns解析 optimize ACL权限 两张表 php数组 理解 用 垃圾文件 GBK中文 外部链接 类反射 java反弹 MYSQL字符替换sql 表格列宽 分配权限 编程规范 iPhone 数据库备份 字符串截 交叉表查询 代替 统计文件 右对齐 获得ip地址 rsync 保存图片 dbi 中文字段 第三个参数 选择排序法 高級 Optimization 排除 js操作excel 防浏览 curl_multi js失效 邻接 鼠标停留 发生死锁

赞助商链接