登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术,关于生活

 
 
 

日志

 
 

VB查找替代字符串的函数  

2011-11-04 09:07:53|  分类: 编程-VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

' SearchLine is input, SearchFor is what to search for, ReplaceWith is the replacement

Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
    Dim vSearchLine As String, found As Integer

    found = InStr(SearchLine, SearchFor)
    vSearchLine = SearchLine
    If found <> 0 Then
        vSearchLine = ""
        If found > 1 Then vSearchLine = Left$(SearchLine, found - 1)
        vSearchLine = vSearchLine + ReplaceWith
        If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
           vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
    End If
    sReplace = vSearchLine

End Function


相关参考1


VB SendMessage向其他程序窗口发送字符串消息实例

VB 二进制数组与十六进制字符串相互转换

VB 汉字字符串转换成拼音

VB查找替代字符串的函数

VB中字符串匹配的多种方式

vb 字符串转为数字和判断字符串是否是数字字符串【转】

查找替代字符串的函数

VB中使用MD5算法

VBMD5加密模块

加密算法-MD5算法

VB 字符串MD5加密函数


 VB部分相关推荐2:


VB将自定义资源中的文件释放出来

VB在菜单上增加图标

Visual Basic 十年风云

VB表格控件总览与例程分析

利用VB函数Dir()实现递归搜索目

Visual Basic里与Print有关的函数

VB输入文本文件实现右对齐

VB查找替代字符串的函数

vb 换行气泡提示类

  评论这张
 
阅读(1131)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018