ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как убрать лишние нули из текстового поля?
12 сообщений из 12, страница 1 из 1
Как убрать лишние нули из текстового поля?
    #39828185
archangel1408
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
archangel1408
Гость
Здравствуйте. Есть таблица в Access, в которой указаны номера кадастровых участков в формате "область:район:квартал:номер", например: 57:14:0050102:0012. Задача в том, чтобы автоматически убирать лишние нули после двоеточия:
57:14:0050102:012 -> 57:14:50102:12
57:14:0000000:135 -> 57:14:0:135 и т.д.
Проблема в том, что количество нулей может быть разным. Каким образом можно решить задачу в Access? До этого разбивали столбец по ":" в Excel, получалось что-то вроде 57|14|0|135 и уже в отдельном столбце формулой сцепляли значения, такой вариант в Access'e в принципе тоже бы устроил, но как реализовать это я не знаю. Заранее спасибо за советы.
...
Рейтинг: 0 / 0
19.06.2019, 10:36
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828202
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
archangel1408,
Код: vbnet
1.
2.
?replace("57:14:0050102:012","0","")
57:14:512:12
...
Рейтинг: 0 / 0
19.06.2019, 10:54
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828215
archangel1408
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
archangel1408
Гость
sdku,
не вариант, удалить нужно нули до первой цифры, которая больше нуля, здесь, например, номер квартала - 50102 (57:14:00 50102 :012)
...
Рейтинг: 0 / 0
19.06.2019, 11:13
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828218
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function cutOf(strCode As String) As String
    Dim arrNumbers() As String
    Dim i As Long
    arrNumbers = Split(strCode, ":")
    For i = LBound(arrNumbers) To UBound(arrNumbers)
        arrNumbers(i) = Val(arrNumbers(i))
    Next i
    cutOf = Join(arrNumbers, ":")
End Function



Код: vbnet
1.
2.
?cutOf("57:14:0050102:012")
57:14:50102:12
...
Рейтинг: 0 / 0
19.06.2019, 11:15
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828223
Чотакакта
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чотакакта
Участник
sdkuarchangel1408,
Код: vbnet
1.
2.
?replace("57:14:0050102:012","0","")
57:14:512:12

Топикстартеру нужно убирать только лидирующие нули, а ваш вариант убирает все, посему решение не подходит(

archangel1408,
вам нужно разбирать строку на составляющие (используя символ двоеточия в качестве разделителя отдельных строк), затем отдельные кусочки строк-цифр приводить к числу, после чего из чисел собирать строку обратно уже без лидирующих нулей.. Задача не сложная, но как мне видится простой одной-двумя командами не обойтись, нужно делать цикл
...
Рейтинг: 0 / 0
19.06.2019, 11:18
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828225
Чотакакта
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чотакакта
Участник
какие тут шустрые отвечающие.. или я медленный)
сорри, в общем
...
Рейтинг: 0 / 0
19.06.2019, 11:19
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828233
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
если убрать "0" в начале группы и писать "0" если вся группа (цифры между ":") из "0" то так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Function my(myTxt)
Dim myAr, i, str
myAr = Split(myTxt, ":")
For i = 0 To UBound(Split(myTxt, ":"))
       If myAr(i) = 0 Then
                    str = str & ":0"
            Else
                    str = str & ":" & Val(myAr(i))
      End If
Next
my = Mid(str, 2)
End Function

Код: vbnet
1.
2.
3.
4.
?my("57:14:0050102:012")
57:14:50102:12
?my("57:14:0000000:135")
57:14:0:135
...
Рейтинг: 0 / 0
19.06.2019, 11:26
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828408
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
archangel1408,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Function cutOf(strCode$) As String
const delimit$=":"
    Dim arrNumbers() As String
    Dim i As Long
    arrNumbers = Split(strCode, delimit)
    For i =0 To UBound(arrNumbers)
If arrNumbers(i)<>"" then
        arrNumbers(i) = CLng((arrNumbers(i)))
else
arrNumbers(i) ="0"
end if
    Next i
    cutOf = Join(arrNumbers, delimit)
End Function
?cutOf("57:14:0050102:012")
57:14:50102:12
...
Рейтинг: 0 / 0
19.06.2019, 15:21
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828611
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Что-то никто не вспомнил про регулярные выражения...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function RemoveLeadingZero(strExpression As String) As String
Dim objRegExp As Object
On Error Resume Next
   
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
objRegExp.Pattern = "(?=:|\b)0+(?!:|$)"
RemoveLeadingZero = objRegExp.Replace(strExpression, vbNullString)
Set objRegExp = Nothing
End Function


Как-то так...
...
Рейтинг: 0 / 0
20.06.2019, 04:35
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828792
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Панург,
Не просто не вспомнил,а даже не знал-порекомендуй что почитать и вообще это стоящее дело?
...
Рейтинг: 0 / 0
20.06.2019, 14:11
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828804
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdkuПанург,
Не просто не вспомнил,а даже не знал-порекомендуй что почитать и вообще это стоящее дело?
Регулярные выражения

P.S В инете можно скачать электронную версию на халяву. :))
...
Рейтинг: 0 / 0
20.06.2019, 14:30
| Ответить | Цитировать | Написать  
Как убрать лишние нули из текстового поля?
    #39828823
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdku, ну про книжки написали уже, Можно в сети посмотреть ресурсы - Объект RegExp
sdkuвообще это стоящее дело?Ну а как же!
...
Рейтинг: 0 / 0
20.06.2019, 15:07
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как убрать лишние нули из текстового поля?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=45&tid=1610634]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 10ms
total:  134ms
созд. / загр.: 134ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]