ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / замена текста в файле по данным из таблиц Access
20 сообщений из 20, страница 1 из 1
замена текста в файле по данным из таблиц Access
    #37287462
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
и снова здравствуйте!
у меня такой вопрос:
есть файл сбольшим набором строк, состящих из набора цифр типа "3513535895 30000 1". таких строк неопределенное количество и вместо "30000" может быть дрогое пятизначное число типа "75052" и других.
и есть таблица в Access, состоящия из двух сболбцов : в одном пятизначное число "30000", в другом - текстовое обозначение этого кода типа "catmin=mor".
Можно ли сделать чтоб он причтении файла как только найдет значение типа "30000" смотрел в таблице на что менять, менял уже на текстовое значение кода типа "catmin=mor"?
...
Рейтинг: 0 / 0
31.05.2011, 15:20
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287468
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Можно.
...
Рейтинг: 0 / 0
31.05.2011, 15:22
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287558
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
а как если не секрет
...
Рейтинг: 0 / 0
31.05.2011, 15:45
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287652
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
смотря какого-что размера.

Если файл большой, а таблица в аксессе маленькая - перегрузить таблицу в память и обрабатывать файл в ВБ

Если файл маленький, а таблица большая - сделать несколько запросов по мере обработки файла.

Если все большое - загрузить все в аксесс, обработать одним SQL-запросом и выгрузить обратно.
...
Рейтинг: 0 / 0
31.05.2011, 16:17
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287682
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
скорее всего все будет большое
...
Рейтинг: 0 / 0
31.05.2011, 16:27
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287858
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
afrobibaскорее всего все будет большое
а точнее
сколько записей?
...
Рейтинг: 0 / 0
31.05.2011, 17:13
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287875
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
количество строй строк в файле всегда разное.
а в таблице записи будут удалятся или добавлятся новые
...
Рейтинг: 0 / 0
31.05.2011, 17:19
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287879
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
afrobibaколичество строй строк в файле всегда разное.
а в таблице записи будут удалятся или добавлятся новые
Я понимаю, что разное.
Много - это сколько? десять? сто? миллион?
...
Рейтинг: 0 / 0
31.05.2011, 17:19
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287896
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
100 -/+10
...
Рейтинг: 0 / 0
31.05.2011, 17:29
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37287910
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
автор, вы смеётесь что ли, да тут вобще без разницы как делать, даже при самом плохом алгоритме у вас будет всё работать.
...
Рейтинг: 0 / 0
31.05.2011, 17:34
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37291468
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
и все таки, как сделать?
...
Рейтинг: 0 / 0
02.06.2011, 14:50
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37291538
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
afrobibaи все таки, как сделать?Сделать все за тебя, включая написание алгоритма? Либо $, либо задавай конкретные вопросы.
...
Рейтинг: 0 / 0
02.06.2011, 15:09
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37291562
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
Shocker.ProЕсли файл большой, а таблица в аксессе маленькая - перегрузить таблицу в память и обрабатывать файл в ВБ
Если файл маленький, а таблица большая - сделать несколько запросов по мере обработки файла.
Если все большое - загрузить все в аксесс, обработать одним SQL-запросом и выгрузить обратно.
скажи что легче писать?
...
Рейтинг: 0 / 0
02.06.2011, 15:15
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37291574
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
afrobiba,

зависит от наличия знаний в том или ином вопросе
...
Рейтинг: 0 / 0
02.06.2011, 15:18
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37297361
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
вообщем придумал так что при выборе команды в поле со списком будет подставлятся текстовое значение команды в простое поле и уже на основе этих двух полей будет производится замена файла. но вот только касяк в том что вроде еслия заменю занчения в коде на ссылки к полям то должно работать, но не работает.
...
Рейтинг: 0 / 0
06.06.2011, 17:51
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37297370
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ошибка в 18-й строке
...
Рейтинг: 0 / 0
06.06.2011, 17:52
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37297378
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Function reading(file)
Dim iFile As Integer
Dim lByteLen As Long
Dim bytData As Byte
Dim bytArray() As Byte
Dim Tmp
Dim a
a =  1 
iFile = FreeFile
Open (file) For Binary As iFile
For a =  1  To LOF(iFile)
Get iFile, a, bytData
Tmp = Tmp & ChrW(bytData)
Next a
Tmp = Replace(Tmp, "m11au", "mocaut:indic=3,tel=5")
Tmp = Replace(Tmp, Me.полесосписком37, Me.поле39)


reading = Tmp
Close iFile
End Function
вот. вроде не жалуется но все же не хочет менять
...
Рейтинг: 0 / 0
06.06.2011, 17:55
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37297405
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ChrW.... файл в юникоде что ли?
Replace работать не будет с юникодом
...
Рейтинг: 0 / 0
06.06.2011, 18:07
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37297427
afrobiba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
afrobiba
Гость
Код: plaintext
Tmp = Replace(Tmp, "m11au", "mocaut:indic=3,tel=5")
вот эта часть работает отлично. Но когда текст меняешь на поля вот так:
Код: plaintext
Tmp = Replace(Tmp, Me.полесосписком37, Me.поле39)
он просто пропускает эту часть
...
Рейтинг: 0 / 0
06.06.2011, 18:15
| Ответить | Цитировать | Написать  
замена текста в файле по данным из таблиц Access
    #37297446
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
afrobiba
Код: plaintext
Tmp = Replace(Tmp, "m11au", "mocaut:indic=3,tel=5")
вот эта часть работает отлично. Но когда текст меняешь на поля вот так:
Код: plaintext
Tmp = Replace(Tmp, Me.полесосписком37, Me.поле39)
он просто пропускает эту частьзначит надо поставить там точку останова и посмотреть, чему равны соответствующие значения
...
Рейтинг: 0 / 0
06.06.2011, 18:24
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / замена текста в файле по данным из таблиц Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37287910&tid=2158642]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 478ms
total:  623ms
созд. / загр.: 623ms
x
x
Закрыть


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