Dim str As String = "something(140).csv"
Dim newstr As String
Dim idx1, idx2 As Integer
idx1 = str.IndexOf("(")
idx2 = str.IndexOf(")") + 1
newstr = str.Replace(str.Substring(ixd1, (idx2 - ixd1)), "")
или вы можете создать функцию, как показано ниже
Private Function RemoveStringWithin(ByVal str As String, _
ByVal start_char As String, _
ByVal end_char As String) As String
Dim idx1, idx2 As Integer
idx1 = str.IndexOf(start_char)
idx2 = str.IndexOf(end_char) + 1
RemoveStringWithin = str.Replace(str.Substring(idx1, (idx2 - idx1)), "")
Return RemoveStringWithin
End Function
использование:
Dim str As String = "something(140).csv"
Dim str1 As String = "something<another_noise%.csv"
str = RemoveStringWithin(str, "(", ")")
str1 = RemoveStringWithin(str1, "<", "%")
Покажите нам код, который вы написали, чтобы попробовать! Проводили ли вы какие-либо исследования? –
- имя файла всегда исправлено? я имею в виду, всегда будет (игнорируя расширение и цифры и символы)? –
no - что-то вроде того, что вам нравится, может быть что угодно – Arie