Public Function HasSubstring(str As String, substr As String) As Boolean
Dim i As Integer
For i = 1 To Len(str) - Len(substr)
If Mid(str, i, Len(substr)) = substr Then
HasSubstring = True
Exit Function
End If
Next
' Если мы здесь, значит совпадений не найдено
HasSubstring = False
End Function
Поиск части строки
Проблема стала в Аксесе. Не знаю функции.
Есть таблица, один столбец. В нем записаны номера договоров ( часть ). И есть большая таблица где стоят нормальные номера договоров и по ним разные суммы.
Мне по сути надо выбрать, каким то образом сравнить неполноценный номер с нормальным.
пример:
есть номера такие вот обрезанные
Мск-0623
Мск-0674
Мск-1346
Мск-1347
если их сравнивать напрямую findfirst то ничего не выйдет
а полный вид договоров
AA/Мск-0623/ДЛ
СС/Мск-0674/ДА
АА/Мск-1346/ДА
ММ/Мск-1347/ДЗ
Можно ли как-нибудь искать вхождение строки в строку?
Есть таблица, один столбец. В нем записаны номера договоров ( часть ). И есть большая таблица где стоят нормальные номера договоров и по ним разные суммы.
Мне по сути надо выбрать, каким то образом сравнить неполноценный номер с нормальным.
пример:
есть номера такие вот обрезанные
Мск-0623
Мск-0674
Мск-1346
Мск-1347
если их сравнивать напрямую findfirst то ничего не выйдет
а полный вид договоров
AA/Мск-0623/ДЛ
СС/Мск-0674/ДА
АА/Мск-1346/ДА
ММ/Мск-1347/ДЗ
Можно ли как-нибудь искать вхождение строки в строку?
Цитата:
Originally posted by crazytrain
Можно ли как-нибудь искать вхождение строки в строку?
Можно ли как-нибудь искать вхождение строки в строку?
Исессьно, мона:
Код:
А если речь идёт об SQL, то предикат выглядит как
WHERE str LIKE 'Мск-0623'.
Т. е. для, скажем, str = 'AA/Мск-0623/ДЛ' приведённый выше предикат будет иметь значение TRUE
_
Спасибо :-)
Можно еще один вопрос. Как сделать в аксесе экспорт в Эксель. Можно как бы просто сделать
DoCmd.OutputTo acOutputQuery, "otchet1", _
acFormatXLS, "s:\otcheti\otchet1.xls", False
Но это если такой запорс уже существует в базе данных. А если мне надо сделать много с разными именами (скажем там есть регион) с названием региона. Т.е. он из существующего запроса делает еще один запрос where регион="Москва" (МОсква меняется каждый раз) и прям вот этот нигде не сохраненный запрос экспортировать в Эксель.
Помогите плиз :-)
Можно еще один вопрос. Как сделать в аксесе экспорт в Эксель. Можно как бы просто сделать
DoCmd.OutputTo acOutputQuery, "otchet1", _
acFormatXLS, "s:\otcheti\otchet1.xls", False
Но это если такой запорс уже существует в базе данных. А если мне надо сделать много с разными именами (скажем там есть регион) с названием региона. Т.е. он из существующего запроса делает еще один запрос where регион="Москва" (МОсква меняется каждый раз) и прям вот этот нигде не сохраненный запрос экспортировать в Эксель.
Помогите плиз :-)