Sub getSubString ()
Oscurare InParens come stringa, NoParens come stringa, totale come stringa
Oscurare i leftParens come numero intero, rightParens come numero intero
totale = “un certo testo del campione (SST)„
leftParens = InStr (totale, “(")
rightParens = InStr (totale, ")„)
differenza = rightParens - leftParens - 1
InParens = Mid$ (totale, (leftParens + 1), differenza)
NoParens = sostituisce (totale, “(" & InParens & ")„, "")
MsgBox (InParens & vbCrLf & vbCrLf & NoParens)
Sommergibile dell'estremità
|