Консультация № 141016
29.07.2008, 21:30
0.00 руб.
0 2 2
Уважаемые эксперты.У меня такой вопрос.Имеется массив строк,каждая из которых содержит по два слова,разделённых одним пробелом профессия и фамилия,например:ИНЖЕНЕР ИВАНОВ
КОНСТРУКТОР КОЗЛОВ.Надо составить программу на Бейсике для выделения фамилий в отдельный массив.

Обсуждение

Неизвестный
29.07.2008, 22:35
общий
это ответ
Здравствуйте, Плескацевич Андрей Казимирович!
Используйте в цикле функцию split()
или конструкцию из Right() и instrrev() такого вида: right(элемент_массива, instrrev(элемент_массива," ")-1)
Верхний (и нижний, при необходимости) элемент массива можно узнать с помощью функции ubound() ( и, соответственно, lbound())
Неизвестный
30.07.2008, 08:09
общий
это ответ
Здравствуйте, Плескацевич Андрей Казимирович!
Предлагаю Вам попробовать следующий код.
Пусть MassStrok(n) - массив строк.
Код смотрите ниже:


Приложение:
Dim Family()
For i=1 To n
PozProbela=InStr(1,MassStrok(i)," ")
ReDim Preserve Family(i)
Family(i)=Right(MassStrok(i),Len(MassStrok(i))-PozProbela)
Next i
Форма ответа