Visual Basic

Вопрос

У меня вопрос по работе со строками. Строка, например такая: mystr="Сам (дурак)", т.е. состоит из строки(одно слово) и примечания в скобках. Я бы хотел разделить строку с примечанием, т.е. : str="Сам" prim="дурак"

Ответ

Для этого я определяю где скобка начинается gde = InStr(mystr, "(")
Далее определите нахождения следующей скобки той же функцией,
отнимите от ее номера номер первой скобки (так вы узнаете длину
комментария) и прочитайте комментарий функцией mid :

gde= instr(mystr,"(") ' номер символа, где начинается комментарий
gde2= instr(mystr,")") 'номер символа, где он заканчивается
stroka1 = mid(mystr,1,gde) 'основное слово
stroka2=mid(mystr,gde,gde2-gde) 'комментарий

Аркадий