| |
|
|
| | Подскажите как с текстового поля в котором указаны пределы (33,70-33,82) изъять числа? | |
| |
| |
| |
|
|
| | А куда складывать будете результат (цифирки) | |
| |
| |
| |
|
|
| | А куда складывать будете результат
В корзину. 
Replace? | |
| |
| |
| |
|
|
| | Замените.....
=====================================================
Вам, Lukas, смешно, а вопрос не праздный - где хранить резуьтаты своего труда?
В банке - могут украсть,
В БАНКЕ - может лопнуть | |
| |
| |
| |
|
|
| |
...где хранить резуьтаты своего труда...
|
У меня они последнее время "откладываются" в районе "трудовой мозоли" | |
| |
| |
| |
 66 Кб. |
|
| | Есть таблица в текстовом поле которой находятся данные
28,05-28,16
30,00-30,16
14
14
18
16,06-16,16
18,06-18,16
25,03-25,16
28,05-28,16
таблица№9
19,05-19,15
таблица№13
Создать запрос, где в одном поле указать нижний, а другом поле верхний предел в виде числа. | |
| |
| |
| |
|
|
| | Может так:
Public Function funClearString(ByVal strText As String) As String
Dim i As Integer
For i = 1 To Len(strText)
Select Case Mid(strText, i, 1)
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "(", ")", ",", "-"
Mid(strText, i, 1) = "*"
End Select
Next i
funClearString = Replace(strText, "*", "")
End Function
?funClearString("sdfa fg fgg (33,70-33,82)fgfg ghyee dsdfg (33.70-33.82)sd dfg ")
sdfa fg fgg fgfg ghyee dsdfg ..sd dfg
|
| |
| |
| |
| |
|
|
| | =============== ПьЕССА ===============
______________Действие 1________________
час : И где же Вы храните цифирки???
Lukas : В strText .........
Автор : :Это не совсем то о чём я спрашивал
Lukas : а что вы хотели?
час :
Автор :  | |
| |
| |
| |
|
|
| |
Автор:
...изъять числа...
|
В Википедии трактовки не нашел, глубже лезть лень.
Я под "изъять" понимаю так: выкинуть. 
Если бы автор хотел их поиметь, он, наверное, написал бы "добыть", "достать".  | |
| |
| |
| |
|
|
| | Это я к тому, что автора нет, а дискуссия ведётся........ | |
| |
| |
