电子邮件正文替换*与数字

Question

我的电子邮件中包含*，**和用户表单中的一些复选框。如果我选中一些复选框，它将放入电子邮件正文中：

* text1
** text2
...
* text24
** text25

当我想回复时，我想用1,2,3 ....替换*并删除**。谢谢。

Answer 1

不完全确定1,2,3的含义是什么意思......？

Function RemoveStars(strInput As String) As String

    Dim intCount As Integer
    intCount = 1
    Stop
    RemoveStars = Replace(strInput, Chr(42) & Chr(42), "")
    Do While InStr(RemoveStars, Chr(42)) <> 0
        RemoveStars = Replace(RemoveStars, Chr(42), intCount, 1, 1)
        intCount = intCount + 1
    Loop

End Function