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

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

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

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

зависит от наличия знаний в том или ином вопросе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2011, 17:51
    #37297361
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена текста в файле по данным из таблиц Access
вообщем придумал так что при выборе команды в поле со списком будет подставлятся текстовое значение команды в простое поле и уже на основе этих двух полей будет производится замена файла. но вот только касяк в том что вроде еслия заменю занчения в коде на ссылки к полям то должно работать, но не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2011, 17:52
    #37297370
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена текста в файле по данным из таблиц Access
ошибка в 18-й строке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2011, 17:55
    #37297378
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена текста в файле по данным из таблиц Access
Код: 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, 18:07
    #37297405
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена текста в файле по данным из таблиц Access
ChrW.... файл в юникоде что ли?
Replace работать не будет с юникодом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2011, 18:15
    #37297427
afrobiba
afrobiba
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена текста в файле по данным из таблиц Access
Код: 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
    #37297446
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
замена текста в файле по данным из таблиц Access
afrobiba
Код: plaintext
Tmp = Replace(Tmp, "m11au", "mocaut:indic=3,tel=5")
вот эта часть работает отлично. Но когда текст меняешь на поля вот так:
Код: plaintext
Tmp = Replace(Tmp, Me.полесосписком37, Me.поле39)
он просто пропускает эту частьзначит надо поставить там точку останова и посмотреть, чему равны соответствующие значения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / замена текста в файле по данным из таблиц Access / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 509ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158642]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 365ms
total:  509ms
x
x
Закрыть


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