ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / нужна помощь
25 сообщений из 25, страница 1 из 1
нужна помощь
    #36757570
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
Всем привет!

Возникла задача:
В таблицах 1 и 2 приведены наименование товаров и их количества на двух разных складах. Таблицы заполнялись двумя разными людьми, поэтому одинаковые товары записаны по разному (Таблица1 №1 = Таблица2 №3, Таблица1 №2 = Таблица2 №1, Таблица1 №3 = Таблица2 №2 ).
Требуется используя основные операторы (цикл, условие) и функции для работы с текстом (Строковые функции) правильно сопоставить товары из таблицы 2 и товары из таблицы 1 и просуммировать их количества. (необходимо придумать алгоритм нахождения товара из таблицы№2 в таблице №1).
Скрины таблиц прилогаются. Прошу помощи у знатоков. Заранее благодарен.
...
Рейтинг: 0 / 0
24.07.2010, 06:13
| Ответить | Цитировать | Написать  
нужна помощь
    #36757572
pail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pail
Участник
Реализовать простую функцию - которая:
1. удаляет из строки все незначащие символы, то есть отличные от букв и цифр (все пробелы, знаки препинания)
2. буквы приводит к одному регистру.
3. все буквы лат.алфавита, которые по начертанию похожи на русские - заменяет на эти самые русские.

И с помощью такой функции попарно сравнить все строки из разных таблиц - для поиска "похожих".
Не факт, что все "найденное" действительно "то же самое".
Не факт, что все "то же самое" действительно будет найдено (значащие элементы наименования могут иметь разный порядок у разных авторов).

Так что и приемка результатов сравнения, и поиск расхождений, которые останутся - за человеком.
...
Рейтинг: 0 / 0
24.07.2010, 06:54
| Ответить | Цитировать | Написать  
нужна помощь
    #36757592
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
Спасибо за ответ!
Буду благодарен за последовательное решение данной задачи!

Встречный вопрос, как из строки удалить все пробелы и не нужные знаки (пробелы, запятые, точки, знак умножения, кавычки)?
Я вот до этого работал с аксесом, вот хочу пробывать в 1с. Как перевести сторку в верхний регистр знаю, а вот с функцией TrimAll возникла трудность ведь она убирает только правые и левые пробелы, а как быть если есть пробелы в нутри строки?
...
Рейтинг: 0 / 0
24.07.2010, 08:45
| Ответить | Цитировать | Написать  
нужна помощь
    #36757598
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Господин ПЖ
Участник
грубой силой - СтрЗаменить("ы ы", " ", "") даст "ыы"

и т.д.
...
Рейтинг: 0 / 0
24.07.2010, 09:10
| Ответить | Цитировать | Написать  
нужна помощь
    #36757599
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
вот как в аксе решил Пример: Replace([Text];" ";"") но а как в эту функию добавить еще не нужные знаки Например: ДБМ "потай" 8х60 с шур. 100 должно получиться так ДБМпотай860сшур100

как это мона организовать? так как все же логичней сравнивать одинаковые записи по таблице, а не только без пробелов.
...
Рейтинг: 0 / 0
24.07.2010, 09:17
| Ответить | Цитировать | Написать  
нужна помощь
    #36757625
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
как бы решил нюанс с ненужными знаками, но он в аксе((( нужно в 1с
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Form_Current()
   
    Dim str As String
    Dim str_1 As String
    Dim str_2 As String
    Dim str_3 As String
    Dim str_4 As String

    str = Replace(Me.Text, " ", "") 'замещение если есть пробелы
    str_1 = Replace(str, ".", "") 'замена если есть точки
    str_2 = Replace(str_1, """", "") 'замена если есть кавычки
    str_3 = Replace(str_2, "х", "") ' замена если есть х
    str_4 = Replace(str_3, "*", "") ' замена если есть *
    Me.pole_str = UCase(str_4)' полученый резильтат выводится в верхнем регистре
    
End Sub
...
Рейтинг: 0 / 0
24.07.2010, 10:37
| Ответить | Цитировать | Написать  
нужна помощь
    #36757657
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
народ! Хелп!
...
Рейтинг: 0 / 0
24.07.2010, 11:47
| Ответить | Цитировать | Написать  
нужна помощь
    #36757674
vitkhv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitkhv
Участник
Dmitriy Indychiy,

Господин ПЖ, уже же вам ответил.

MeText = "х пРосто.*те "" кст";

str = СтрЗаменить(MeText, " ", ""); //замещение если есть пробелы
str_1 = СтрЗаменить(str, ".", ""); //замена если есть точки
str_2 = СтрЗаменить(str_1, """", ""); //замена если есть кавычки
str_3 = СтрЗаменить(str_2, "х", ""); //замена если есть х
str_4 = СтрЗаменить(str_3, "*", ""); // замена если есть *
Mepole_str = ВРег(str_4); // полученый резильтат выводится в верхнем регистре

Сообщить(Mepole_str);
...
Рейтинг: 0 / 0
24.07.2010, 12:24
| Ответить | Цитировать | Написать  
нужна помощь
    #36757676
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
благодарю за ответ!
это я понял как отобрать строку без пробелов и символов, вот ума не приложу, как через цикл сравнить записи двух таблиц, и если записи совпадают то просуммировать их количества.
...
Рейтинг: 0 / 0
24.07.2010, 12:35
| Ответить | Цитировать | Написать  
нужна помощь
    #36757678
Программист 1с
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист 1с
Участник
Dmitriy Indychiy, Все в ТЗ и свернуть ("Наименование","Количество")
...
Рейтинг: 0 / 0
24.07.2010, 12:39
| Ответить | Цитировать | Написать  
нужна помощь
    #36757680
vitkhv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitkhv
Участник
Dmitriy Indychiyблагодарю за ответ!
это я понял как отобрать строку без пробелов и символов, вот ума не приложу, как через цикл сравнить записи двух таблиц, и если записи совпадают то просуммировать их количества.

Либо загнать обработанные строки во временные таблицы и сравнить в запросе.

Либо загнать обработанные строки в Таблицы значений и искать одинаковые через НайтиСтроки.
...
Рейтинг: 0 / 0
24.07.2010, 12:42
| Ответить | Цитировать | Написать  
нужна помощь
    #36757683
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
по поводу моего кода поясню:

str, str_1, str_2, str_3, str_4 - это все переменные типа String
Me.Text - это поле Наименование из таблицы1
Me.pole_str - это я создал на форме обычное поле(чтоб видеть результат), его можно не использовать в процедуре, результатируещее UCase(str_4) - которое без пробелов и ненужных знаков в верхнем регистре.

Я хочу с вашей помощью написать модуль этой процедуры, что в первом посте.
...
Рейтинг: 0 / 0
24.07.2010, 12:45
| Ответить | Цитировать | Написать  
нужна помощь
    #36757686
vitkhv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitkhv
Участник
Dmitriy Indychiy,

Если нужно сплюсовать количество у одинаковых наименований в двух таблицах, то как написал Программист 1С.
...
Рейтинг: 0 / 0
24.07.2010, 12:49
| Ответить | Цитировать | Написать  
нужна помощь
    #36757687
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
Программист 1сDmitriy Indychiy, Все в ТЗ и свернуть ("Наименование","Количество")
vitkhv Либо загнать обработанные строки во временные таблицы и сравнить в запросе.

Либо загнать обработанные строки в Таблицы значений и искать одинаковые через НайтиСтроки.

можно по подробней)))

Я с 1с еще не сталкивался, только осваиваю.
...
Рейтинг: 0 / 0
24.07.2010, 12:50
| Ответить | Цитировать | Написать  
нужна помощь
    #36757690
vitkhv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitkhv
Участник
Dmitriy Indychiy

можно по подробней)))

Я с 1с еще не сталкивался, только осваиваю.

1С 7.7 или 8?
...
Рейтинг: 0 / 0
24.07.2010, 12:52
| Ответить | Цитировать | Написать  
нужна помощь
    #36757692
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
vitkhvDmitriy Indychiy

можно по подробней)))

Я с 1с еще не сталкивался, только осваиваю.

1С 7.7 или 8?

1С 7.7

у меня к сожелению, комп с 1с на рабочем месте - дома нету, нужно за выходные решить сию задачку
...
Рейтинг: 0 / 0
24.07.2010, 12:57
| Ответить | Цитировать | Написать  
нужна помощь
    #36757694
vitkhv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vitkhv
Участник
vitkhv
Либо загнать обработанные строки во временные таблицы и сравнить в запросе.

Либо загнать обработанные строки в Таблицы значений и искать одинаковые через НайтиСтроки.

Это только для 8.

И как же вы собрались решать свою задачку не имея 1C?

И что это за таблицы, где они хранятся, в Акцесе?
...
Рейтинг: 0 / 0
24.07.2010, 13:08
| Ответить | Цитировать | Написать  
нужна помощь
    #36757695
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
да вот нашел екзешник на 7.7 сейчас установлю. Таблицы взяты для примера.
...
Рейтинг: 0 / 0
24.07.2010, 13:11
| Ответить | Цитировать | Написать  
нужна помощь
    #36757739
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Dmitriy IndychiyЯ вот до этого работал с аксесом, вот хочу пробывать в 1с.
Мда - не программист что ли ?
...
Рейтинг: 0 / 0
24.07.2010, 14:53
| Ответить | Цитировать | Написать  
нужна помощь
    #36757767
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
pivaDmitriy IndychiyЯ вот до этого работал с аксесом, вот хочу пробывать в 1с.
Мда - не программист что ли ?
программист любитель знаю только SQL и VBAccess, а тут синтаксис схожий с ВБ, но привыкать нужно. Не фарт мне установить 1С.
...
Рейтинг: 0 / 0
24.07.2010, 15:49
| Ответить | Цитировать | Написать  
нужна помощь
    #36757974
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Dmitriy Indychiy,
могу скинуть на почту ломанную
...
Рейтинг: 0 / 0
25.07.2010, 01:10
| Ответить | Цитировать | Написать  
нужна помощь
    #36757981
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
aduka05admDmitriy Indychiy,
могу скинуть на почту ломанную
о! буду признателен! indychiy@mail.ru
...
Рейтинг: 0 / 0
25.07.2010, 01:17
| Ответить | Цитировать | Написать  
нужна помощь
    #36757982
Фотография Dmitriy Indychiy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitriy Indychiy
Участник
aduka05adm, вопрос! У меня Windows 7 ваша версия будет работать на этой платформе?
...
Рейтинг: 0 / 0
25.07.2010, 01:20
| Ответить | Цитировать | Написать  
нужна помощь
    #36757989
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
Dmitriy Indychiy,
думаю будет , если вдруг будут
не устанавливай в programm files , а установи куда нить на диск с или d
ща скину вам и пару обработок добавлю
...
Рейтинг: 0 / 0
25.07.2010, 01:59
| Ответить | Цитировать | Написать  
нужна помощь
    #36758797
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
вообще как то не понятно ... надумано все
мы в 1с находимся точно ? почему тогда функции работы со строками?
что за извращение? есть же справочники ...
кто придумал заполнять таблицы именно с текстом?
если преподователь в вузе - хорошо учит
иначе - вам нужно читать про 1с ...

выгрузить в таблицы значений
свернуть, отсортировать по элементам ведущего справочника
и сравнить в цикле ... это если 7.7
...
Рейтинг: 0 / 0
26.07.2010, 09:26
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / нужна помощь
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&fpage=102&tid=1522153]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 74ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 251ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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