如何删除括号后所有字符
如何删除文本数据中的括号后的所有字符
前提是不知道括号后的数据是什么,也可能是空格,我想删除括号后的所有东西.
比如:513.37( 5.00%) 1029.82(13.28%) 1406.73(11.86%) 1639.65( 0.46%) 1645.45( 11)
[解决办法]
i = instr(s, "( ")
if i <> 0 then s = left(s, i-1)
[解决办法]
你所说的“括号后”是括号之间吗？
Dim str1 As String, str2 As String, i As Integer, bStop As Boolean
str1 = "513.37( 5.00%) 1029.82(13.28%) 1406.73(11.86%) 1639.65( 0.46%) 1645.45( 11) "
For i = 1 To Len(str1)
If Mid(str1, i, 1) = "( " Then bStop = True
If i > 1 Then
If Mid(str1, i - 1, 1) = ") " Then bStop = False
End If
If Not bStop Then str2 = str2 & Mid(str1, i, 1)
Next i
MsgBox str2
