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 |
|
