Не получается взять второе слово из строки...

Страница 1 из 1 1
Модератор форума: as-master

Игорь

Дата: Понедельник, 19 Декабря 2011, 09:35 | Сообщение # 1

Педагог

Группа: Проверенные

Сообщений: 331

Репутация: 0

Награды: 0

Статус: Offline

В общем озаботился проблемой, в теме генератора паролей начал, но тут конкретно с командой GetArrayItem не могу разобраться.

итак... загружаем список фамилий и имен, которые через пробел написаны. например

Вася Иванов
Петя Сидоров
Веня Мамаев

нужно чтобы одной переменной, например, i$ присваивалось имя, а переменной, например, f$ - фамилия.

Итак, что я написал...

ну, примерно так

OpenFile("Text Files (*.txt)|*.txt|All Files|*.*|","*.txt")
If (OpenFile$<>'') Then
Ret=NOL(OpenFile$)
End
For qw=0 To Ret-1
Pause("500")
qw=qw+1
fi$=StrFromFile(OpenFile$,qw,1)
**-----делим фамилию имя на отдельные части
probel$=' '
i$=GetArrayItem(fi$,probel$,1)
f$=GetArrayItem(fi$,probel$,2)
Message("i$","VARIABLE")
Message("f$","VARIABLE")
Next qw

Но почему то имя от отфильтровывает, а фамилию - выводит пустую мессагу... не присваимает f$ ничего... Что не так делаю?

Добавлено (19 Декабрь 2011, 09:35)
---------------------------------------------
так... все понял... в конце тоже должен стоять пробел, а у меня его в списке нет. Теперь приплюсовываю его к строке -и все рабьотает!

Шум ничего не доказывает. Курица, снесши яйцо, часто клохчет так, словно снесла небольшую планету...
Марк Твен