vba - 插入 Excel VBA 字符串

Question

在 JAVA 或 C++ 中，我们可以按照 myString.insert(position, word) 进行操作。有没有办法可以在 Excel VBA 的字符串中执行相同的操作？在我的工作表中，我有一个如下所示的字符串:01/01/995，我想在年份中插入 1，因此将其设为 01/01/1995 。

Dim test_date As String
test_date = "01 / 25 / 995"
test_date = Mid(test_date, 1, 10) & "1" & Mid(test_date, 11, 4)

还有另一种更简单/更优雅的方法吗？

Answer 1

我认为没有更干净的方法可以做到这一点，因此您可以将其包装在函数中。另一种方法是使用replace，但它并不干净。

Function Insert(source As String, str As String, i As Integer) As String
    Insert = Replace(source, tmp, str & Right(source, Len(source)-i))
End Function 

或者只是修改你所拥有的

Function Insert(source As String, str As String, i As Integer) As String
    Insert = Mid(source, 1, i) & str & Mid(source, i+1, Len(source)-i)
End Function