Здравствуйте, подскажите можно ли как то разбить строку таким образом, есть скажем адрес "664049, обл Иркутская, г Иркутск, ул Багратиона, дом № 52/1" и сделать так что бы данные вбивались в массив таки образом: скажем в $Mas[0][0] - Все не цифры, а в $Mas[1][0] все цифры?
Разделить слова и цифры в разные ячейки массива из строки
- Автор темы MaxHex
- Дата начала
Тут меня немного поправили и получается что в итоге должно получиться иначе =( в "$mas[0][0] = 664049, обл Иркутская, г Иркутск, ул Багратиона", а в "$mas[1][0] = дом № 52/1" но слово дом моет быть как "д", "д." или просто не быть т.е. будет написано " Иркутская, г Иркутск, ул Багратиона, 52/1" я так понимаю так уже регулярку не сделать?
Не всегда, например в строчке 601, но там можно оставить только название а номер дома оставить пустым, т.е. $mas[0][0] = "Маркова" а $mas[1][0] = ""
Добавлено:
А может то что выбивается из закономерности можно на втором круге вычислить и добавить в массив?
Добавлено:
Сообщение автоматически объединено:
А может то что выбивается из закономерности можно на втором круге вычислить и добавить в массив?
ra4o
AutoIT Гуру
- Сообщения
- 1,165
- Репутация
- 246
Без номера дома вычислить можно, но как с таким быть : "Иркутский р-н в 1,2 км автодороги Иркутск-Агродорспецстрой, с левой стороны" ...
Можно более менее верно заполнить процентов 90, остальное пока и в голову не приходит как ...
Вот , например можно так, но это без учёта вариантов, которые не подчиняются закономерности (перед последней запятой не номер дома и просто названия улиц без номеров и запятыфх в строке)
это так, в первом приближении , можно вычислять , что не вошло и дописывать условия
Можно более менее верно заполнить процентов 90, остальное пока и в голову не приходит как ...
Вот , например можно так, но это без учёта вариантов, которые не подчиняются закономерности (перед последней запятой не номер дома и просто названия улиц без номеров и запятыфх в строке)
Код:
#include <array.au3>
#include <excel.au3>
$oExcel = _Excel_Open(False)
$oBook = _Excel_BookOpen($oExcel, @ScriptDir & '\3.xlsx')
$aArray = _Excel_RangeRead($oBook)
_Excel_Close($oExcel)
$aArray = _ArrayUnique($aArray)
$n = 0
Dim $aResult[2][$n]
For $i = 1 To UBound($aArray) - 1
$iPoz = StringInStr($aArray[$i], ',', Default, -1)
If $iPoz Then
$n += 1
ReDim $aResult[2][$n]
$aResult[0][$n - 1] = StringLeft($aArray[$i], $iPoz - 1)
$aResult[1][$n - 1] = StringRight($aArray[$i], StringLen($aArray[$i]) - $iPoz)
EndIf
Next
_ArrayDisplay($aResult)это так, в первом приближении , можно вычислять , что не вошло и дописывать условия