ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как заменить конкретный символ в строке?
22 сообщений из 22, страница 1 из 1
Как заменить конкретный символ в строке?
    #39303375
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Всем добрый день!
Есть строка:
<div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-1.jpg"/></div>
Как мне программно сделать чтобы это строка копировалась 100 раз (1.jpg, 2.jpg, 3.jpg, 4.jpg, 5.jpg... до 100.jpg) в новые строки?
В итоге у меня должно получится вот так:
Ссылки<div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-1.jpg"/></div> <div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-2.jpg"/></div> <div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-3.jpg"/></div> <div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-4.jpg"/></div> <div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-5.jpg"/></div> ...<div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-100.jpg"/></div>
За ранее спасибо!
...
Рейтинг: 0 / 0
04.09.2016, 15:41
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303439
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
str1 = "<div id=""spot_hiddenwrap""><img src=""https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-1.jpg""/></div>"
str0 = spilt(str1, "1.jpg")
str2 = ""
for i = 1 to 100
    str2 = str2 & join(str0, cstr(i) & ".jpg") & vbNewLine
next i
? str2
...
Рейтинг: 0 / 0
04.09.2016, 20:28
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303632
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Akina
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
str1 = "<div id=""spot_hiddenwrap""><img src=""https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-1.jpg""/></div>"
str0 = spilt(str1, "1.jpg")
str2 = ""
for i = 1 to 100
    str2 = str2 & join(str0, cstr(i) & ".jpg") & vbNewLine
next i
? str2


Доброе утро!
Спасибо за ответ но у меня ошибку показывает.
Вот в этом месте:
str0 = spilt(str1, "1.jpg")
Можете выложить пример для чайника?
Буду благодарен!
...
Рейтинг: 0 / 0
05.09.2016, 10:19
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303862
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Есть еще кто?
Помогите пожалуйста!
...
Рейтинг: 0 / 0
05.09.2016, 14:53
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303865
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,

Там просто описка.
Нужно не spilt, а split.
...
Рейтинг: 0 / 0
05.09.2016, 14:55
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303894
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
__MichelleAbisma2008,

Там просто описка.
Нужно не spilt, а split.

Да Вы правы))) Спасибо!
Ещё один вопрос.
Как результат кода сохранить в таблицу?
...
Рейтинг: 0 / 0
05.09.2016, 15:46
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303905
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,

Может, так?
Код: vbnet
1.
2.
3.
4.
5.
6.
for i = 1 to 100
   str2 = str2 & join(str0, cstr(i) & ".jpg") & vbNewLine
   CurrentDb.Execute "INSERT INTO Tab (Ссылки) " & _
                     "SELECT TOP 1 """ & str2 & """ " & _
                     "FROM MSysObjects"
next i
...
Рейтинг: 0 / 0
05.09.2016, 16:02
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303911
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,

Пропустила.
Там ведь в самих строках содержатся кавычки.
Их нужно удваивать Replac'ом.
...
Рейтинг: 0 / 0
05.09.2016, 16:08
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303944
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Вообще-то, я, наверное, сделала бы совсем по-другому.
Вот так.
Код: vbnet
1.
2.
3.
4.
5.
6.
For i=1 to 100
 CurrentDb.Execute "INSERT INTO Tab (Ссылки) " & _
                   "SELECT Top 1 Replace(Ссылки, ""1.jpg"", """ & i & ".jpg"") " & _
                   "FROM Tab "
                   "WHERE Ссылки Like ""*i-1.jpg*"""
Next
...
Рейтинг: 0 / 0
05.09.2016, 16:49
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303945
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
__MichelleВообще-то, я, наверное, сделала бы совсем по-другому.
Вот так.
Код: vbnet
1.
2.
3.
4.
5.
6.
For i=1 to 100
 CurrentDb.Execute "INSERT INTO Tab (Ссылки) " & _
                   "SELECT Top 1 Replace(Ссылки, ""1.jpg"", """ & i & ".jpg"") " & _
                   "FROM Tab "
                   "WHERE Ссылки Like ""*i-1.jpg*"""
Next


На подледном строке есть какая та ошибка!
...
Рейтинг: 0 / 0
05.09.2016, 16:55
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303948
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
For i=1 to 100 
 CurrentDb.Execute "INSERT INTO Tab (Ссылки) " & _ 
                   "SELECT Top 1 Replace(Ссылки, ""1.jpg"", """ & i & ".jpg"") " & _ 
                   "FROM Tab " & _
                   "WHERE Ссылки Like ""*i-1.jpg*""" 
Next
...
Рейтинг: 0 / 0
05.09.2016, 16:59
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303955
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
__Michelle,

Я знаю сейчас Вы меня ругайтесь) но у меня нечего не получилось(
Вот база!
Посмотрите пожалуйста!
...
Рейтинг: 0 / 0
05.09.2016, 17:08
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303959
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,

Нет, я не ругаюсь.)))
Но , во-первых, писала с планшета, без компьютера,
во-вторых, у меня сейчас осталось очень мало времени.
Но попробую....
Это в какой версии?
Можете в 2000-й перевести и выложить, чтобы мне ноутбук не доставать,
а то прям так некогда...
...
Рейтинг: 0 / 0
05.09.2016, 17:15
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39303960
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
__MichelleAbisma2008,

Нет, я не ругаюсь.)))
Но , во-первых, писала с планшета, без компьютера,
во-вторых, у меня сейчас осталось очень мало времени.
Но попробую....
Это в какой версии?
Можете в 2000-й перевести и выложить, чтобы мне ноутбук не доставать,
а то прям так некогда...
Отлично)
Вот примерчик. Можете завтра ответит!
Спасибо большое!
...
Рейтинг: 0 / 0
05.09.2016, 17:18
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304000
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,

Посмотрела.
Вы прямо без изменений скопировали код?
Но ведь у Вас нет таблицы Tab, это условное наименование.
У Вас таблица называется f_9E8203D96A754B0890DAF9414007C362_Data.
Поля с именем Ссылки (как на приведенной Вами картинке) в этой таблице тоже нет.
Из тех полей, что есть, наиболее подходящее, на мой взгляд, FileURL.
Но таблица пуста, записи с приведенным вариантом строки нет.
Конечно, так ничего работать не будет.

Заменила в модуле имена на существующие,
создала в таблице запись с первоначальным значением поля FileURL,
равным <div id="spot_hiddenwrap"><img src=" https://content.foto.my.mail.ru/community/oneplanet/_groupsphoto/i-1.jpg"/></div>.
Однако вставка опять не произошла.
Тогда сделала отдельный запрос (Запрос1) на вставку со значением i 25, запустила,
вышло сообщение о невозможности вставки из-за нарушении уникальности ключа.
Посмотрела в таблице f_9E8203D96A754B0890DAF9414007C362_Data, причин не обнаружила.

Сделала новую таблицу Таблица1 с полем Id счетчик и полем FileURL.
Создала в ней нужную первоначальную запись.
В форме Форма1 - кнопка для запуска цикла вставок.
Все получилось.
Вставились 100 записей с нужными значениями поля FileURL.

Прилагаю файл с новой таблицей (Таблица1) и новой формой (Форма1).
Вставленные записи удалила, оставила лишь первоначальную запись.
Откройте таблицу, посмотрите, затем откройте форму, нажмите кнопку и
увидите в таблице 100 вставленных записей.

Почему происходит нарушение уникальности ключа в таблице f_9E8203D96A754B0890DAF9414007C362_Data, не знаю.
...
Рейтинг: 0 / 0
05.09.2016, 18:19
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304017
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,__Michelle.....
Почему происходит нарушение уникальности ключа в таблице
f_9E8203D96A754B0890DAF9414007C362_Data, не знаю.Поняла, в чем дело.
а) Поле FileName (Текстовый) - не допускает пустых строк.
б) Поле _Data (Числовой) - индексированное, тоже требует ввода значения.

То есть, нужно теперь так
Код: vbnet
1.
2.
3.
4.
5.
6.
For i=1 to 100 
 CurrentDb.Execute "INSERT INTO f_9E8203D96A754B0890DAF9414007C362_Data (_Data, FileName, FileURL) " & _ 
                   "SELECT Top 1 0, ""FileName"", Replace(FileURL, ""1.jpg"", """ & i & ".jpg"") " & _ 
                   "FROM f_9E8203D96A754B0890DAF9414007C362_Data " & _
                   "WHERE FileURLLike ""*i-1.jpg*""" 
Next

При этом подчеркиваю, что выделенные красным значения 0 и "FileName"
должны быть заменены на значения, соответствующие каждому *.jpg.
Хотя, если только проверить работу запроса, можно и так оставить,
но тогда во всех вставленных записях они будут одинаковыми.
...
Рейтинг: 0 / 0
05.09.2016, 18:36
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304201
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
__Michelle,

Доброе утро!
Я очень благодарен Вам!
сколько труд... и все это для меня.
Еще раз спасибо!
...
Рейтинг: 0 / 0
06.09.2016, 09:26
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304238
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Abisma2008,

Здравствуйте!

Труд, конечно, грандиозный - несколько движений мыши.)))
Писанины, правда, вышло много.)))

У меня там есть неточность.
Если заполнять таблицу на основании первой записи,
уже находящейся в таблице, то цикл For нужно начинать с 2, а не с 1.

Получилось ли у Вас желаемое?
...
Рейтинг: 0 / 0
06.09.2016, 10:06
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304376
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Abisma2008, а какая необходимость создавать в таблице 100 записей с путями к 100 картинкам, лежащим в одной папке? Какая у вас цель? Может есть более элегантное решение?

ЗЫ. Вместо выполнения запроса я бы открыл Recordset на этой таблице и в цикле добавил туда 100 записей.
...
Рейтинг: 0 / 0
06.09.2016, 12:40
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304397
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Анатолий ( Киев )Abisma2008, а какая необходимость создавать в таблице 100 записей с путями к 100 картинкам, лежащим в одной папке? Какая у вас цель? Может есть более элегантное решение?
ЗЫ. Вместо выполнения запроса я бы открыл Recordset на этой таблице и в цикле добавил туда 100 записей.+100500
...
Рейтинг: 0 / 0
06.09.2016, 13:05
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304435
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
__Michelle,
Да меня устраивает ваш вариант который работает

Анатолий ( Киев )
Мая цель скачать сразу 30000 шт картинку!
Как это происходит:
Я делаю одинаковые строки в количестве 30000 шт, но каждая строка отличается вот здесь "1.jpg"
Потом экспортироваю в текстовый документ.
Дальше Открою через HTML. У меня откроется в браузере страница с картинками.
И наконец то Сохраняю HTML с папкой.
В итоге в папке появится 30000 шт картинок)))
Вот то что я хочу!)
...
Рейтинг: 0 / 0
06.09.2016, 14:21
| Ответить | Цитировать | Написать  
Как заменить конкретный символ в строке?
    #39304598
WRX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WRX
Гость
это писец - f_9E8203D96A754B0890DAF9414007C362_Data
...
Рейтинг: 0 / 0
06.09.2016, 17:12
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как заменить конкретный символ в строке?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39303955&tid=1613185]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 363ms
total:  510ms
созд. / загр.: 510ms
x
x
Закрыть


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