Функция возвращающая массив данных на основе строки - Microsoft Office Excel - Страница 2

IgorGO · 22.02.2015, 23:52

не понимаю что прикреплено.

извините
удачи!

TimeStopper · 22.02.2015, 23:58

IgorGO, большое спасибо за помощь.
Вашу строку у меня получилось обработать вот так
Function Shag(ByVal ins As String)
Dim s As String
Dim k As Integer
s = Right(ins, Len(ins) - 1)
k = InStr(s, ",")
Shag = Left(s, k - 1)
End Function

NomeraIzbr1 = StringOf(kk)
Zpt = CountRepeat(NomeraIzbr1, ",")
ReDim NomeraIzbr(Zpt)
s = ""
For nn = 1 To Zpt - 1
NomeraIzbr(nn) = Shag(NomeraIzbr1)
ktmp = InStr(NomeraIzbr1, NomeraIzbr(nn))
NomeraIzbr1 = Right(NomeraIzbr1, Len(NomeraIzbr1) - ktmp)
s = s + " " + NomeraIzbr(nn)
Next nn
MsgBox ("s=" & s)
End If
Наверно по деревенски, но почти работает! ) не включает последнее число массива, из-за нехватки запятой в конце, ну с этим я завтра на свежую голову разберусь. еще раз спасибо!

TimeStopper · 23.02.2015, 00:14

ах да...программа просто предназначена для автокада, а не для экселя, но может быть так у вас получится посмотреть? я экспортировал в .bas

22.02.2015, 23:52	#11
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	не понимаю что прикреплено. извините удачи! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Функция, возвращающая слово из строки	Dagestan228	Visual C++	3	16.11.2013 16:43
Функция, возвращающая массив	KORT	Общие вопросы Delphi	10	04.02.2013 12:41
Функция, возвращающая массив (С++)	Alendorff	Помощь студентам	14	09.03.2012 17:23
Пользовательская функция,возвращающая массив	savraska	Microsoft Office Excel	2	20.04.2010 03:12
Функция возвращающая массив	babaj	Общие вопросы Delphi	8	04.07.2009 17:40

22.02.2015, 23:58	#12
TimeStopper Пользователь Регистрация: 11.09.2012 Сообщений: 44	IgorGO, большое спасибо за помощь. Вашу строку у меня получилось обработать вот так Function Shag(ByVal ins As String) Dim s As String Dim k As Integer s = Right(ins, Len(ins) - 1) k = InStr(s, ",") Shag = Left(s, k - 1) End Function NomeraIzbr1 = StringOf(kk) Zpt = CountRepeat(NomeraIzbr1, ",") ReDim NomeraIzbr(Zpt) s = "" For nn = 1 To Zpt - 1 NomeraIzbr(nn) = Shag(NomeraIzbr1) ktmp = InStr(NomeraIzbr1, NomeraIzbr(nn)) NomeraIzbr1 = Right(NomeraIzbr1, Len(NomeraIzbr1) - ktmp) s = s + " " + NomeraIzbr(nn) Next nn MsgBox ("s=" & s) End If Наверно по деревенски, но почти работает! ) не включает последнее число массива, из-за нехватки запятой в конце, ну с этим я завтра на свежую голову разберусь. еще раз спасибо!