asbo
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: For kk = 1 To 9 iB = fn_Pos(sStr(kk), 1) iE = fn_Pos(sStr(kk), iB + 1) sTest1 = Mid(sStr(kk), iB, iE - iB) '''' Debug.Print kk; "'" & sTest1 & "'" '''' Stop Next | Код: For kk = 1 To 9 s = Trim(Replace(a(kk, 1), Chr(160), " ")) x.Pattern = "[^()0-9]" b(kk, 1) = Replace(Split(Trim(x.Replace(s, " ")), " ")(0), " ", "") '' Debug.Print kk; "'" & b(kk, 1) & "'" '' Stop Next |
| Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 15:03 17-03-2011 | Исправлено: asbo, 16:05 17-03-2011 |
|