ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
5 сообщений из 5, страница 1 из 1
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
    #36827101
Юрий Горбунов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юрий Горбунов
Гость
есть 100 Word файлов,
внутри файла таблица, по сути форма для заполнения, слева название поля, спава данные (ФИО>Вася Пупкин)
нужно получит содержимое таблицы в базе данных или хотябы в Экселе
Как это максимально дёшево и быстро сделать?
joj@hotmail.ru
...
Рейтинг: 0 / 0
03.09.2010, 02:09
| Ответить | Цитировать | Написать  
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
    #36827102
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Да, собственно, никаких проблем-то нет.
Цикл открытия файлов, внутри цикл по таблице, как я понимаю, все файлы типовые, цикл будет типовой. Извлекаемые данные отправляются в БД.
Это дешево.

А быстро... тут надо смотреть и думать, БД локальная или сервер?
...
Рейтинг: 0 / 0
03.09.2010, 02:15
| Ответить | Цитировать | Написать  
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
    #36827115
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Shocker.Pro,

авторЦикл открытия файлов, внутри цикл по таблице, как я понимаю, все файлы типовые, цикл будет типовой. Извлекаемые данные отправляются в БД.
s1=dir
' [] уголки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
open "c:\rab\word00.xls" for outpur as # 1 
print # 1 ,"[html]"
print # 1 ,"[meta http-equiv=Content-Type content=""text/html; charset=windows-1251"" ]"
print # 1 ,"[body]"
print # 1 ,"[table]"
do while len(s1)> 0 
word.documents.open s1
j1k=word.activedocument.tables( 1 ).rowcount
do while j1<j1k
j1=j1+ 1 
print # 1 ,"[tr][td]" & word.activedocument.tables( 1 ).cells(j1, 1 ) & "[td]" & word.activedocument.tables( 1 ).cells(j1, 1 )
loop
word.activedocument.close
s1=dir
loop
print # 1 ,"[/table]"
close # 1
...
Рейтинг: 0 / 0
03.09.2010, 03:31
| Ответить | Цитировать | Написать  
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
    #36827116
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Юрий Горбунов,

правка
print #1,"[tr][td]" & word.activedocument.tables(1).cells(j1,1) & "[td]" & word.activedocument.tables(1).cells(j1,2)
...
Рейтинг: 0 / 0
03.09.2010, 03:37
| Ответить | Цитировать | Написать  
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
    #36827269
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ПЕНСИОНЕРКАправка
можно еще поправить слово outpur , добавить определения переменных и инициализацию s1, без чего цикл не начнется.

А по хорошему, надо проверять код на работоспособность, прежде чем выкладывать.
...
Рейтинг: 0 / 0
03.09.2010, 09:47
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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