iText$ = "(d6 d10 d12)"
iText$ = Mid(iText$, 2, Len(iText$) - 2)
MsgBox iText$, , ""
Вычитание строк
Привет, господа! Кодил на VBA под Excel и возник вопрос:
Если в string переменой A лежит, к примеру, строка "(d6 d10 d12)" как из неё сделать строку "d6 d10 d12", т.е. убрать начальную и конечную скобки?
Если в string переменой A лежит, к примеру, строка "(d6 d10 d12)" как из неё сделать строку "d6 d10 d12", т.е. убрать начальную и конечную скобки?
Код:
Код:
iText2$ = "(d6) (d10) (d12)"
iText2$ = Application.Substitute(iText2$, "(", "")
iText2$ = Application.Substitute(iText2$, ")", "")
MsgBox iText2$, , ""
iText2$ = Application.Substitute(iText2$, "(", "")
iText2$ = Application.Substitute(iText2$, ")", "")
MsgBox iText2$, , ""
Тоже самое, но для MS Excel 2000 (и старше)
Код:
iText2$ = "(d6) (d10) (d12)"
iText2$ = Replace(iText2$, "(", "")
iText2$ = Replace(iText2$, ")", "")
MsgBox iText2$, , ""
iText2$ = Replace(iText2$, "(", "")
iText2$ = Replace(iText2$, ")", "")
MsgBox iText2$, , ""
Большое спасибо!