如何实现替换功能？（包括文本和16进制）

eio

例如文本框有12349999iiii9999，需要将9999替换为EIO，如何办？（要求用VBA）

lijiawy

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

我要飞

这个可以吧！（txt&bin）

eio

文本长度不固定。

我要飞

是不固定的，你试试就知道了。

eio

谢谢，我试试！

eio

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

我要飞

将“好好好好好坏坏999”替换为空。

eio

大哥,好好好好好坏坏999的长度不固定,只是有标记999

我要飞

是不是将查找值选中？是一个一个选，还是全选？
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编辑过]