如何删除相同字符的第二个实例以及之后的所有内容

Question

>我有一列包含字母数字文本字符串。字符串包含多个"/"分隔符。我想删除第二个"/"及其后面的所有内容。

例子：

text1inc4/4r_2/exte/ise24lsk/srcir5656we/kajsie/est3wt2w/1stbbd35werw.py#1  
(Desired result = “'text1inc4.4r_2”)
ex1text1/1.0.2.5/aud/algorithms/formulas/heaac/nov/exampleLib/dlb_example54lib/bs5acdeclib/int/all.h#5  
(Desired result = “'ex1text1.1.0.2.5”)

下面的代码删除了第一个"/"之后的所有内容，所以我想添加一些前面的代码，将第一个"/"替换为"."。(我知道使用 Excel 公式执行此操作的几种方法，但需要使用 VBA 代码来代替。字符串长度和内容在斜杠之间有所不同。

For Each c In Range("Y2:Y" & LngLast)
If InStr(c.Value, "/") Then
c.Value = Left(c.Value, InStr(c.Value, "/") - 1)
End If
Next c

Answer 1

你可以按照这些思路使用split的东西

Dim s As String
Dim a() As String
s = "text1inc4/4r_2/exte/ise24lsk/srcir5656we/kajsie/est3wt2w/1stbbd35werw.py#1 "
a = Split(s, "/")
s = a(0) & "." & a(1)