Pytanie : Przodować VBA: odizolowywać tekst w nawias

Jako część VBA macro I pisać wewnątrz Przodować 2007, I potrzebować tekst wartość który zawierać nawias. Zaczynać z the tekst w the komórka, che I dzwonić CurrentText, I chcieć dwa więcej strunowanie: NoParens i InParens. NoParens musieć the tekst minus jakaś substring który być w nawias (i przystosowywać dla rozstaw); InParens musieć the tekst który zawierać w the parentheses.

Examples można pomocniczo. Pozwalać CurrentText = "Niektóre Próbka Tekst (SST)". W tym wypadku, NoParens musieć "Niektóre Próbka Tekst", i InParens musieć "SST".

Or, jeżeli CurrentText = "

I móc zupełnie ten jeden jeden, i być bardzo wdzięczny jeżeli być móc ręka. Dzięki!

Odpowiedź : Przodować VBA: odizolowywać tekst w nawias

próbować to
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Okręt podwodny getSubString ()

Ciemnawy InParens Sznurek, NoParens Równie Sznurek, suma Sznurek
Ciemnawy leftParens Jako Integer, rightParens Jako Integer

suma = "Tekst Próbka Tekst (SST)"

leftParens = InStr (suma, "(")
rightParens = InStr (suma, ")")
różnica = rightParens - leftParens - (1)

InParens = Mid$ (sumaryczny, (leftParens + 1), różnica)
NoParens = Zamieniać (suma, "(" & InParens & ")", "")

MsgBox (InParens & vbCrLf & vbCrLf & NoParens)

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us