Office中国论坛/Access中国论坛

标题: 如何实现替换功能？（包括文本和16进制） [打印本页]

作者: eio 时间: 2003-7-31 05:45
标题: 如何实现替换功能？（包括文本和16进制）
例如文本框有12349999iiii9999，需要将9999替换为EIO，如何办？（要求用VBA）

作者: lijiawy 时间: 2003-7-31 07:08
如果文本的长度是固定的话比较简单
先用right和left函数把9999找出来，然后用转换函数，再用替换函数，具体的函数忘了：），你可以查一下access自带的帮助，找函数列表，vba的函数还是比较少的

作者: 我要飞 时间: 2003-7-31 17:27
这个可以吧！（txt&bin）[attach]1299[/attach]

作者: eio 时间: 2003-7-31 17:27
文本长度不固定。

作者: 我要飞 时间: 2003-7-31 17:37
是不固定的，你试试就知道了。

作者: eio 时间: 2003-7-31 19:19
谢谢，我试试！

作者: eio 时间: 2003-7-31 20:09
^_^，原来自己对命令不了解导致的不懂，谢谢！
另外，如下文本如何实现？
好好好好好坏坏999好好好好好坏坏
替换为“好好好好好坏坏”：就是将罕有999以及前面的文本一起删除！再次谢谢！

作者: 我要飞 时间: 2003-8-1 03:42
将“好好好好好坏坏999”替换为空。

作者: eio 时间: 2003-8-1 05:15
大哥,好好好好好坏坏999的长度不固定,只是有标记999

作者: 我要飞 时间: 2003-8-1 20:51
是不是将查找值选中？是一个一个选，还是全选？
111111[B]22[/B]11111111122，下一个：11111122111111111[B]22[/B]
111111[B]22[/B]111111111[B]22[/B]
可能要用Search函数(不熟悉!),再替换吧。
-----------------------------------
！纠错：原来的不能直接替换为空值。
Private Sub 命令0_Click()
If IsNull(thw) Then
txt1.Value = Replace(txt1.Value, th.Value, "", 1, , vbBinaryCompare + vbTextCompare)
Else:
txt1.Value = Replace(txt1.Value, th.Value, thw.Value, 1, , vbBinaryCompare + vbTextCompare)
End If
End Sub

[此贴子已经被作者于2003-8-1 13:07:10编辑过]

作者: eio 时间: 2003-8-1 22:38
是将含有特征字符以及前面字库去掉，例如：
特征字符设置为XYZ，有文本
中山市爱欧电子电器厂XYZwww.eio.com.cn
结果：
www.eio.com.cn
又如
欢迎光临：中山市爱欧电子电器厂XYZwww.eio.com.cn
结果
www.eio.com.cn

作者: 我要飞 时间: 2003-8-2 02:11
那这个替换为空正合此意！

作者: lijiawy 时间: 2003-8-2 08:21
其实都很简单的，看看帮助里的几个字符串函数就行了

作者: eio 时间: 2003-8-5 18:10
谢谢关心，可是我的表达大家都理解错误了：“是将含有特征字段的前面的文本去掉。”

作者: gh_sh 时间: 2003-8-5 18:28
用MID截取

作者: eio 时间: 2003-8-5 19:22
什么是“MID”？

作者: sea.er 时间: 2003-8-5 19:27
帮助里有啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)