查找替换所选字符

来源：百度文库 编辑：神马文学网 时间：2024/04/27 05:34:24
时间:2008-02-23 06:55来源:互联网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 vSearchLi　　 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

查找替换所选字符 word查找替换--使用 excel查找替换--使用 巧用Word“查找替换” Word高级查找替换 查找和替换的技巧 查找和替换的技巧 替换 批量多类型文件字符 替换工具 VIM查找替换归纳总结zz 查找 替换 全面 Word 帮助中的内容 Word中巧用查找替换功能制作试卷 查找和替换的技巧---(通配符)_飞星传恨 WORD2003[查找与替换]通配符的使用_t4o0 查找与替换中通配符的使用_OFFICE...小CASE! 巧用查找替换删除Word文档多余的空行 用Word查找替换功能快速给文档分页 Word查找替换批量设置论文参考文献标注 wd and cc ? VIM查找替换归纳总结zz java 实现中英文混时得到长度 过长字符替换 - tianwaishan的专栏 - CS... 用Word的查找替换功能快速给文档分页-办公软件-Word技巧-天极Yesky Word技巧:一次特殊的查找和替换 - 王朝网络 - wangchao.net.cn 教你Word中快速查找替换的技巧 - IT 知识库ITT168.com 教你Word中快速查找替换的技巧111-太平洋电脑网Pconline-[常用] WINDOWS所需文件被替换为无法识别版本 - 已解决 - windows被替换 - 化妆...